/prep7
et,1,188
keyopt,1,3,3
sectype,1,beam,rect
secdata,0.1,1
!r,1,.1,.001,.1
mp,ex,1,1e7
mp,nuxy,1,.3
mp,dens,1,.0003
k,1
k,2, ,100
k,3,100,100
k,4,100
l,1,2
l,2,3
l,3,4
esize,,10
lmesh,all
d,all,uz,0
d,all,rotx,0
d,all,roty,0
d,node(0,0,0),all
d,node(100,0,0),all
fini
/solu
antype,modal
modop,lanb,2! Lanczos eigensolver, request 2 modes
mxpand,2! Expand 2 modes
solve
fini
/solu
antype,spectrum! Spectrum analysis
spopt,mprs! Multi-point response (use all extracted modes by default)!********** Spectrum #1 **********
spunit,1,accg! Define the type of 1st spectrum (acceleration)
spfreq,1,1.0,100.0! Define the frequency range [1,100]Hz of 1st spectrum
spval,1,,1.0,1.0! Define acceleration values of 1st spectrum
d,node(0,0,0),uy,1.0! Define constraint
pfact,1! Calculate participation factors of 1st spectrum
! (base excitation by default)
!********** Spectrum #2 **********
spunit,2,accg! Define the type of 2nd spectrum (acceleration)
spfreq,2,1.0,100.0! Define the frequency range [1,100]Hz of 2nd spectrum
spval,2,,0.8,0.8! Define acceleration values of 2nd spectrum
d,node(0,0,0),uy,0! Remove previous constraint
d,node(100,0,0),uy,1.0! Define new constraint
pfact,2! Calculate participation factors of 2nd spectrum
! (base excitation by default)
srss! Combine using SRSS (displacement solution by default)
solve
fini/post1
/inp,,mcom! Input the mode combination file to perform the
! combination of displacement solutions
prns,u,y! Printout displacement uy
finishRelease 15.0 - © SAS IP, Inc. All rights reserved. - Contains proprietary and confidential informationSpectrum Analysis