You may receive warning messages when you run this problem. The version of the problem that appears
in the Modal Tutorial contains an explanation of the warnings.
/filname,modal/prep7
et,1,plane182! define plane182 as element type 1
et,2,solid185,,3! define solid185 as element type 2
mp,ex,1,38000
mp,dens,1,8.3e-5
mp,nuxy,1,.3
k,1! define keypoint 1 at 0,0,0
k,2,2! define keypoint 2 at 2,0,0
k,3,2.3,.2! define keypoint 3 at 2.3,.2,0
k,4,1.9,.45! define keypoint 4 at 1.9,.45,0
k,5,1,.25! define keypoint 5 at 1,.25,0
lstr,1,2! create a straight line between keypoints 1 and 2
lstr,5,1! create a straight line between keypoints 5 and 1
bsplin,2,3,4,5,,,-1,,,-1,-.25! create a b-spline
al,1,3,2
esize,.25
amesh,1
esize,,10
type,2
vext,all,,,,,10
/view,,1,1,1
/ang,1
/rep
eplot
finish
/solu
antype,modal! select modal analysis type
modopt,lanb,5! select the block lanczos mode-extraction method,
! extracting 5 modes
esel,u,type,,1! unselect element type 1
nsel,s,loc,z,0
d,all,all
nsel,all
mxpand,5
solve
finish
/post1
set,list,2
set,first
*get,FREQ1,active,0,set,freq
!pldisp,0! uncomment to plot the displacement
!anmode,10,.5e-1! uncomment to animate the displacement
set,next
*get,FREQ2,active,0,set,freq
!pldisp,0! uncomment to plot the displacement
!anmode,10,.5e-1! uncomment to animate the displacement
set,next
*get,FREQ3,active,0,set,freq
!pldisp,0! uncomment to plot the displacement
!anmode,10,.5e-1! uncomment to animate the displacement
set,next
*get,FREQ4,active,0,set,freq
!pldisp,0! uncomment to plot the displacement
!anmode,10,.5e-1! uncomment to animate the displacement
set,next
*get,FREQ5,active,0,set,freq
!pldisp,0! uncomment to plot the displacement
!anmode,10,.5e-1! uncomment to animate the displacement
*stat
finishRelease 15.0 - © SAS IP, Inc. All rights reserved. - Contains proprietary and confidential informationModal Analysis