*HEADING
ADAPTIVE MESHING EXAMPLE
ROLLING OF A RING IN 2D (PLANE STRESS) WITH
SMALL VISCOUS PRESSURE TO STABILIZE THE RING.
Units - N, m, sec
**
*NODE, INPUT=ale_ringroll_2dnode.inp
*ELEMENT, TYPE=CPS4R, ELSET=RING,
INPUT=ale_ringroll_2delem.inp
*SOLID SECTION, ELSET=RING, MAT=C15, CONTROLS=SECT
0.119,
*SECTION CONTROLS, NAME=SECT,HOURGLASS=STIFFNESS
*MATERIAL,NAME=C15
*ELASTIC
1.5E11,.3
*PLASTIC
168.72E6,0.0
1053.00E6,1.0
*DENSITY
7.85E3,
*****************  rigid bodies
*** Driver roll
*BOUNDARY, OP=NEW
    1660, 1,,          0.
    1660, 2,,          0.
    1660, 3,,          0.
**
*BOUNDARY, OP=NEW
    1660, 4,,          0.
    1660, 5,,          0.
**
*** Idle roll
*BOUNDARY, OP=NEW
    1648, 1,,          0.
    1648, 3,,          0.
**
*BOUNDARY, OP=NEW
    1648, 4,,          0.
    1648, 5,,          0.
*ELEMENT, TYPE=ROTARYI, ELSET=IDLEI
*ROTARY INERTIA, ELSET=IDLEI
**0., 0., 0.3176634
0., 0., 0.3176634E4
***
*** Left guide roll
*BOUNDARY, OP=NEW
    1651, 3,,          0.
    1651, 4,,          0.
    1651, 6,,          0.
*ELEMENT, TYPE=MASS, ELSET=MASSGUIDE
*** Right guide roll
*BOUNDARY, OP=NEW
    1649, 3,,          0.
    1649, 4,,          0.
    1649, 6,,          0.
**
*ELEMENT, TYPE=MASS, ELSET=MASSGUIDE
***
*MASS, ELSET=MASSGUIDE
**61.06563
61.06563E4,
**************
*AMPLITUDE, NAME=IDLEVEL, DEFINITION=SMOOTH STEP
0., 1., 16.3, 1.0, 16.5, 0.0
*AMPLITUDE, NAME=DRVRVEL, DEFINITION=SMOOTH STEP
0., 0., 0.2, 1.0, 16.5, 1.0
*INCLUDE, INPUT=guideamp.inp
*SURFACE,TYPE=ELEMENT, NAME=EXTERIOR,
REGION TYPE=SLIDING
EXTERIOR,
*SURFACE, TYPE=SEGMENTS, NAME=LFTGUIDE
START,-.39192431,.77060147,-.39192431,.87260147
CIRCL,-.49392431,.87260147,-.39192431,.87260147
CIRCL,-.39192431,.97460147,-.39192431,.87260147
CIRCL,-.28992431,.87260147,-.39192431,.87260147
CIRCL,-.39192431,.77060147,-.39192431,.87260147
*SURFACE,TYPE=ELEMENT, NAME=INTERIOR,
REGION TYPE=SLIDING
INTERIOR,
*SURFACE, TYPE=SEGMENTS, NAME=RHTGUIDE
START,.39192431,.77060147,.39192431,.87260147
CIRCL,.28992431,.87260147,.39192431,.87260147
CIRCL,.39192431,.97460147,.39192431,.87260147
CIRCL,.49392431,.87260147,.39192431,.87260147
CIRCL,.39192431,.77060147,.39192431,.87260147
*SURFACE, TYPE=SEGMENTS, NAME=DRIVER
START, 0.,  -.680
CIRCL,-0.680, 0., 0., 0.
CIRCL, 0., 0.680, 0., 0.
CIRCL, 0.680, 0., 0., 0.
CIRCL, 0., -0.680, 0.,0.
*SURFACE, TYPE=SEGMENTS, NAME=IDLE
START, 0., 0.8585
CIRCL,-0.102, 0.9605, 0., 0.9605
CIRCL, 0.,    1.0625, 0., 0.9605
CIRCL, 0.102, 0.9605, 0., 0.9605
CIRCL, 0.,    0.8585, 0., 0.9605
*RIGID BODY, REF NODE=1648,
ANALYTICAL SURFACE =IDLE
*RIGID BODY, REF NODE=1649,
ANALYTICAL SURFACE =RHTGUIDE
*RIGID BODY, REF NODE=1651,
ANALYTICAL SURFACE =LFTGUIDE
*RIGID BODY, REF NODE=1660,
ANALYTICAL SURFACE =DRIVER
*STEP
Ring Rolling process in Plane Strain.
Reduce the thickness of the ring by 55.0%
*DYNAMIC, EXPLICIT
 , 16.5,
