*HEADING
ADAPTIVE MESHING EXAMPLE
FLAG ROLLING - LAGRANGIAN ANALYSIS
Units - N, m
*RESTART,W,N=20
*NODE
*NGEN, NSET=BOT1
*NGEN, NSET=TOP1
*NFILL,NSET=FRONT
BOT1, TOP1, 6, 42
*NGEN, NSET=BOT2
*NGEN, NSET=TOP2
*NFILL,NSET=BACK
BOT2,TOP2, 6, 42
*NFILL, NSET=BAR
FRONT,BACK, 7, 294
*ELEMENT, TYPE=C3D8R
*ELGEN, ELSET=BAR
*NSET,NSET=BOT,GEN
*SOLID SECTION,ELSET=BAR,MAT=C15, CONTROLS=SECT
1.,
*SECTION CONTROLS, NAME=SECT,HOURGLASS=STIFFNESS
**
*MATERIAL,NAME=C15
*ELASTIC
1.5E11,.3
*PLASTIC
168.72E06,0
219.33E06,0.1
272.02E06,0.2
308.53E06,0.3
337.37E06,0.4
361.58E06,0.5
382.65E06,0.6
401.42E06,0.7
*DENSITY
7.85E3,
***********************************************
****   ROLL
*NODE,NSET=REF
*ELEMENT, TYPE=MASS, ELSET=MASS
*MASS, ELSET=MASS
1000.
*INITIAL CONDITIONS,TYPE=VELOCITY
BAR,1,.30
*NSET,NSET=LEFT,GEN
*BOUNDARY
LEFT,ZSYMM
BOT,YSYMM
*ELSET,ELSET=SIDE,GEN
*ELSET,ELSET=TOP,GEN
*SURFACE, NAME=SURF1
TOP,S5
SIDE,S2
*SURFACE,TYPE=CYLINDER,NAME=RIGID,FILLET RADIUS=.001
START,0.0,-0.175
CIRCL,-0.175,0.0,0.0,0.0
CIRCL,0.0,0.175,0.0,0.0
*RIGID BODY, REFNODE=10000, ANALYTICAL SURFACE = RIGID
*SURFACE INTERACTION,NAME=FRICT
*FRICTION
 0.3,
*STEP
*DYNAMIC,EXPLICIT
,0.50
*STEADY STATE DETECTION,ELSET=BAR,SAMPLING=PLANE BY PLANE
*STEADY STATE CRITERIA
SSPEEQ,  , .0409, 0., 0.
SSSPRD,  , .0409, 0., 0.
SSTORQ,  , .0409, 0., 0., 10000, 0., 0., 1.
SSFORC,  , .0409, 0., 0., 10000, 0., 1., 0.
*BOUNDARY
10000,1,5
*BOUNDARY,TYPE=VELOCITY
10000,6,6,6.2832
*FIXED MASS SCALING, FACTOR=2750.
*CONTACT
*CONTACT INCLUSIONS
*CONTACT PROPERTY ASSIGNMENT
,,FRICT
*****
*NSET, NSET=QA_TEST_REFN
REF,
*ELSET, ELSET=QA_TEST
TOP,
*NSET, NSET=QA_TEST
TOP1,
*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
******
*FILE OUTPUT, NUMBER INTERVAL=1, TIMEMARKS=YES
*EL FILE, ELSET=TOP
 MISES,PEEQ,
*NODE FILE,NSET=REF
 U,RF
*OUTPUT, FIELD, NUMBER INTERVAL=10
*ELEMENT OUTPUT
PEEQ,
*NODE OUTPUT
U,
*OUTPUT,HISTORY,TIME INTERVAL=1.E-4
*NODE OUTPUT,NSET=REF
RF2,RM3
*INCREMENTATION OUTPUT
SSPEEQ,SSSPRD,SSTORQ,SSFORC
*ENDSTEP