/PREP7
ET,1,SHELL63
R,1,0.1
MP,EX,1,2e11
MP,NUXY,1,0.3
MP,DENS,1,7800
BLC4,,,10,2
AATT,1,1,1,0
AESIZE,ALL,0.8
MSHAPE,0,2D
MSHKEY,0
AMESH,ALL
FINISH
SAVE
/SOLU
ANTYPE,4
TRNOPT,FULL
LSEL,S,LOC,X,0
DL,ALL,,ALL,0
ALLSEL,ALL
FZ_KP=KP(10,2,0)
DT=0.1
*DO,J,1,40
FK,FZ_KP,FZ,3000*SIN(2*3.14*DT*J)
TIME,DT*J
NSUBST,1,,,1
KBC,0
OUTRES,ALL,ALL
SOLVE