*HEADING
AXISYMMETRIC UPSETTING PROBLEM -- FAST CASE,  CGAX4T ELEMENTS
--COUPLED TEMPERATURE DISPLACEMENT ANALYSIS
--FAST UPSETTING
--LINEAR DISPLACEMENT ELEMENTS (NO REZONING)
*RESTART,WRITE,FREQUENCY=5
*NODE,NSET=RSNODE
*NODE,NSET=N1
****
*NGEN,NSET=MIDDLE
*NGEN,NSET=TOP
*NSET,NSET=NALL
N1,MIDDLE,TOP
*NSET,NSET=TOPBND,GENERATE
*NFILL
MIDDLE,TOP,12,100
*NSET,NSET=AXIS,GENERATE
*ELEMENT,TYPE=CGAX4T,ELSET=METAL
*ELGEN,ELSET=METAL
*ELSET,ELSET=ESID,GENERATE
*ELSET,ELSET=ETOP,GENERATE
*ELEMENT,TYPE=CGAX4T,ELSET=RIGIDEL
*RIGIDBODY,ISOTHERMAL=YES,REFNODE=9999,ELSET=RIGIDEL
*SURFACE,TYPE=ELEMENT,NAME=BSURF
RIGIDEL,S1
*SURFACE,NAME=ASURF
ESID,S2
ETOP,S3
*CONTACT PAIR,INTERACTION=ROUGH
ASURF,BSURF
*SURFACE INTERACTION,NAME=ROUGH
*FRICTION,ROUGH
*SURFACE BEHAVIOR,NO SEPARATION
*SOLID SECTION,ELSET=RIGIDEL,MATERIAL=EL
*SOLID SECTION,ELSET=METAL,MATERIAL=EL
*MATERIAL,NAME=EL
*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
*STEP,AMPLITUDE=RAMP,NLGEOM,UNSYMM=YES
*COUPLED TEMPERATURE-DISPLACEMENT,DELTMX=100.
1.5E-3,.1,5.E-11,5.E-3
*PRINT,CONTACT=YES
*MONITOR,NODE=9999,DOF=2
*BOUNDARY
RSNODE,1
RSNODE,6
RSNODE,2,,-.009
*CONTACT PRINT,SLAVE=ASURF,FREQUENCY=40
*CONTACT FILE,SLAVE=ASURF,FREQUENCY=10
*EL PRINT, ELSET=METAL,FREQUENCY=40
S,MISES
E,PEEQ
*NODE PRINT, FREQUENCY=10
U,
RF,
NT,RFL
*NODE FILE,NSET=RSNODE
RF,
*NODE FILE, FREQUENCY=50
NT,
*END STEP