$ scrspcs3   spcd approach testbed
ID MSC, D10312D $ DBS=D10312D
TIME 5
$SOL 63
diag 8
$SOL 103
sol 112
include 'scrspca.v2001'
CEND
TITLE = RESPONSE SPECTRUM ANALYSIS, CHECKOUT RUN               scrspcs3
SUBTITLE = FRAME MODEL, 5 MORE LOADING CONDITIONS, one s.e.
ECHO     = BOTH
SET 2    = 2,3 $ GRID POINTS AT TOP OF STRUCTURE
SET 3    = 1,9 $ BARS AT BASE POINTS
DISP     = 2
ACCE     = 2
ELFO     = 3
SDAMP    = 1 $ MODAL DAMPING
METHOD = 12  $ THIS CARD REQUIRED AS A QUALIFIER IN V66 -- JFC 20MAY88
Spc = 1 S new in SPCD method
Load = 2 $
  SUBCASE 1
LABEL    = INPUT ACCELERATION IN X-DIRECTION
DLOAD    = 1
  SUBCASE 2
LABEL    = INPUT ACCELERATION IN Y-DIRECTION
DLOAD    = 2
 SUBCASE 3
LABEL    = COMBINED X,Y INPUT ACCELERATIONS, ABS SUMMATION
DLOAD    = 3
PARAM, OPTION, ABS$ DEFAULT
 SUBCASE 4
LABEL    = COMBINED INPUT, SRSS SUMMATION
PARAM, OPTION, SRSS $ SQUARE ROOT OF SUM OF ROOT-MEAN-SQUARES
DLOAD    = 3
 SUBCASE 5
LABEL    = COMBINED INPUT, NRL SUMMATION
PARAM, OPTION, NRL $ SRSS EXCEPT USE ABS FOR CLOSE ROOTS
PARAM,  CLOSE,  1.01 $ MODES WITH FREQS. WITHIN ONE PERCENT ARE CLOSE
DLOAD    = 3
BEGIN BULK
Seset,	1,	2 $ gid 2 in s.e. 1
Csupext,	1,	7 $ attach for grdpnt
$ DEFINE GRIDPOINTS AND CONSTRAINTS
$GRID   ID      CP      X1      X2      X3      CD      PS
GRID    1                       168.                    345
GRID    2                       336.                    345
GRID    3                       504.                    345
GRID    4               264.    504.                    345
GRID    5               264.    336.                    345
GRID    6               264.    168.                    345
GRID    7                                               3456
GRID    8               264.                            3456
$ DEFINE BAR ELEMENTS
$CBAR   EID     PID     GA      GB      X1,GO   X2      X3
CBAR    1       1       7       1       4
CBAR    2       2       1       2       1.0
CBAR    3       3       2       3       1.0
CBAR    4       4       3       4       7
CBAR    5       4       2       5       0.0     1.0
CBAR    6       4       1       6       7
CBAR    7       3       4       5       3
CBAR    8       2       5       6       3
CBAR    9       1       6       8       3
$ BAR PROPERTIES AND MATERIALS
$PBAR   PID     MID     A       I1
PBAR    1       1       17.06   476.1
PBAR    2       1       13.24   350.8
PBAR    3       1       9.12    238.4
PBAR    4       1       10.     339.2
$MAT1   MID     E       G       NU      RHO     A       TREF    GE
MAT1    1       3.+7            .33     7.35-4
$ DEFINE POINTS OF EXCITATION
$SUPORT ID      C
$SUPORT  7       12
$ replace suport with spc, spcd for spcd method
spc,	1,	7	12
spcd,	2,	7,	1,	1.0
spcd,	2,	7,	2,	1.0
$RBE2   EID     GN      CM      GM1
RBE2    40      7       12      8
$ remove large masses for spcd method
$CMASS2 EID     M       G1      C1      G2      C2
$CMASS2  30      1.5+6   7       1
$CMASS2  31      1.5+6   7       2
$ EIGENVALUE EXTRACTION DATA
$ EIGR  SID     METHOD  F1      F2      NE      ND              E       ABC
EIGR    12      lan     0.      100.                                    EIGR1
TABLED1,10 $ UNIT TABLE
        0.0     1.0     1000.0  1.0     ENDT
$       F1      U1      F2      U2
$ PARAMETERS
$PARAM  N       V1      V2
PARAM,  GRDPNT, 7  $ TOTAL MASS MATRIX (OPTIONAL)
$PARAM   SCRSPEC 0
$                       SUPORT  DOF X   SUPORT  DOF Y
$       SID     S       S1      TID1    S2      TIDL
DLOAD   1       1.      1.      100     0.      100
DLOAD   2       1.      0.      100     0.5     100
DLOAD   3       1.      1.      100     0.5     100
$ BUILD SPECTRUM FROM CONSTANT DAMPING LINES
DTI     SPECSEL 100             A       1000    .01     2000    .02     +100
$                               ACCEL   TID1    DAMP1   TID2    DAMP2
+100    3000    .03
$       TID3    DAMP3
$ INPUT CONSTANT DAMPING LINES OF SPECTRUM
TABLED1,1000,,,,,,,,+TAB1 $ THE ONE PER CENT DAMPING LINE
+TAB1   0.0     0.0     5.12    200.    100.    200.    200.    0.      +TAB2
$       F0      A0      F1      A1      F2      A2      F3      A3
+TAB2   1000.   0.      ENDT
$       F4      A4
TABLED1, 2000 $ TWO PER CENT
        0.0     0.0     5.12    100.    100.    100.    200.    0.
        1000.   0.      ENDT
TABLED1,3000    $ THREE PER CENT
        0.0     0.0     5.12    70.     100.    70.     200.    0.
        1000.   0.      ENDT
$ MODAL DAMPING LINE
TABDMP1 1       CRIT
        5.0     .04     105.0   .02     ENDT
ENDDATA