*HEADING
PULSE LOADING, QUIET BOUND [CIN3D12R]
STEADY STATE DYNAMICS,DIRECT VERIFICATION
*NODE,NSET=FEN
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.
16,0.5,-1.,1.
17,1.,-1.,0.5
18,0.5,-1.,0.
19,0.,-1.,0.5
20,0.5,0.,1.
21,1.,0.,0.5
22,0.5,0.,0.,
23,0.,0.,0.5
24,0.,-0.5,1.
25,1.,-0.5,1.
26,1.,-0.5,0.
27,0.,-0.5,0.
102,0.,-1.
104,1.,-1.
106,0.,-1.,1.
108,1.,-1.,1.
116,0.5,-1.,1.
117,1.,-1.,0.5
118,0.5,-1.,0.
119,0.,-1.,0.5
*NSET,NSET=INTER1
2,4
*NSET,NSET=INTER2
6,8
*NSET,NSET=TOP,GENERATE
1,7,2
20,23,1
*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=C3D20,ELSET=FE
1,6,8,4,2,5,7,3,1,16,17,18,19,
20,21,22,23,24,25,26,27
*SOLID SECTION,ELSET=FE,MATERIAL=ONE
*ELEMENT,TYPE=CIN3D12R,ELSET=IE
2,102,104,108,106,118,117,116,119,9,11,15,13
*SURFACE,NAME=SFIN,TYPE=ELEMENT
1, S1
*SURFACE,NAME=SINF,TYPE=ELEMENT
2, S1
*TIE, NAME=TIE
SFIN, SINF
*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
NALL,3
TOP,2,2,1.E-4
*OUTPUT,HISTORY,FREQUENCY=1
*ENERGY OUTPUT
*ENERGY PRINT
*EL PRINT,FREQUENCY=0
*NODE PRINT
U, 
PU, 
*OUTPUT,FIELD
*NODE OUTPUT
U, 
*OUTPUT,HISTORY
*ENERGY OUTPUT,VAR=ALL
*NODE OUTPUT,NSET=NALL
 U,
*OUTPUT,FIELD
*NODE OUTPUT
 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
*OUTPUT,HISTORY,FREQUENCY=1
*ENERGY OUTPUT
*ENERGY PRINT
*EL PRINT,FREQUENCY=0
*NODE PRINT
U, 
PU, 
*OUTPUT,FIELD
*NODE OUTPUT
U, 
*END STEP