*HEADING
 DEEP DRAWING OF CYLINDRICAL CUP WITH CAX4R                
*RESTART,WRITE,FREQUENCY=25
*NODE
101,
181,0.1
301,0.0,0.00082
381,0.1,0.00082
*NGEN,NSET=BOT
101,181,2
*NGEN,NSET=TOP
301,381,2
*NSET,NSET=WRKPC
BOT,TOP
*NODE,NSET=DIE
100,0.1,-0.05
*NODE,NSET=PUNCH
200,0.,.05
*NODE,NSET=HOLDER
300,0.1,0.05
*NSET,NSET=TOOLS
PUNCH,DIE,HOLDER
*NSET,NSET=CENTER
101,301
*ELEMENT,TYPE=CAX4R,ELSET=BLANK
201,101,103,303,301
*ELGEN,ELSET=BLANK
201,40,2,2
*ELSET,ELSET=ALL
BLANK, 
*SOLID SECTION,MATERIAL=STEEL,ORIENTATION=LOCAL,
ELSET=BLANK
*ORIENTATION,NAME=LOCAL
1.,0.,0.,0.,1.,0.
0,0.,
*MATERIAL,NAME=STEEL
*ELASTIC
2.1E11,0.3
*PLASTIC,HARDENING=ISOTROPIC
  0.91294E+08, 0.00000E+00
  0.10129E+09, 0.21052E-03
  0.11129E+09, 0.52686E-03
  0.12129E+09, 0.97685E-03
  0.13129E+09, 0.15923E-02
  0.14129E+09, 0.24090E-02
  0.15129E+09, 0.34674E-02
  0.16129E+09, 0.48120E-02
  0.17129E+09, 0.64921E-02
  0.18129E+09, 0.85618E-02
  0.19129E+09, 0.11080E-01
  0.20129E+09, 0.14110E-01
  0.21129E+09, 0.17723E-01
  0.22129E+09, 0.21991E-01
  0.23129E+09, 0.26994E-01
  0.24129E+09, 0.32819E-01
  0.25129E+09, 0.39556E-01
  0.26129E+09, 0.47301E-01
  0.27129E+09, 0.56159E-01
  0.28129E+09, 0.66236E-01
  0.29129E+09, 0.77648E-01
  0.30129E+09, 0.90516E-01
  0.31129E+09, 0.10497E+00
  0.32129E+09, 0.12114E+00
  0.33129E+09, 0.13916E+00
  0.34129E+09, 0.15919E+00
  0.35129E+09, 0.18138E+00
  0.36129E+09, 0.20588E+00
  0.37129E+09, 0.23287E+00
  0.38129E+09, 0.26252E+00
  0.39129E+09, 0.29502E+00
  0.40129E+09, 0.33054E+00
  0.41129E+09, 0.36929E+00
  0.42129E+09, 0.41147E+00
  0.43129E+09, 0.45729E+00
  0.44129E+09, 0.50696E+00
  0.45129E+09, 0.56073E+00
  0.46129E+09, 0.61881E+00
  0.47129E+09, 0.68145E+00
  0.48129E+09, 0.74890E+00
  0.49129E+09, 0.82142E+00
  0.50129E+09, 0.89928E+00
  0.51129E+09, 0.98274E+00
  0.52129E+09, 0.10721E+01
