*HEADING
Extrusion
*RESTART,WRITE,FREQUENCY=50
*NODE
*NODE, NSET=NREF
*NGEN,NSET=AXIS
*NGEN,NSET=OUTSIDE
*NFILL,NSET=ALL
AXIS,OUTSIDE,20,100
*ELEMENT,TYPE=CAX4T,ELSET=WORK
*ELGEN,ELSET=WORK
*ELSET,ELSET=BOT,GENERATE
*ELSET,ELSET=SIDE,GENERATE
*ELSET,ELSET=TOP,GENERATE
**
*** Node & element definitions for die
**
*NODE, NSET=CONTACT
*ELEMENT, TYPE=CAX4T, ELSET=CONTACT
*SOLID SECTION, ELSET=CONTACT, MATERIAL=RIG
*RIGID BODY, ELSET=CONTACT, ISOTHERMAL=YES,
REF NODE=99999
*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.
*SPECIFIC HEAT
880.,
*DENSITY
2700.,
*CONDUCTIVITY
204.,0.
225.,300.
*EXPANSION,ZERO=20.0
8.42E-5,
*INELASTIC HEAT FRACTION
**
*** material properties are inconsequential
*** for rigid elements
***
*MATERIAL, NAME=RIG
*ELASTIC
1.0E10,0.3
*SPECIFIC HEAT
880.,
*DENSITY
2700.,
*CONDUCTIVITY
204.,0.
225.,300.
*EXPANSION,ZERO=20.0
8.42E-5,
**
**
**
*NSET,NSET=TOP,GENERATE
*NSET,NSET=ALL
*INITIAL CONDITIONS,TYPE=TEMPERATURE
ALL,20.
**
*** surface definitions ***
**
*ELSET, ELSET=INDIE, GEN
*ELSET, ELSET=BOTDIE, GEN
*SURFACE, NAME=RIGID, TYPE=ELEMENT
INDIE, S3
BOTDIE,S4
*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
**
*** Contact pair definitions
**
*CONTACT PAIR, INTERACTION=INTER, SMOOTH=0.48
DEF1, RIGID
DEF2, RIGID
**
*** elset for output purposes
**
*ELSET,ELSET=EFILEOUT
BOT,SIDE,TOP
**
*** step 1
**
*STEP,AMPLITUDE=RAMP,NLGEOM, UNSYMM=YES
STABILIZE WORKPIECE INSIDE DIE
*COUPLED TEMPERATURE-DISPLACEMENT,DELTMX=100.
.1,1.
*BOUNDARY
NREF, 1, 2, 0.0
NREF, 6, 6, 0.0
NREF,11,11,20.0
AXIS,1,1,0.0
TOP,2,2,-.000125
ALL,11,11,20.0
**2061,1,1,0.0
*PRINT,CONTACT=YES
*NODE PRINT,FREQUENCY=10
U
RF
NT
RFL
*ENERGY PRINT,FREQUENCY=1
*END STEP
**
*** step 2
**
*STEP,INC=800,AMPLITUDE=RAMP,NLGEOM, UNSYMM=YES
EXTRUSION
*COUPLED TEMPERATURE-DISPLACEMENT,DELTMX=100.
.1,10.
*BOUNDARY,OP=NEW
NREF, 1, 2, 0.0
NREF, 6, 6, 0.0
NREF, 11,11,20.0
AXIS,1,1,0.0
TOP,2,2,-.25
**2061,1,1,0.0
*PRINT,CONTACT=YES
*EL PRINT,ELSET=CONTACT,FREQUENCY=10
S
E
*EL FILE,FREQUENCY=999,ELSET=EFILEOUT
S,E
PE,
*NSET,NSET=NFILEOUT
AXIS,OUTSIDE,TOP
*NODE FILE,FREQUENCY=999,NSET=NFILEOUT
NT,
*NODE PRINT,FREQUENCY=10
U
RF
NT
RFL
*ENERGY PRINT,FREQUENCY=1
*END STEP
**
*** step 3
**
*STEP,INC=200,AMPLITUDE=RAMP,NLGEOM, UNSYMM=YES
REMOVE CONTACT PAIRS
*COUPLED TEMPERATURE-DISPLACEMENT,DELTMX=100.
.1,.1,
*MODEL CHANGE,REMOVE, TYPE=CONTACT PAIR
DEF1, RIGID
DEF2, RIGID
*PRINT,CONTACT=YES
*NODE PRINT,FREQUENCY=10
U
RF
NT
RFL
*EL FILE,FREQUENCY=0
*NODE FILE,FREQUENCY=0
*ENERGY PRINT,FREQUENCY=1
*END STEP
**
*** step 4
**
*STEP,INC=200,AMPLITUDE=RAMP,NLGEOM, UNSYMM=YES
LET WORKPIECE COOL DOWN
*COUPLED TEMPERATURE-DISPLACEMENT,DELTMX=100.
100.,10000.,
*FILM
BOT,F1,20.,10.
TOP,F3,20.,10.
SIDE,F2,20.,10.
*PRINT,CONTACT=YES
*NODE PRINT,FREQUENCY=10
U
RF
NT
RFL
*ENERGY PRINT,FREQUENCY=1
*EL FILE,FREQUENCY=999,ELSET=EFILEOUT
S,E
PE,
*NODE FILE,FREQUENCY=999,NSET=NFILEOUT
NT,
*END STEP