*HEADING
CASE A, S8R5 WITH SUBSTRUCTURE, FREQUENCY AT 0 REVS/SEC
 SUBSTRUCTURE GENERATION FILE vibrotplate_s8r5_substr_gen1.inp
 SHOULD BE RUN FIRST
*ELEMENT,TYPE=Z1,ELSET=SUPER, FILE=vibrotplate_s8r5_substr_gen1
1,1,2,3,61,62,63,121,122,123
*ELEMENT,TYPE=Z25,ELSET=SUPER, FILE=vibrotplate_s8r5_substr_gen1
25,10001,10002,10003,10061,10062,10063,10121,10122,10123
*ELEMENT,TYPE=Z50,ELSET=SUPER, FILE=vibrotplate_s8r5_substr_gen1
50,20001,20002,20003,20061,20062,20063,20121,20122,20123
*ELEMENT,TYPE=Z75,ELSET=SUPER, FILE=vibrotplate_s8r5_substr_gen1
75,30001,30002,30003,30061,30062,30063,30121,30122,30123
*SUBSTRUCTURE PROPERTY,ELSET=SUPER
*NSET,NSET=FIXED
1,2,3,10001,10002,10003
20001,20002,20003,30001,30002,30003
*BOUNDARY
FIXED,ENCASTRE
**
****************************  STEP 1:  MODEL ONLY ELEMENT 1
**
*STEP
REMOVE ELEMENTS 25, 50, AND 75
*STATIC
1,1
*MODEL CHANGE,REMOVE,TYPE=ELEMENT
25,50,75
*OUTPUT,VAR=PRESELECT,FIELD
*END STEP
**
****************************  STEP 2: FREQUENCY AT 0 REVS/SEC
**
*STEP
EIGENFREQUENCY AT OMEGA = 0 RAD/SEC
*FREQUENCY, eigensolver=lanczos
1, , 
*END STEP
**
****************************  STEP 3:  MODEL ONLY ELEMENT 25
**
*STEP
REMOVE ELEMENT 1, ADD ELEMENT 25
*STATIC
1,1
*MODEL CHANGE,REMOVE,TYPE=ELEMENT
1
*MODEL CHANGE,ADD,TYPE=ELEMENT
25
*END STEP
**
****************************  STEP 4: FREQUENCY AT 25 REVS/SEC
**
*STEP
EIGENFREQUENCY AT OMEGA = 157.08 RAD/SEC
*FREQUENCY, eigensolver=lanczos
1, , 
*END STEP
**
****************************  STEP 5:  MODEL ONLY ELEMENT 50
**
*STEP
REMOVE ELEMENT 25, ADD ELEMENT 50
*STATIC
1,1
*MODEL CHANGE,REMOVE,TYPE=ELEMENT
25
*MODEL CHANGE,ADD,TYPE=ELEMENT
50
*END STEP
**
****************************  STEP 6: FREQUENCY AT 50 REVS/SEC
**
*STEP
EIGENFREQUENCY AT OMEGA = 314.26 RAD/SEC
*FREQUENCY, eigensolver=lanczos
1, , 
*END STEP
**
****************************  STEP 7:  MODEL ONLY ELEMENT 75
**
*STEP
REMOVE ELEMENT 50, ADD ELEMENT 75
*STATIC
1,1
*MODEL CHANGE,REMOVE,TYPE=ELEMENT
50
*MODEL CHANGE,ADD,TYPE=ELEMENT
75
*END STEP
**
****************************  STEP 8: FREQUENCY AT 75 REVS/SEC
**
*STEP
EIGENFREQUENCY AT OMEGA = 471.24  RAD/SEC
*FREQUENCY, eigensolver=lanczos
1, , 
*END STEP