*HEADING
- AXISYMMETRIC UPSETTING PROBLEM
- WITH RIGID SURFACE
- SECTION CONTROLS USED (HOURGLASS=STIFFNESS)
- FAST UPSETTING
- ADAPTIVE MESHING
*NODE
*NGEN,NSET=MIDDLE
*NGEN,NSET=TOP
*NFILL
MIDDLE,TOP,12,100
*NSET,NSET=AXIS,GEN
*ELEMENT,TYPE=CAX4RT,ELSET=BILLET
*ELGEN,ELSET=BILLET
*NODE, NSET=NRIGID
*SOLID SECTION,ELSET=BILLET,MATERIAL=METAL,CONTROL=B
*SECTION CONTROLS, HOURGLASS=STIFFNESS, NAME=B
*MATERIAL,NAME=METAL
*ELASTIC
200.E9,.3
*PLASTIC
7.E8,0.00
3.7E9,10.0
*RATE DEPENDENT
*SPECIFIC HEAT
586.,
*DENSITY
7833.,
*CONDUCTIVITY
52.,
*EXPANSION
1.2E-5,
*INELASTIC HEAT FRACTION
*BOUNDARY
MIDDLE,2
AXIS,1
2003,1
2003,3,6
*SURFACE,TYPE=ELEMENT,NAME=BILLET
TOP,S3
SIDE,S2
*SURFACE,NAME=RIGID,TYPE=SEGMENTS
START, 0.02,.015
LINE, 0.00,.015
*RIGID BODY, REF NODE=2003, ANALYTICAL SURFACE =RIGID
*ELSET,ELSET=TOP,GEN
*ELSET,ELSET=SIDE,GEN
*NSET, NSET=SIDE, GEN
*elset, elset=qa_test_bottom, gen
*nset, nset=qa_test_bottom, gen
*NSET, NSET=right_side
SIDE,
*nset, nset=qa_test_side
side,
*NSET, NSET=TEST_NRIGID
NRIGID,
*ELSET, ELSET=right_side
SIDE,
*STEP
*DYNAMIC TEMPERATURE-DISPLACEMENT, EXPLICIT
*FIXED MASS SCALING,ELSET=BILLET,FACTOR=1.E+4
*ADAPTIVE MESH, ELSET=BILLET, FREQ=10,MESH SWEEPS=3
*BOUNDARY,TYPE=VELOCITY
2003,2,,-9.E-2
*SURFACE INTERACTION,NAME=RIG_BILL
*FRICTION
 1.0,
*CONTACT PAIR,INTERACTION=RIG_BILL
RIGID,BILLET
*MONITOR,NODE=2003,DOF=2
*FILE OUTPUT,NUM=1
*EL FILE, ELSET=right_side
PEEQ,
*NODE FILE, NSET=NRIGID
U,RF
*NODE FILE, NSET=right_side
NT,
*OUTPUT,FIELD,VAR=PRESELECT,NUM=5
*OUTPUT,HISTORY
*NODE OUTPUT,NSET=NRIGID
U2,RF2
*ENERGY OUTPUT
ALLIE,ALLKE,ALLAE,ALLPD
******
*OUTPUT,FIELD,NUM=1, TIME MARKS=YES
*ELEMENT OUTPUT, ELSET=right_side
PEEQ,
*element output, elset=qa_test_bottom
 PEEQ,
*NODE OUTPUT, NSET=right_side
U, NT
*node output, nset=qa_test_bottom
 NT,
*node output, nset=qa_test_side
 U,
*NODE OUTPUT, NSET=TEST_NRIGID
RF,
*******
*END STEP