*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
9000, 1648
*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
8001, 1651
*** Right guide roll
*BOUNDARY, OP=NEW
    1649, 3,,          0.
    1649, 4,,          0.
    1649, 6,,          0.
**
*ELEMENT, TYPE=MASS, ELSET=MASSGUIDE
8002, 1649
***
*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
*NSET, NSET=QRTRPNTS
1, 406, 820, 1234, 9, 414, 828, 1242
*ELSET, ELSET=THRURING, GEN
1, 8, 1 
*NSET, NSET=REFNODES
1660, 1648,  1651, 1649
*NSET, NSET=QA_TEST_REFN
REFNODES,
*ELSET, ELSET=QA_TEST
THRURING,
*NSET, NSET=QA_TEST
QRTRPNTS,
*FILTER, NAME=SMOOTH_RF, TYPE=BUTTERWORTH
0.3, 2
*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
1, 1433, 8 
*ELSET, ELSET=EXTERIOR, GEN
8, 1440, 8 
*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
**************************************
****       OUTPUT REQUESTS        ****
**************************************
*RESTART, WRITE, NUM=10
*MONITOR, NODE=1660, DOF=6
*OUTPUT, FIELD, NUMBER=1
*NODE OUTPUT
U
*ELEMENT OUTPUT
PEEQ, MISES
*FILE OUTPUT, NUMBER INTER=1, TIME MARKS=YES
*NODE FILE, NSET=REFNODES
U, RF
*NODE FILE, NSET=QRTRPNTS
U,
*EL FILE, ELSET=THRURING
PEEQ,
**************************************
****   OUTPUT FOR QA PURPOSES     ****
**************************************
*OUTPUT, FIELD, TIME MARKS=YES, NUMBER INTERVAL=1
*ELEMENT OUTPUT, ELSET=QA_TEST
PEEQ,
*OUTPUT, HISTORY, TIME INTERVAL=0.1
*NODE OUTPUT, NSET=QA_TEST
U,
*ENERGY OUTPUT, VAR=PRESELECT
*OUTPUT, HISTORY, TIME INTERVAL=0.1, FILTER=SMOOTH_RF
*NODE OUTPUT, NSET=QA_TEST_REFN
RF,
******
*ADAPTIVE MESH, ELSET=RING,FREQUENCY=50
*END STEP