*HEADING
 FRICTIONAL BRAKING OF A ROTATING RIGID BODY IN 3D
 (RIGID BODY COMPRISING M3D4R ELEMENTS)
**
**  Define a rigid circular drum.
**
*NODE, NSET=AXIS
*NODE
*NGEN, LINE=C, NSET=FRIM
*NCOPY, SHIFT, CHANGE NUMBER=100, OLD SET=FRIM, NEW SET=NRIM
*NSET, NSET=DRUM
 FRIM, NRIM
*ELEMENT, TYPE=M3D4R, ELSET=DRUM
*ELGEN, ELSET=DRUM
*MEMBRANE SECTION, ELSET=DRUM, MATERIAL=STEEL
.02,
*MATERIAL, NAME=STEEL
*ELASTIC
2.E+9, .3
*DENSITY
0.0,
*ELEMENT, TYPE=MASS, ELSET=PMASS
*MASS, ELSET=PMASS
 5.,
*ELEMENT, TYPE=ROTARYI, ELSET=RMASS
*ROTARY INERTIA, ELSET=RMASS
 0.001, 0.001, .175
**
**  Start with it spinning at 60 rad/sec.
**
*BOUNDARY
 100, 1, 5
*INITIAL CONDITIONS, TYPE=VELOCITY
 100, 6, 60.
**
**  Define a deformable brake pad.
**
*NODE
*NGEN, NSET=FSIDE
*NCOPY, SHIFT, CHANGE NUMBER=100, OLD SET=FSIDE, NEW SET=NSIDE
*NSET, NSET=PAD
 FSIDE, NSIDE
*ELEMENT, TYPE=C3D8R, ELSET=PAD
*ELGEN, ELSET=PAD
*SOLID SECTION, ELSET=PAD, MATERIAL=STUFF
**
**  Make it a soft rubber pad.
**
*MATERIAL, NAME=STUFF
*HYPERELASTIC, N=1
 552.E3, 138.E3, 1.45E-7
*DENSITY
 5.E3,
**
**  Use a second rigid body to hold the brake pad.
**
*ELEMENT, TYPE=R3D4, ELSET=PLATE
*ELGEN, ELSET=PLATE
*BOUNDARY
 600, 2, 6, 0.
**
**  Run the simulation for 0.2 seconds.
**
*ELSET,ELSET=EALL1
PAD,
*ELSET,ELSET=EALL2
PMASS,
*ELSET,ELSET=EALL3
RMASS,
*SURFACE,TYPE=ELEMENT, NAME=DRUM, NO THICK
 DRUM, SPOS
*SURFACE,TYPE=ELEMENT, NAME=PAD_LOAD
 PAD, S5
*SURFACE,TYPE=ELEMENT, NAME=PAD
 PAD, S3
*RIGID BODY, ELSET=DRUM, REF NODE=100
*RIGID BODY, ELSET=PLATE, REF NODE=600
*NSET,NSET=QA_TEST_AXIS
AXIS,
**
*STEP
*DYNAMIC, EXPLICIT
 , .2
**
**  Define contact between the drum and the pad.
**
*SURFACE INTERACTION,NAME=DRUM_PAD
*FRICTION
 0.15,
*CONTACT PAIR,INTERACTION=DRUM_PAD
 DRUM, PAD
**
**  Apply a constant pressure to the pad.
**
*DSLOAD
 PAD_LOAD, P, 350.E3
**
**  Some typical output requests.
**
*RESTART,TIMEMARKS=YES, WRITE, NUMBER=1
**
*FILE OUTPUT, NUMBER=2, TIMEMARKS=YES
*NODE FILE,NSET=AXIS
 U,
**
***OUTPUT,HISTORY,TIME INTERVAL=0.
***NODE OUTPUT,NSET=AXIS
**RF1,RF2,RM3,UR3,VR3,AR3
***ENERGY OUTPUT
**ALLIE,ALLKE,ALLPD,ALLSE,ALLVD,ALLWK,ETOTAL,ALLFD
***ENERGY OUTPUT,ELSET=EALL1
**ALLIE,ALLKE,ALLSE,
***ENERGY OUTPUT,ELSET=EALL2
**ALLIE,ALLKE,ALLSE,
***ENERGY OUTPUT,ELSET=EALL3
**ALLIE,ALLKE,ALLSE,
**
*OUTPUT, FIELD, NUMBER INTERVAL=2, TIMEMARKS=YES
*NODE OUTPUT, NSET=QA_TEST_AXIS
 U,
*OUTPUT,FIELD,VARIABLE=PRESELECT
*OUTPUT,HISTORY,VARIABLE=PRESELECT,TIMEINT=0.1
*END STEP