/BATCH
*SET,height,1
*SET,width,1
*SET,length,2
/PREP7
ET,1,SHELL63
ET,2,LINK8
R,1,0.02,,,,,,
R,2,0.01,,
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,EX,1,,2e5
MPDATA,PRXY,1,,0.3
N,1,,,,,,,
N,2,,,height,,,,
N,3,length,,,,,,
N,4,length,,height,,,,
N,5,length,width,,,,,
N,6,length,width,height,,,,
N,7,0,width,,,,,
N,8,0,width,height,,,,
TYPE,2
MAT,1
REAL,2
*DO,i,1,4
i1=2*i-1
i2=i1+1
E,i1,i2
*ENDDO
/VIEW,1,1,1,1
/AUTO,1
NWPAVE,2
RECTNG,0,length,0,width
TYPE,1
REAL,1
ESIZE,0.2,0,
MSHKEY,1
AMESH,ALL
/PLOPTS,INFO,0
/TRIAD,OFF
WPSTYLE,,,,,,,,0
/REPLOT
NUMMRG,ALL,,,,LOW
NUMCMP,ALL
SAVE
/VIEW,1,0.22,-0.85,0.47
/ANG,1,-30.6
/REPLOT
FINISH
/SOL
ANTYPE,4
TRNOPT,FULL
NSEL,S,LOC,Z,0
D,ALL,,,,,,ALL,,,,,
ALLSEL,ALL
EPLOT
/PSF,PRES,NORM,2,0,1
delt=0.5
tim=0
TIMINT,ON
*DO,i,1,10
j=i/5
tim=tim+0.5
TIME,tim
NSEL,S,LOC,Z,height
NSEL,R,LOC,X,j-0.2,j
ESLN,R,1
SFE,ALL,2,PRES,,100,,,
ALLS
NSUBST,5
OUTRES,ALL,ALL
SOLVE
!NSEL,S,LOC,Z,height
!NSEL,R,LOC,X,j-0.2,j
!ESLN,R,1
!SFEDELE,ALL,2,PRES
!ALLS
*ENDDO
FINISH
/POST1
AVPRIN,0,,
PLNSOL,S,EQV,0,1
FINISH
/POST26
RFORCE,2,1,F,Z,fz
ESOL,3,28,45,S,INT,SEQV45
/GROPT,AXNSC,1,5
PLVAR,2,,,,,,,,,,
/IMAGE,SAVE,force1,BMP
PLVAR,3,,,,,,,,,,
/IMAGE,SAVE,seqv45,BMP
FINISH |