*HEADING
:*MODAL DYNAMIC RESPONSE UNDER DYNAMIC FORCE;
SIMULATE 1-D CASE; GASKET BEHAVIOR MODEL FOR THE GASKET BEHAVIOR;
[GKPE4,GKPS4,GKPS4N,GKPE6,GKPS6,GKPS6N]
*RESTART,WRITE,FREQ=20
*NODE,NSET=N1
*NODE,NSET=N1000
*NODE,NSET=N2000
**
*NODE,NSET=N3000
*NODE,NSET=N4000
*NODE,NSET=N5000
**
*NSET, NSET=NALL
N1, N1000, N2000, N3000, N4000, N5000
*ELEMENT,TYPE=GKPE4,ELSET=SP1
*ELEMENT,TYPE=GKPS4,ELSET=SP1000
*ELEMENT,TYPE=GKPS4N,ELSET=SP2000
*ELEMENT,TYPE=GKPE6,ELSET=SP3000
*ELEMENT,TYPE=GKPS6,ELSET=SP4000
*ELEMENT,TYPE=GKPS6,ELSET=SP5000
*ELSET,ELSET=SP
SP1,SP1000,SP2000,SP3000,SP4000,SP5000
*GASKET SECTION,ELSET=SP,BEHAVIOR=BE
*GASKET BEHAVIOR,NAME=BE
*GASKET THICKNESS BEHAVIOR,TYPE=DAMAGE,DIRECTION=LOADING,VARIABLE=STRESS
*ELEMENT,TYPE=MASS,ELSET=MA1
*ELEMENT,TYPE=MASS,ELSET=MA1000
*ELEMENT,TYPE=MASS,ELSET=MA2000
*ELSET,ELSET=MA
MA1,MA1000,MA2000
*MASS,ELSET=MA
0.25,
*ELEMENT,TYPE=MASS,ELSET=MA3000
*ELEMENT,TYPE=MASS,ELSET=MA4000
*ELEMENT,TYPE=MASS,ELSET=MA5000
*ELSET,ELSET=MASS
MA3000,MA4000,MA5000
*MASS,ELSET=MASS
0.16666,
*AMPLITUDE,NAME=COS,DEFINITION=PERIODIC
1,10.,0.,0.
10.,0.
** N,w,t_0,A_0 | A_1,B_1  ==>  P = P_0 cos(wt) = 10 cos(10t)
****************************************
*MPC
TIE,2020,2002
TIE,2120,2012
**
TIE,5020,5022
TIE,5120,5022
TIE,5220,5022
****************************************
*EQUATION
**
**
**
*BOUNDARY
1,1,2,0
2,2,2,0
11,1,2,0
12,2,2,0
**
1001,1,2,0
1002,2,2,0
1011,1,2,0
1012,2,2,0
**
**
**
****************************************
*STEP
*FREQUENCY, EIGENSOLVER=LANCZOS, SIM=NO
6,1.0
*OUTPUT,FIELD,FREQ=0
*MODAL FILE
*END STEP
****************************************
*STEP
*MODAL DYNAMIC
1e-3,1e0,
*MODAL DAMPING
*SELECT EIGENMODES, GENERATE
*CLOAD, AMP=COS
2,1,-5.
12,1,-5.
**
1002,1,-5.
1012,1,-5.
**
2002,1,-5.
2012,1,-5.
**
3002,1,-3.33333333
3012,1,-3.33333333
**
**
*EL PRINT,FREQ=500
S,
E,
*EL FILE,FREQ=50
S,
E,
*NODE PRINT,FREQ=500
U,
RF,
*NODE FILE,FREQ=50
U,
RF,
*ENERGY PRINT,FREQ=500
*OUTPUT,FIELD,OP=NEW,FREQ=50
*ELEMENT OUTPUT,ELSET=SP
S,E
*NODE OUTPUT, NSET=NALL
U,RF
*OUTPUT,HISTORY,FREQ=50
*ELEMENT OUTPUT,ELSET=SP
S,E
*NODE OUTPUT, NSET=NALL
U,RF
*END STEP