/PREP7
ET,1,SOLID186
MP,EX,1,2.06E5
MP,PRXY,1,0.3
CYL4, , ,10, , , ,100
BLOCK,-50,50,-50,50,-20,0,
BLOCK,-50,50,-50,50,100,120,
SPH4, , ,10
VSBV,2,4
SPH4, , ,10
VADD,1,2
VSBW, 4
ESIZE,5,0,
MSHAPE,0,3D
MSHKEY,1
VSWEEP,ALL
MSHAPE,1,3D
MSHKEY,0
VMESH,ALL
!CREATING CONTACT ON THE BOTTOM
!TARGET
ASEL,S,,,19
ASEL,A,,,20
NSLA,S,1
ET,2,TARGE170
R,1,,,
TYPE,2
REAL,1
ESURF,ALL
!CONTACT
ASEL,S,,,18
ASEL,A,,,22
NSLA,S,1
ET,3,CONTA174
!KEYOPT,3,2,2
KEYOPT,3,4,1
KEYOPT,3,5,1
KEYOPT,3,9,1
KEYOPT,3,10,2
KEYOPT,3,12,5
TYPE,3
REAL,1
ESURF,ALL
ALLS
!CREATING CONTACT ON THE TOP
!TARGET
ASEL,S,,,11
NSLA,S,1
ET,4,TARGE170
R,2,,,
TYPE,4
REAL,2
ESURF,ALL
!CONTACT
ASEL,S,,,2
NSLA,S,1
ET,5,CONTA174
!KEYOPT,5,2,2
KEYOPT,5,3,1
KEYOPT,5,5,1
KEYOPT,5,9,1
KEYOPT,5,10,2
KEYOPT,5,12,5
TYPE,5
REAL,2
ESURF,ALL
ALLS
!lOADING
ASEL,S,LOC,Z,-20
DA,ALL,ALL,0
ASEL,S,LOC,Z,120
SFA,ALL,,PRESS,1
ALLS
/SOLU
SOLVE
/POST1
ASEL,S,,,18
ASEL,A,,,22
NSLA,S,1
ESLN,S,1
ESEL,R,TYPE,,3
ETABLE,CONTAREA,NMISC, 58,59,60,61
PLETAB,CONTAREA,NOAV
!ETABLE,CONTPRESS,CONT,PRES
!PLETAB,CONTPRES,NOAV
ETABLE,C_Press,CONT,PRES
ETABLE,C_Area,NMISC, 58,59,60,61
SMULT,C_Force,C_PRESS,C_AREA,1,1,
!SSUM
ETABLE,E_area,VOLU,
SMULT,E_Force,C_PRESS,E_AREA,1,1,
SSUM |