*ELSET,ELSET=EDIE,GENERATE
231,279,2
*ELSET,ELSET=EHOLDER,GENERATE
241,279,2
*ELSET,ELSET=EPUNCH,GENERATE
201,249,2
*RIGID BODY,ANALYTICAL SURFACE=BSURF,REF NODE=100
*SURFACE,TYPE=SEGMENTS,NAME=BSURF
START,0.05125,-0.060
LINE,0.05125,-0.005
CIRCL,0.05625,0.0,0.05625,-0.005
LINE,0.1,0.0
*RIGID BODY,ANALYTICAL SURFACE=DSURF,REF NODE=300
*SURFACE,TYPE=SEGMENTS,NAME=DSURF
START,0.1,0.00082
LINE,0.05630,0.00082
CIRCL,0.05625,.00087,.05630,.00087
LINE,0.05625,.06
*RIGID BODY,ANALYTICAL SURFACE=FSURF,REF NODE=200
*SURFACE,TYPE=SEGMENTS,FILLET RADIUS=.013,
NAME=FSURF
START,0.05,0.060
LINE,0.05,2.250782E-3
CIRCL,0.0,0.001,0.0,1.001
LINE,-0.001,0.001
*SURFACE,NAME=ASURF
EDIE,S1
*SURFACE,NAME=CSURF
EHOLDER,S3
*SURFACE,NAME=ESURF
EPUNCH,S3
*CONTACT PAIR,INTERACTION=ROUGH1,TYPE=SURFACE
ASURF,BSURF
*CONTACT PAIR,INTERACTION=ROUGH2,TYPE=SURFACE
CSURF,DSURF
*CONTACT PAIR,INTERACTION=ROUGH3,TYPE=SURFACE
ESURF,FSURF
*SURFACE INTERACTION,NAME=ROUGH1
*FRICTION
0.1, 
*SURFACE INTERACTION,NAME=ROUGH2 
*FRICTION
0.1, 
*SURFACE INTERACTION,NAME=ROUGH3
*FRICTION
0.25, 
*STEP,NLGEOM, UNSYMM=YES
PUSH THE BLANKHOLDER DOWN BY A PRESCRIBED 
DISPLACEMENT
*STATIC
1.,1.
*BOUNDARY
CENTER,1,1
DIE,1,1
DIE,2,2
DIE,6,6
PUNCH,1,1
PUNCH,2,2
PUNCH,6,6
HOLDER,1,1
HOLDER,2,2,-1.75E-8
HOLDER,6,6
*MONITOR,NODE=200,DOF=2
*CONTACT CONTROLS,STIFF=0.001
*controls, parameter=field
1.0e-5,
*PRINT,CONTACT=YES
*NODE PRINT,NSET=TOOLS,FREQUENCY=100
COORD,U,RF
*EL PRINT,ELSET=ALL,FREQUENCY=500
S,E
*NODE FILE,NSET=TOOLS,FREQUENCY=10
U,RF
*CONTACT FILE,SECONDARY=ASURF,FREQUENCY=10
*CONTACT FILE,SECONDARY=CSURF,FREQUENCY=10
*CONTACT FILE,SECONDARY=ESURF,FREQUENCY=10
*END STEP
*STEP,NLGEOM,UNSYMM=YES
APPLY THE PRESCRIBED FORCE ON THE BLANKHOLDER AND RELEASE THE DISPLACEMENT
*STATIC
1.,1.
*BOUNDARY,OP=NEW
CENTER,1,1
DIE,1,1
DIE,2,2
DIE,6,6
PUNCH,1,1
PUNCH,2,2
PUNCH,6,6
HOLDER,1,1
HOLDER,6,6
*CLOAD
HOLDER,2,-100000.
*controls, parameter=field
1.0e-5,
*END STEP
*STEP,INC=500,NLGEOM
MOVE THE PUNCH DOWN
*STATIC
.01,1.,1.E-6
*BOUNDARY,OP=NEW
CENTER,1,1
DIE,1,1
DIE,2,2
DIE,6,6
PUNCH,1,1
PUNCH,2,2,-.06
PUNCH,6,6
HOLDER,1,1
HOLDER,6,6
*CLOAD
HOLDER,2,-100000.
*controls, parameter=field
1.0e-5,
*END STEP    
*STEP,NLGEOM
FIX ALL NODES AND REMOVE THE CONTACT SURFACES
*STATIC
1.,1.,1.,1.
*BOUNDARY,FIXED
WRKPC,1,2
*MODEL CHANGE,TYPE=CONTACT PAIR,REMOVE
ASURF,BSURF
CSURF,DSURF
ESURF,FSURF
*CLOAD,OP=NEW
HOLDER,2,0.
*controls, parameter=field
1.0e-5,
*END STEP
*STEP,NLGEOM,UNSYMM=YES
REPLACE THE BOUNDARY CONDITIONS BY THE REGULAR SET
*STATIC
.1,1.,1.E-6
*BOUNDARY,OP=NEW
181,2
CENTER,1,1
*controls, parameter=field
1.0e-5,
*END STEP