mp,ex,1,210e9! Pa
mp,nuxy,1,.29! No units
mp,dens,1,7850! kg/m3
et,1,182
rectng,0,10,0,2,
esize,0.5
amesh,all
nsel,s,loc,x
d,all,ux
nsel,s,loc,y,0
d,all,uy
nsel,s,loc,x,10
d,all,ux,0.1
nall
finish
/solu
antype,static
time,1
nsubst,10,10,10
solve! Solve for Sample Prestress Loads
fini
/post1
*get,mxnid,node,,num,max
nsel,s,node,,mxnid
prnsol,s,comp
nsel,all,all
*vget,nl,node,,nlist
*vget,sx,node,,s,x
*vget,sy,node,,s,y
*vget,sz,node,,s,z
*cfopen,tutor-bag07s-ist.dat! Generate Ist File
*vwrite
('INIS,SET,NODE,1')
*vwrite,nl(1),sx(1),sy(1),sz(1)
('INIS,DEFI,',F4.0,' , , , , ',E,' , ',E,' , ',E,',0.0,0.0,0.0')
*cfclos
/solu
ddele,all,all
d,all,all
nall
antype,static
time,1
nsubst,10,10,10
/inp,tutor-bag07s-ist.dat! Read in Node Based IST Data
esel,s,elem,,1,80,5
inis,list
allsel,all
rescontrol,linear,all,1
solve
finish
!********** Perform a perturbed modal analysis **********
/solu
antype,static,restart,,,perturb
perturb,modal,,,nokeep
solve,elform
nsel,s,loc,x
nsel,a,loc,x,10.0
d,all,ux
nsel,s,loc,y,0
d,all,uy
nall
modopt,lanb,5
mxpand,5
solve
fini
/post1Release 15.0 - © SAS IP, Inc. All rights reserved. - Contains proprietary and confidential informationInitial State