*FIXED MASS SCALING, ELSET=RING,FACTOR=2500.
*********************** rigid surfaces:
********* driver roll
*BOUNDARY, TYPE=VELOCITY, AMP=DRVRVEL
1660, 6, 6, -3.78884
********* idle roll
*BOUNDARY, TYPE=VELOCITY, AMP=IDLEVEL
1648, 2, 2, -4.933417E-3
********* left guide roll
*BOUNDARY,TYPE=DISPLACEMENT,AMP=X1651
1651,1,1,-1.0
*BOUNDARY,TYPE=DISPLACEMENT,AMP=Y1651
1651,2,2,1.0
********* right guide roll
*BOUNDARY,TYPE=DISPLACEMENT,AMP=X1649
1649,1,1,1.0
*BOUNDARY,TYPE=DISPLACEMENT,AMP=Y1649
1649,2,2,1.0
******** define the contact pairs
*ELSET, ELSET=INTERIOR, GEN
*ELSET, ELSET=EXTERIOR, GEN
*CONTACT PAIR, INTERACTION=FRIC
EXTERIOR, DRIVER
INTERIOR, IDLE
*SURFACE INTERACTION, NAME=FRIC
*FRICTION
0.5,
*CONTACT PAIR
EXTERIOR, LFTGUIDE
EXTERIOR, RHTGUIDE
*DLOAD
INTERIOR, VP4, 3.0e8
EXTERIOR, VP2, 3.0e8
******
*RESTART, WRITE, NUM=10
*NSET, NSET=QRTRPNTS
*ELSET, ELSET=THRURING, GEN
*MONITOR, NODE=1660, DOF=6
***OUTPUT,HISTORY,TIME INTERVAL=0.1
*NSET, NSET=REFNODES
***NODE OUTPUT,NSET=REFNODES
**U,UR3,RF,RM3
***NODE OUTPUT,NSET=QRTRPNTS
**U,
***ELEMENT OUTPUT,ELSET=THRURING
**MISES,PEEQ,PRESS,ERV
***ENERGY OUTPUT
*FILE OUTPUT, NUMBER INTER=1, TIME MARKS=YES
*NODE FILE, NSET=REFNODES
U, RF
*NODE FILE, NSET=QRTRPNTS
U,
*EL FILE, ELSET=THRURING
PEEQ,
*****
*NSET, NSET=QA_TEST_REFN
REFNODES,
*ELSET, ELSET=QA_TEST
THRURING,
*NSET, NSET=QA_TEST
QRTRPNTS,
*OUTPUT, FIELD, TIME MARKS=YES, NUMBER INTERVAL=1
*ELEMENT OUTPUT, ELSET=QA_TEST
PEEQ,
*NODE OUTPUT, NSET=QA_TEST
U,
*NODE OUTPUT, NSET=QA_TEST_REFN
RF,
*OUTPUT, HIST, FREQ=9999
*ENERGY OUTPUT, VAR=PRESELECT
******
*ADAPTIVE MESH, ELSET=RING,FREQUENCY=50
*END STEP