*HEADING
PULSE LOADING, QUIET BOUND [CIN3D8]
STEADY STATE DYNAMICS,DIRECT VERIFICATION
*NODE, NSET=NALL
1,0.,0.
2,0.,-1.
3,1.,0.
4,1.,-1.
5,0.,0.,1
6,0.,-1.,1.
7,1.,0.,1.
8,1.,-1.,1.
102,0.,-1.
104,1.,-1.
106,0.,-1.,1.
108,1.,-1.,1.
*NSET,NSET=FEN,GENERATE
1,8,1
*NSET,NSET=INTER1
2,4
*NSET,NSET=INTER2
6,8
*NSET,NSET=TOP,GENERATE
1,7,2
*NCOPY,OLD SET=INTER1,CHANGE NUMBER=7,POLE,NEW SET=BFAR
1, 
*NCOPY,OLD SET=INTER2,CHANGE NUMBER=7,POLE,NEW SET=FFAR
1, 
*NSET,NSET=NALL
BFAR,FFAR,FEN
*ELEMENT,TYPE=C3D8,ELSET=FE
1,6,8,4,2,5,7,3,1
*SOLID SECTION,ELSET=FE,MATERIAL=ONE
*ELEMENT,TYPE=CIN3D8,ELSET=IE
2,102,104,108,106,9,11,15,13
*SURFACE,NAME=SFIN,TYPE=ELEMENT
1, S1
*SURFACE,NAME=SINF,TYPE=ELEMENT
2, S1
*TIE, NAME=TIE
SINF, SFIN
*SOLID SECTION,ELSET=IE,MATERIAL=ONE
*MATERIAL,NAME=ONE
*ELASTIC
1.,.1
*DENSITY
.01, 
*RESTART,WRITE,FREQUENCY=1
*STEP
*STEADYSTATEDYNAMICS,DIRECT,FREQUENCY SCALE=LINEAR
0.01,0.04,4,1
*BOUNDARY
NALL,1,1
NALL,3,3
TOP,2,2,1.E-4
*ENERGY PRINT
*EL PRINT,FREQUENCY=0
*NODE PRINT
U, 
PU, 
*OUTPUT,FIELD
*ENERGY OUTPUT
*NODE OUTPUT
U, 
*OUTPUT,HISTORY
*ENERGY OUTPUT
*OUTPUT,HISTORY
*NODE OUTPUT, NSET=NALL
U, 
*END STEP
*STEP
*STEADYSTATEDYNAMICS,DIRECT,FREQUENCY SCALE=LINEAR
0.01,0.04,4,1
*BOUNDARY,OP=NEW
NALL,2,3
TOP,1,1,1.E-4
*ENERGY PRINT
*EL PRINT,FREQUENCY=0
*NODE PRINT
U, 
PU, 
*OUTPUT,FIELD
*ENERGY OUTPUT
*NODE OUTPUT
U, 
*OUTPUT,HISTORY
*ENERGY OUTPUT
*NODE OUTPUT, NSET=NALL
U, 
*END STEP