ASSIGN INPUTT4='gpsc_fem.op4', UNIT=13
ASSIGN MASTER ='gpsc_igr.MASTER', DELETE
ASSIGN DBALL ='gpsc_igr.DBALL', DELETE
$
SOL 103 $
$
INCLUDE 'iter_guyan.v2001'
$
CEND
TITLE =GENERAL PURPOSE SPACECRAFT (GPSC)
SUBTITLE =ITERATIVE GUYAN REDUCTION
LABEL =FIND BEST 20 DOF
$
SPC = 10 $ Constrain booster interface points
METHOD = 70 $ Modes to 70 Hz
$
DISP(PLOT) = ALL $ Recover displacements
$
BEGIN BULK
$
PARAM WTMASS .00259
PARAM OMODES 13
PARAM ORTHO 0
PARAM NGUYAN 10
$PARAM GUFILT 0.95
$
EIGRL 70 1.0 70.0
$
$ Spacecraft bulk data
$
INCLUDE 'gpsc.blk'
INCLUDE 'gpsc.prp'
$
$ Large candidate set (500 DOF) to start process
$
INCLUDE 'gpsc_cdof.aset'
$
ENDDATA