*HEADING
Extrusion - adiabatic analysis 
*RESTART,WRITE,FREQUENCY=50
*NODE
1,0.,0.
61,0.,.3
2001,.1,0.
2061,.1,.3
*NODE, NSET=NREF
99999, 0.5, 0.0
**
*NGEN,NSET=AXIS
1,61,1
*NGEN,NSET=OUTSIDE
2001,2061,1
*NFILL,NSET=ALL
AXIS,OUTSIDE,20,100
*ELEMENT,TYPE=CAX4,ELSET=WORK
1,1,201,203,3
*ELGEN,ELSET=WORK
1,30,2,1,10,200,100
*ELSET,ELSET=BOT,GENERATE
1,901,100
*ELSET,ELSET=SIDE,GENERATE
901,930,1
*ELSET,ELSET=TOP,GENERATE
30,930,100
**
**===================
*SURFACE,TYPE=SEGMENTS,NAME=CONTACTSURF,FILLET=0.075
START,.25,-.18
LINE,.0866,-.18
LINE,.0666,-.18
LINE,.0666,-.17
LINE,.0666,-.15
LINE,.0666,-.1
LINE,.099999,-.05
LINE,.099999,0.0
LINE,.099999,.3
LINE,.099999,.31
LINE,.2,.41
*RIGID BODY,REF NODE=NREF,ANALYTICAL SURFACE=CONTACTSURF
*SOLID SECTION,ELSET=WORK,MATERIAL=METAL
*MATERIAL,NAME=METAL
*ELASTIC
6.9E10,.33
*PLASTIC
** STRAIN RATE APPX .1 **
60.E6,0.0   ,20.
90.E6,.125  ,20.
113.E6,.25  ,20.
124.E6,.375 ,20.
133.E6,0.5  ,20.
165.E6,1.0  ,20.
166.E6,2.0  ,20.
60.E6,0.    ,50.
80.E6,.125  ,50.
97.E6,.25   ,50.
110.E6,.375 ,50.
120.E6,0.5  ,50.
150.E6,1.0  ,50.
151.E6,2.0  ,50.
50.E6,0.0   ,100.
65.E6,.125  ,100,
81.5E6,.25  ,100.
91.E6,.375  ,100.
100.E6,0.5  ,100.
125.E6,1.0  ,100.
126.E6,2.0  ,100.
45.E6,0.0   ,150.
63.E6,.125  ,150.
75.E6,.25   ,150.
89.E6,.5    ,150.
110.E6,1.   ,150.
111.E6,2.   ,150.
*SPECIFIC HEAT
880., 
*DENSITY
2700., 
*CONDUCTIVITY
204.,0.
225.,300.
*EXPANSION,ZERO=20.0 
8.42E-5, 
*INELASTIC HEAT FRACTION
.9, 
*NSET,NSET=TOP,GENERATE
61,2061,100
*NSET,NSET=ALL
1,2061,1
**
*** material properties are inconsequential
*** for rigid elements
***
*MATERIAL, NAME=RIG
*ELASTIC
1.0E10,0.3
*PLASTIC
** STRAIN RATE APPX .1 **
60.E6,0.0   ,20.
90.E6,.125  ,20.
113.E6,.25  ,20.
124.E6,.375 ,20.
133.E6,0.5  ,20.
165.E6,1.0  ,20.
166.E6,2.0  ,20.
60.E6,0.    ,50.
80.E6,.125  ,50.
97.E6,.25   ,50.
110.E6,.375 ,50.
120.E6,0.5  ,50.
150.E6,1.0  ,50.
151.E6,2.0  ,50.
50.E6,0.0   ,100.
65.E6,.125  ,100,
81.5E6,.25  ,100.
91.E6,.375  ,100.
100.E6,0.5  ,100.
125.E6,1.0  ,100.
126.E6,2.0  ,100.
45.E6,0.0   ,150.
63.E6,.125  ,150.
75.E6,.25   ,150.
89.E6,.5    ,150.
110.E6,1.   ,150.
111.E6,2.   ,150.
*SPECIFIC HEAT
880., 
*DENSITY
2700., 
*CONDUCTIVITY
204.,0.
225.,300.
*EXPANSION,ZERO=20.0 
8.42E-5,
**
*SURFACE, NAME=DEF1, TYPE=ELEMENT
 SIDE, S2
*SURFACE, NAME=DEF2, TYPE=ELEMENT
 BOT, S1
****
*** Interaction definitions
**
*SURFACE INTERACTION, NAME=INTER
*FRICTION
0.1
*GAP HEAT GENERATION
1.0,
**
*** Contact pair definitions
**
*CONTACT PAIR, INTERACTION=INTER, SMOOTH=0.48
 DEF1,CONTACTSURF
 DEF2,CONTACTSURF
*INITIAL CONDITIONS,TYPE=TEMPERATURE
ALL,20. 

** step 1
**
*STEP,AMPLITUDE=RAMP,NLGEOM, UNSYMM=YES
STABILIZE WORKPIECE INSIDE DIE
*STATIC,ADIABATIC
.1,1. 
*BOUNDARY
NREF,1,2,0.0
NREF,6,6,0.0
AXIS,1,1,0.0
TOP,2,2,-.000125
*PRINT,CONTACT=YES
*ENERGY PRINT,FREQUENCY=1
*OUTPUT, FIELD, FREQ=10,VARIABLE=PRESELECT
*ELEMENT OUTPUT, ELSET=WORK
TEMP
S
E
PE
PEEQ
*NODE OUTPUT, NSET=ALL
U
*END STEP
**
*** step 2
**
*STEP,INC=800,AMPLITUDE=RAMP,NLGEOM, UNSYMM=YES
EXTRUSION
*STATIC,ADIABATIC
.1,10.
*BOUNDARY,OP=NEW 
NREF,1,2,0.0
NREF,6,6,0.0
AXIS,1,1,0.0
TOP,2,2,-.25
*PRINT,CONTACT=YES
*OUTPUT, FIELD, FREQ=10,VARIABLE=PRESELECT
*ELEMENT OUTPUT, ELSET=WORK
TEMP
S
E
PE
PEEQ
*NODE OUTPUT, NSET=ALL
U
*ENERGY PRINT,FREQUENCY=1
*END STEP