*HEADING
ADAPTIVE MESHING EXAMPLE
2D AXISYMMETRIC FORGING EXAMPLE
Units - N, m, sec
*RESTART, WRITE, NUMBER=10
*NODE
*NGEN, NSET=BOT
*NGEN, NSET=TOP
*NFILL,NSET=NALL
BOT, TOP, 12, 97
*NGEN, NSET=CENTER
*ELEMENT, TYPE=CAX4R
*ELGEN, ELSET=METAL0
*ELEMENT, TYPE=CAX4R
*ELGEN, ELSET=METAL1
*ELSET,ELSET=METAL
METAL0,METAL1
*ELEMENT, TYPE=MASS, ELSET=PMASS
*MASS, ELSET=PMASS
0.2,
*ELSET, ELSET=UPPER, GEN
*ELSET, ELSET=SIDE, GEN
*SOLID SECTION, ELSET=METAL, MATERIAL=STEEL
*MATERIAL, NAME=STEEL
*ELASTIC
200.E+9, .3
*PLASTIC
1.E+8, 0.0
3.1E+9, 10.0
*DENSITY
7800.E+1,
*BOUNDARY
BOT, 2,2
CENTER, 1,1
10000,1,1
10000,6,6
*SURFACE, TYPE=SEGMENTS, NAME=RSURF,
FILLET RADIUS=.001
*INCLUDE, INPUT=ale_sinusoid_forgingaxisurf.inp
*SURFACE,TYPE=ELEMENT, NAME=TARGET,
REGION TYPE=SLIDING
UPPER, S3
SIDE, S2
*RIGID BODY, REF NODE=10000,
ANALYTICAL SURFACE =RSURF
*STEP
*DYNAMIC, EXPLICIT
,.00038
*SURFACE INTERACTION, NAME=INTER
*CONTACT PAIR, INTERACTION=INTER
RSURF, TARGET
*BOUNDARY, TYPE=VELOCITY
10000, 2, 2, -20.
***OUTPUT,HISTORY,TIME INTERVAL=0.0
***ELEMENT OUTPUT,ELSET=UPPER
**S,LE,LEP,NE,NEP,PEEQ
***ENERGY OUTPUT
**ALLKE,ALLIE,ALLAE,ALLVD,ALLWK,ETOTAL,
**DT,
*FILE OUTPUT,NUMBER INTERVAL=1, TIMEMARKS=YES
*EL FILE, ELSET=QA_TEST
 LE,
*NODE FILE, NSET=QA_TEST
 U,
*ENERGY FILE
*****
*NSET, NSET=QA_TEST_REFN
*ELSET, ELSET=QA_TEST
UPPER,
*NSET, NSET=QA_TEST
TOP,
*OUTPUT, FIELD, TIME MARKS=YES, NUMBER INTERVAL=1
*ELEMENT OUTPUT, ELSET=QA_TEST
PEEQ,
*NODE OUTPUT, NSET=QA_TEST
U,
*NODE OUTPUT, NSET=QA_TEST_REFN
RF,
*OUTPUT, HIST, FREQ=9999
*ENERGY OUTPUT, VAR=PRESELECT
******
*ADAPTIVE MESH,ELSET=METAL,FREQUENCY=5,
MESH SWEEPS=3
*END STEP