/prep7
Et,1,solid186

MP,EX,1,3.250e10
MP,nuxy,1,0.167
Mp,dens,1,2500

MP,EX,2,3.0e10
MP,nuxy,2,0.167
Mp,dens,2,2500



block,0,8.5,0,10,0,3


!16
wpcsys,-1
wpoff,0.36,0.9,0
wprota,-45,,
wprota,,-14,
block,0,0.6,0,0.6,0.5,-48

!17
wpcsys,-1
wpoff,1.98,0.9,0
wprota,-45,,
wprota,,14,
block,0,0.6,0,0.6,0.5,-48

!18
wpcsys,-1
wpoff,3.78,0.9,0
wprota,-45,,
wprota,,-14,
block,0,0.6,0,0.6,0.5,-48

!19
wpcsys,-1
wpoff,5.58,0.9,0
wprota,-45,,
wprota,,14,
block,0,0.6,0,0.6,0.5,-48

!20
wpcsys,-1
wpoff,7.2,0.9,0
wprota,-45,,
wprota,,-14,
block,0,0.6,0,0.6,0.5,-48

!第二排
!13
wpcsys,-1
wpoff,0.36,2.94,0
wprota,-45,,
wprota,,,14
block,0,0.6,0,0.6,0.5,-48

!14
wpcsys,-1
wpoff,3.78,2.94,0
wprota,-45,,
wprota,,,14
block,0,0.6,0,0.6,0.5,-48

!15
wpcsys,-1
wpoff,7.2,2.94,0
wprota,-45,,
wprota,,,14
block,0,0.6,0,0.6,0.5,-48

!第三排
!11
wpcsys,-1
wpoff,1.98,4.23,0
wprota,-45,,
wprota,,-14,
block,0,0.6,0,0.6,0.5,-48

!12
wpcsys,-1
wpoff,5.58,4.23,0
wprota,-45,,
wprota,,14,
block,0,0.6,0,0.6,0.5,-48

!第四排
!9
wpcsys,-1
wpoff,1.98,5.73,0
wprota,-45,,
wprota,,14,
block,0,0.6,0,0.6,0.5,-48

!10
wpcsys,-1
wpoff,5.58,5.73,0
wprota,-45,,
wprota,,-14,
block,0,0.6,0,0.6,0.5,-48

!第五排
!6
wpcsys,-1
wpoff,0.36,7.02,0
wprota,-45,,
wprota,,,14
block,0,0.6,0,0.6,0.5,-48

!7
wpcsys,-1
wpoff,3.78,7.02,0
wprota,-45,,
wprota,,,14
block,0,0.6,0,0.6,0.5,-48

!8
wpcsys,-1
wpoff,7.2,7.02,0
wprota,-45,,
wprota,,,14
block,0,0.6,0,0.6,0.5,-48

!第六排
!1
wpcsys,-1
wpoff,0.36,9.06,0
wprota,-45,,
wprota,,,-14
block,0,0.6,0,0.6,0.5,-48

!2
wpcsys,-1
wpoff,1.98,9.06,0
wprota,-45,,
wprota,,,14
block,0,0.6,0,0.6,0.5,-48

!3
wpcsys,-1
wpoff,3.78,9.06,0
wprota,-45,,
wprota,,,-14
block,0,0.6,0,0.6,0.5,-48

!4
wpcsys,-1
wpoff,5.58,9.06,0
wprota,-45,,
wprota,,,14
block,0,0.6,0,0.6,0.5,-48

!5
wpcsys,-1
wpoff,7.2,9.06,0
wprota,-45,,
wprota,,,-14
block,0,0.6,0,0.6,0.5,-48

wpcsys,-1
allsel

wpcsys,-1
*do,i,2,21,1
vsbw,i
*enddo
allsel,all,all
vplot

vdele,22,42,1,1

allsel
vglue,1,2,3,4,5,6,7,8,9
vglue,21,10,11,12,13,14,15,16,17
vglue,1,18,19,20


wpcsys,-1
wpoff,0,,-18
*do,i,2,20,1
vsbw,i
*enddo
allsel,all,all
vplot

vdele,1,19,1,1

allsel
vplot
vsel,s,volum,,21
vplot
esize,1
vatt,2,,1
mshape,1,3d
mshkey,0
vmesh,all

allsel
vplot
vsel,s,volum,,22,40
vplot
esize,1
vatt,1,,1
mshape,1,3d
mshkey,0
vmesh,all

!加载约束
/solu

allsel
asel,s,loc,z,-18
aplot
da,all,all
f,903,fy,-598000
allsel
solve
/post1
spoint,,0.78,2.94,0
aSEL,S, , , 156 !选择面
ESLa,S !选择已选面上的单元
NSle,S,1
fsum