*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=STEELLAG
101,301,401,402,302
*ELGEN,ELSET=STEELLAG
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=STEELEU
201,601,701,702,602
*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=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,200, 20.E-5, 250.,40.E-5, 200., 1.0,200.
*INITIAL CONDITIONS, TYPE=VELOCITY
NALLLAG,2,200.
NALLEU,2,200.
*SURFACE,TYPE=ELEMENT, NAME=EULER2, REGION TYPE=EULERIAN
EULER2,S3
*NSET,NSET=QA_TEST_OUT
OUT,
**
*STEP
*DYNAMIC,EXPLICIT
,50.E-5
*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=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,2,2,1.0
701,2,2,1.0
*ADAPTIVE MESH, ELSET=STEELEU,CONTROLS=UPDATED,FREQUENCY=1,INITIAL MESH SWEEPS=1
*ADAPTIVE MESH CONSTRAINT
EULER,2,2,0.0
*ADAPTIVE MESH CONTROLS,NAME=UPDATED,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