*HEADING
FRICTIONAL CONTACT BETWEEN BELT AND PULLEY
SEGMENT ANALYTICAL RIGID SURFACE
*NODE, NSET=NBELT
1,0.5,0.5
11,0.0,0.5
51,0.0,-0.5
61,0.5,-0.5
100,0.0,0.0
*NGEN, NSET=NBELT, LINE=C
11,51,1,100,,,,0.0,0.0,1.0
*NGEN,NSET=NBELT
1,11,1
51,61,1
*ELEMENT, TYPE=T2D2, ELSET=EBELT
1,1,3
*ELGEN, ELSET=EBELT
1,30,2,2
*NODE, NSET=NDRUMR
100000, 0., 0.
*NSET, NSET=OUTPUT
100000,1,61
*SOLID SECTION,ELSET=EBELT,MATERIAL=MBELT
90e-5, 
*MATERIAL,NAME=MBELT
*ELASTIC
350E09,.2
*DENSITY
7500, 
*DAMPING, ALPHA=1256.
*ELEMENT,TYPE=MASS,ELSET=MSDRUM
70000,100000
*ELEMENT,TYPE=ROTARYI,ELSET=INDRUM
70001,100000
*MASS,ELSET=MSDRUM
134, 
*ROTARY INERTIA,ELSET=INDRUM
1,1,17
*AMPLITUDE,NAME=ATENSION,DEFINITION=SMOOTH STEP
0.,0.,3.E-3,1.0
*AMPLITUDE,NAME=AVEL,DEFINITION=SMOOTH STEP
0.,0.,5.E-3,1.
**
** STEP1: TENSION THE BELT SLOWLY, A
**
*SURFACE,TYPE=NODE,NAME=SBELT
NBELT,
*SURFACE,NAME=SDRUM,TYPE=SEGMENTS
START,0.0,0.5
CIRCL,0.5,0.0,0.0,0.0
CIRCL,0.0,-0.5,0.0,0.0
CIRCL,-0.5,0.0,0.0,0.0
CIRCL,0.0,0.5,0.0,0.0
*RIGID BODY, REFNODE=100000, ANALYTICAL SURFACE =SDRUM
*STEP
*DYNAMIC,EXPLICIT
,6.e-3
*SURFACE INTERACTION,NAME=FRIC
*FRICTION
.2, 
*CONTACT PAIR,INTERACTION=FRIC
 SDRUM,SBELT
*BOUNDARY
100000,1,6,0
1,1,6
61,2
61,6
*CLOAD,AMPLITUDE=ATENSION
61,1,50000
*RESTART,WRITE,NUM=1
***OUTPUT,HISTORY,TIME INTERVAL=1.e-5
***NODE OUTPUT,NSET=NDRUMR
**RF1,RF2
**RM3,
***NODE OUTPUT,NSET=NBELT
**U1,U2
**RF1,RF2
***ENERGY OUTPUT
**ALLKE,ALLIE,ALLSE,ALLAE,ALLVD,ALLWK,ETOTAL,DT
*OUTPUT,FIELD,VAR=PRESELECT,NUMBER INTERVAL=5
**
** Output requests for qa testing
**
*NSET,NSET=QA_TEST
NBELT,
*OUTPUT,FIELD,NUMBER INTERVAL=1
*NODE OUTPUT,NSET=QA_TEST
U,
*OUTPUT,HISTORY,VAR=PRESELECT,TIME INTERVAL=1.5E-3
*FILE OUTPUT,NUM=1
*NODE FILE
U, 
*END STEP
**
** STEP2: ROTATE THE DRUM
**
*STEP
*DYNAMIC ,EXPLICIT
,1.e-2
*BOUNDARY, OP=NEW
1,1,6
61,2
61,6
*BOUNDARY,OP=NEW,TYPE=VELOCITY,AMPLITUDE=AVEL
100000,6,,20.
*BOUNDARY,OP=NEW
100000,1,5,0
100000,1,5,0
*CLOAD,OP=NEW
61,1,50000
*END STEP