*HEADING
ADAPTIVE MESHING EXAMPLE
Units: N, m
*RESTART,TIMEMARKS=NO,WRITE,NUM=5
*NODE
301,1.,5.
400,28.6,5.
401,1.,5.575
500,28.6,5.575
*NSET,NSET=LEFTLAG
301,401
*NSET,NSET=RIGHTLAG
400,500
*NFILL,NSET=NALLLAG
LEFTLAG,RIGHTLAG,99,1
*ELEMENT,TYPE=CPE4R,ELSET=RUBBERLAG
101,301,302,402,401
*ELGEN,ELSET=RUBBERLAG
101,99,1,1,1,
*******************
*NODE
601,1.,9.
700,28.6,9.
701,1.,9.575
800,28.6,9.575
*NSET,NSET=LEFTEU
601,701
*NSET,NSET=RIGHTEU
700,800
*NFILL,NSET=NALLEU
LEFTEU,RIGHTEU,99,1
*ELEMENT,TYPE=CPE4R,ELSET=RUBBEREU
201,601,602,702,701
*ELGEN,ELSET=RUBBEREU
201,99,1,1,1,
*ELSET, ELSET=EULER1
201, 
*ELSET, ELSET=EULER2
299, 
*******************
*SOLID SECTION,ELSET=RUBBEREU,MATERIAL=RUBBER,CONTROL=SECTEU
*SECTION CONTROLS, NAME=SECTEU, HOURGLASS=STIFFNESS
*SOLID SECTION,ELSET=RUBBERLAG,MATERIAL=RUBBER,CONTROL=SECTLAG
*SECTION CONTROLS, NAME=SECTLAG, HOURGLASS=STIFFNESS
*MATERIAL,NAME=RUBBER
*HYPERELASTIC,POLYNOMIAL,N=1
.690E+6,.173E+6
*DENSITY
1068., 
*NSET,NSET=OUT
301,401,325,350,375
601,701,625,650,675
*NSET,NSET=QA_TESTOUT
301,401,325,350,375
601,701,625,650,675
*NSET,NSET=YSYM,GEN
301,400,1
401,500,1
601,700,1
701,800,1
*BOUNDARY
YSYM,YSYMM
*NSET, NSET=EULER
RIGHTEU,LEFTEU
*AMPLITUDE, DEFINITION=SMOOTH STEP,NAME=AMP,TIME=TOTAL TIME
0.0,7.7, 7.5E-3, 27.7,15.E-3, 7.7, 1.0,7.7
*INITIAL CONDITIONS, TYPE=VELOCITY
NALLLAG,1,7.7
NALLEU,1,7.7
*SURFACE,TYPE=ELEMENT, NAME=EULER2, REGION TYPE=EULERIAN
EULER2,S2
*NSET,NSET=QA_TEST_OUT
OUT,
**
*STEP
*DYNAMIC,EXPLICIT
,20.E-3
*BOUNDARY,TYPE=VELOCITY,AMPLITUDE=AMP
301,1,1,1.0
401,1,1,1.0
601,1,1,1.0
701,1,1,1.0
*FILE OUTPUT, NUMBER=2, TIME MARKS=YES
*NODE FILE,NSET=OUT
U,
***OUTPUT,HISTORY,TIME INTERVAL=1.E-4
***NODE OUTPUT,NSET=OUT
**U,V
***ENERGY OUTPUT
**ALLKE,ALLIE,ALLAE,ALLVD,ALLWK,ETOTAL,
**DT,
*OUTPUT,FIELD,NUMBER INTERVAL=3,VARIABLE=PRESELECT
*OUTPUT,FIELD,NUMBER INTERVAL=4
*NODE OUTPUT,NSET=QA_TESTOUT
U,V
*OUTPUT, FIELD, NUMBER INTERVAL=2, TIMEMARKS=YES
*NODE OUTPUT, NSET=QA_TEST_OUT
U,
*OUTPUT,HISTORY,VARIABLE=PRESELECT,TIMEINT=0.01
*END STEP
*STEP
*DYNAMIC,EXPLICIT
,110.E-3
*BOUNDARY,TYPE=VELOCITY,AMPLITUDE=AMP,REGION TYPE=EULERIAN
601,1,1,1.0
701,1,1,1.0
*ADAPTIVE MESH, ELSET=RUBBEREU,CONTROLS=UPDATED,FREQUENCY=1,INITIAL MESH SWEEPS=1
*ADAPTIVE MESH CONSTRAINT
EULER,1,1,0.0
*ADAPTIVE MESH CONTROLS,NAME=UPDATED,MOMENTUM ADVECTION=HALF INDEX SHIFT,
MESHING PREDICTOR=PREVIOUS
*FILE OUTPUT, NUMBER=2, TIME MARKS=YES
*NODE FILE,NSET=OUT
U,
*OUTPUT, FIELD, NUMBER INTERVAL=2, TIMEMARKS=YES
*NODE OUTPUT, NSET=QA_TEST_OUT
U,
*OUTPUT,HISTORY,VARIABLE=PRESELECT,TIMEINT=0.055
*END STEP