分离式钢筋混凝土的一个例子，不知道哪里错了？

王雨森

/PREP7  
ET,1,SOLID65
ET,2,PIPE20
ET,3,PLANE42
R,1,18,8.99,
R,2,8,3.99,
R,3, , , , , , ,
RMORE, , , , , , ,  
RMORE, ,
MPTEMP,,,,,,,,  
MPTEMP,1,0  
MPDATA,EX,1,,2.4e4  
MPDATA,PRXY,1,,0.2  
TB,CONC,1,1,9,  
TBTEMP,0
TBDATA,,0.4,1,3,-1,,
TBDATA,,,,,,,   
MPTEMP,,,,,,,,  
MPTEMP,1,0  
MPDATA,EX,2,,2e5
MPDATA,PRXY,2,,0.3  
TB,BKIN,2,1,2,1
TBTEMP,0
TBDATA,,350,,,,,
MPTEMP,,,,,,,,  
MPTEMP,1,0  
MPDATA,EX,3,,2e5
MPDATA,PRXY,3,,0.25
TB,BKIN,3,1,2,1
TBTEMP,0
TBDATA,,200,,,,,
N,1,0,0,0,,,,   
N,9,150,0,0,,,,
FILL,1,9,7, , ,1,1,1,   
FLST,4,9,1,ORDE,2   
FITEM,4,1   
FITEM,4,-9  
NGEN,11,9,P51X, , , ,30, ,1,
FLST,4,99,1,ORDE,2  
FITEM,4,1   
FITEM,4,-99
NGEN,19,1000,P51X, , , , ,-75,1,
/VIEW,1,1,1,1   
/ANG,1  
/REP,FAST   
type,2  
real,2  
mat,3   
SAVE
*do,ii,11,16,1  
e,ii,ii+1   
*enddo  
*do,ii,83,88,1  
e,ii,ii+1   
*enddo  
*do,ii,11,74,9  
e,ii,ii+9   
*enddo  
*do,ii,17,80,9  
e,ii,ii+9   
*enddo  
egen,19,1000,1,28,1
*do,ii,83,17083,1000
e,ii,ii+1000
*enddo  
*do,ii,89,17089,1000
e,ii,ii+1000
*enddo  
type,2  
real,1  
mat,2   
*do,ii,11,17011,1000
e,ii,ii+1000
*enddo  
*do,ii,17,17017,1000
e,ii,ii+1000
*enddo  
/eshape,1   
eplot   
K,1,,,,
K,2,150,,,  
K,3,150,300,,   
K,4,0,300,,
FLST,2,4,3  
FITEM,2,1   
FITEM,2,2   
FITEM,2,3   
FITEM,2,4   
A,P51X  
TYPE,   3   
MAT,       2
REAL,       1   
ESYS,       0   
SECNUM,
!*  
TYPE,   3   
MAT,       2
REAL,       1   
ESYS,       0   
SECNUM,
!*  
FLST,5,2,4,ORDE,2   
FITEM,5,2   
FITEM,5,4   
CM,_Y,LINE  
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,S,_Y  
!*  
FLST,5,2,4,ORDE,2   
FITEM,5,2   
FITEM,5,4   
CM,_Y,LINE  
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y   
!*  
LESIZE,_Y1, , ,10, , , , ,1
!*  
FLST,5,2,4,ORDE,2   
FITEM,5,1   
FITEM,5,3   
CM,_Y,LINE  
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y   
!*  
LESIZE,_Y1, , ,8, , , , ,1  
!*  
CM,_Y,AREA  
ASEL, , , ,       1
CM,_Y1,AREA
CHKMSH,'AREA'   
CMSEL,S,_Y  
!*  
MSHKEY,1
AMESH,_Y1   
MSHKEY,0
!*  
CMDELE,_Y   
CMDELE,_Y1  
CMDELE,_Y2  
!*  
/DIST,1,1.08222638492,1
/REP,FAST   
/DIST,1,1.08222638492,1
/REP,FAST   
/DIST,1,0.924021086472,1
/REP,FAST   
/DIST,1,0.924021086472,1
/REP,FAST   
/DIST,1,0.924021086472,1
/REP,FAST   
/DIST,1,0.924021086472,1
/REP,FAST   
/DIST,1,0.924021086472,1
/REP,FAST   
/DIST,1,0.924021086472,1
/REP,FAST   
/DIST,1,1.08222638492,1
/REP,FAST   
TYPE,   1   
EXTOPT,ESIZE,18,0,  
EXTOPT,ACLEAR,1
!*  
EXTOPT,ATTR,0,0,0   
MAT,1   
REAL,3  
ESYS,0  
!*  
FLST,2,1,5,ORDE,1   
FITEM,2,1   
VEXT,P51X, , ,0,0,-1350,,,,
EPLOT   
NUMMRG,ALL, , , ,LOW
NUMMRG,ALL, , , ,LOW
NUMCMP,ALL  
!*  
ANTYPE,0
DA,       1,SYMM
/VIEW,1,1   
/ANG,1  
/REP,FAST   
/DIST,1,1.08222638492,1
/REP,FAST   
/DIST,1,1.08222638492,1
/REP,FAST   
/DIST,1,1.08222638492,1
/REP,FAST   
/DIST,1,1.08222638492,1
/REP,FAST   
/DIST,1,1.08222638492,1
/REP,FAST   
/DIST,1,0.924021086472,1
/REP,FAST   
FLST,2,9,1,ORDE,2   
FITEM,2,1684
FITEM,2,-1692   
!*  
/GO
D,P51X, , , , , ,UX,UY, , , ,   
FLST,2,9,1,ORDE,2   
FITEM,2,982
FITEM,2,-990
!*  
/GO
D,P51X, ,-5, , , ,UY, , , , ,   
FINISH  
/SOL
ANTYPE,0
NLGEOM,1
NSUBST,200,0,0  
OUTRES,ERASE
OUTRES,ALL,ALL  
NEQIT,50
ALLSEL,ALL  
/STATUS,SOLU
SOLVE   

wypzf_8

这是做的混凝土的分离式分析吧？