!       TITLE:  modal_solv.mac (SOLVE)

/COM,ANSYS RELEASE  5.4    UP19970828         16:53:05    01/06/2000
/input,start,ans     ,/export/cae/ansys54/docu/,,,,,,,,,,,,,,,,1
!  
/prep7
!  
ET,1,PLANE42
ET,2,SOLID45
!  
/units,bin
!  
UIMP,1,EX, , ,30e6,
UIMP,1,DENS, , ,.101/386.4,
UIMP,1,NUXY, , ,0.33,
!
k,,0.5,0
k,,0,0.5
k,,-0.5,0
k,,0,-0.5
!   
csys,1
!  
l,1,2
l,2,3
l,3,4
l,4,1
a,1,2,3,4
!  
LESIZE,ALL, , ,4,1,1
!
MSHKEY,1
AMESH,all
!
/VIEW, 1 ,1,1,1
/ANG, 1
/REP,FAST
/DIST, 1 ,1.371742,1
/REP,FAST
/DIST, 1 ,1.371742,1
/REP,FAST
/DIST, 1 ,1.371742,1
/REP,FAST
/DIST, 1 ,1.371742,1
/REP,FAST
/FOC, 1 ,-0.300000,,,1
/REP,FAST
!   
ESIZE,0,4*20,
TYPE,   2
MAT,       1
REAL,
ESYS,       0
!  
VOFFST,1,20, ,
!  
/ZOOM, 1 ,BACK
/DIST, 1 ,1.371742,1
/REP,FAST
/DIST, 1 ,1.371742,1
/REP,FAST
/DIST, 1 ,1.371742,1
/REP,FAST
/DIST, 1 ,1.371742,1
/REP,FAST
/FOC,  1, -3.109    , -2.586    ,  5.695
/REPLO
!  
/title,Harmonic Analysis Trial
/REPLOT
! 
nsel,s,loc,z,0,0,,
d,all,all
!   
ALLSEL,ALL
VSEL,ALL
ASEL,ALL
LSEL,ALL
KSEL,ALL
ESEL,ALL
NSEL,ALL
!
eplot
!
/SOLU
!  
ANTYPE,2
!  
MODOPT,SUBSP,10
EQSLV,FRONT
MXPAND,10, , ,0
LUMPM,0
PSTRES,0
!  
MODOPT,SUBSP,10,0,5000, ,OFF
RIGID,
SUBOPT,0,0,0,0,0,ALL
!
solve
!
finish
!