/PREP7
RECTNG,0,60,0,-230,
RECTNG,0,230,0,-60,
RECTNG,0,230,0,-60,
CYL4,30,-230,30
CYL4,230,-30,30
FLST,2,5,5,ORDE,2
FITEM,2,1
FITEM,2,-5
AADD,P51X
LPLOT
LFILLT,28,24,15, ,
LFILLT,3,26,30, ,
APLOT
LPLOT
FLST,2,3,4
FITEM,2,2
FITEM,2,1
FITEM,2,4
AL,P51X
FLST,2,3,4
FITEM,2,5
FITEM,2,6
FITEM,2,7
AL,P51X
APLOT
FLST,2,3,5,ORDE,3
FITEM,2,1
FITEM,2,-2
FITEM,2,6
AADD,P51X
LPLOT
LFILLT,6,7,30, ,
FLST,2,3,4
FITEM,2,2
FITEM,2,7
FITEM,2,6
AL,P51X
APLOT
ASBA, 1, 1
ASBA, 3, 1
CYL4,30,-30,15
CYL4,30,-230,15
CYL4,230,-30,15
FLST,3,3,5,ORDE,3
FITEM,3,1
FITEM,3,3
FITEM,3,-4
ASBA, 2,P51X
ET,1,PLANE82
ET,2,PLANE82
KEYOPT,1,3,3
KEYOPT,1,5,0
KEYOPT,1,6,0
ETDEL,1
ETDEL,2
ET,1,PLANE82
KEYOPT,1,3,3
KEYOPT,1,5,0
KEYOPT,1,6,0
/REPLOT,RESIZE
R,0.01, ,
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,EX,1,,2.01e11
MPDATA,PRXY,1,,0.3
R,1,0.01,
R,1,0.01,
MSHAPE,0,2D
MSHKEY,0
CM,_Y,AREA
ASEL, , , , 5
CM,_Y1,AREA
CHKMSH,'AREA'
CMSEL,S,_Y
AMESH,_Y1
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
/UI,MESH,OFF
FINISH
/SOL
FLST,2,4,4,ORDE,2
FITEM,2,12
FITEM,2,-15
DL,P51X, ,ALL,
FLST,2,2,4,ORDE,2
FITEM,2,10
FITEM,2,-11
SFL,P51X,PRES,100,100
FLST,2,2,4,ORDE,2
FITEM,2,5
FITEM,2,-6
SFL,P51X,PRES,100,100
/STATUS,SOLU
SOLVE
FINISH
/POST1
PLDISP,0
/EFACET,1
PLNSOL, S,EQV, 0,1.0
/EFACET,1
PLNSOL, S,EQV, 0,1.0
/PNUM,ELEM,0
/REPLOT
NSEL,S,,,2,
PRNSOL,U,COMP