*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=STEELLAG
101,301,302,402,401
*ELGEN,ELSET=STEELLAG
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=STEELEU
201,601,602,702,701
*ELGEN,ELSET=STEELEU
201,99,1,1,1,
*ELSET, ELSET=EULER1
201, 
*ELSET, ELSET=EULER2
299, 
*******************
*SOLID SECTION,ELSET=STEELEU,MATERIAL=STEEL, CONTROL=SECTEU
*SECTION CONTROLS, NAME=SECTEU, HOURGLASS=STIFFNESS
*SOLID SECTION,ELSET=STEELLAG,MATERIAL=STEEL, CONTROL=SECTLAG
*SECTION CONTROLS, NAME=SECTLAG, HOURGLASS=STIFFNESS
*MATERIAL,NAME=STEEL
*ELASTIC
2.E11, .3
*PLASTIC
250.E6,0.
700.E7,1.
*DENSITY
7850., 
*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, 200.0, 20.E-5, 250.,40.E-5, 200.0,1.0, 200. 
*INITIAL CONDITIONS, TYPE=VELOCITY
NALLLAG,1,200.
NALLEU,1,200.
*SURFACE,TYPE=ELEMENT, NAME=EULER2, REGION TYPE=EULERIAN
EULER2,S2
*NSET,NSET=QA_TEST_OUT
OUT,
**
*STEP
*DYNAMIC,EXPLICIT
,50.E-5
*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=2,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.00025
*END STEP
*STEP
*DYNAMIC,EXPLICIT
,450.E-5
*BOUNDARY,TYPE=VELOCITY,AMPLITUDE=AMP,REGION TYPE=EULERIAN
601,1,1,1.0
701,1,1,1.0
*ADAPTIVE MESH, ELSET=STEELEU,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.00225
*END STEP