*HEADING
ADAPTIVE MESHING EXAMPLE
Units: N, m
*RESTART,TIMEMARKS=NO,WRITE,NUM=5
*NODE
301,1., 1.
400,1.,28.6
401,1.575,1.
500,1.575,28.6
*NSET,NSET=LEFTLAG
301,401
*NSET,NSET=RIGHTLAG
400,500
*NFILL,NSET=NALLLAG
LEFTLAG,RIGHTLAG,99,1
*ELEMENT,TYPE=CAX4R,ELSET=RUBBERLAG
101,301,401,402,302
*ELGEN,ELSET=RUBBERLAG
101,99,1,1,1,
*******************
*NODE
601,1., 30.
700,1., 57.6
701,1.575,30.
800,1.575,57.6
*NSET,NSET=LEFTEU
601,701
*NSET,NSET=RIGHTEU
700,800
*NFILL,NSET=NALLEU
LEFTEU,RIGHTEU,99,1
*ELEMENT,TYPE=CAX4R,ELSET=RUBBEREU
201,601,701,702,602
*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=XSYM,GEN
301,400,1
401,500,1
601,700,1
701,800,1
*BOUNDARY
XSYM,XSYMM
*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,2,7.7
NALLEU,2,7.7
*SURFACE,TYPE=ELEMENT, NAME=EULER2, REGION TYPE=EULERIAN
EULER2,S3
*NSET,NSET=QA_TEST_OUT
OUT,
**
*STEP
*DYNAMIC,EXPLICIT
,20.E-3
*BOUNDARY,TYPE=VELOCITY,AMPLITUDE=AMP
301,2,2,1.0
401,2,2,1.0
601,2,2,1.0
701,2,2,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,2,2,1.0
701,2,2,1.0
*ADAPTIVE MESH, ELSET=RUBBEREU,,CONTROLS=UPDATED,FREQUENCY=1,INITIAL MESH SWEEPS=1
*ADAPTIVE MESH CONSTRAINT
EULER,2,2,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