FINISH
/CLEAR,NOSTART
/PREP7
L=100
E=200E9
K,1,0,0,,
K,2,L,0,,
LSTR,1,2,10
ET,1,BEAM188
SECTYPE,1, BEAM, RECT, , 0
SECDATA,1,1,
MP,EX,1,E
MP,PRXY,1,0.3
MP,DENS,1,7800
LMESH,ALL
!------------ STATIC SOLUTION ------------------
/SOLU
D,1,ALL,0
F,2,FX,1000
PSTRES,ON
RESCONTROL,LINEAR
SOLVE
FINISH
!------------ MODAL SOLUTION ---------------------
/SOLU
ANTYPE,STATIC,RESTART,,,PERTURB
PERTURB,MODAL
SOLVE,ELFORM
MODOPT,QRDAMP,20
MXPAND,ALL,,,YES
SOLVE
FINISH
!------------- PSD SOLUTION -------------------
*GET,jnam,ACTIVE,0,JOBNAM
/ASSIGN,RST,%jnam%,RSTP
/SOLU
ANTYPE,SPECTR
SPOPT,PSD,,YES
D,1,UY,1
PSDUNIT,1,ACEL
PSDFRQ,1,,100.,500.,1000.,1200.,1500.
PSDVAL,1,1.,5.,8.,7.,4.
PFACT,1,BASE
SOLVE
FINISH
!-------------- PSD COMBINATION ---------------
/SOLU
ANTYPE,SPECTR
PSDCOM
SOLVE
FINISH