*HEADING
FRICTIONAL CONTACT BETWEEN BELT AND PULLEY
CYLINDER ANALYTICAL RIGID SURFACE
*NODE, NSET=NBELT
1,0.5,0.5,-0.05
11,0.0,0.5,-0.05
51,0.0,-0.5,-0.05
101,0.5,0.5,0.05
111,0.0,0.5,0.05
151,0.0,-0.5,0.05
61,0.5,-0.5,-0.05
161,0.5,-0.5,0.05
200,0.0,0.0,-0.05
300,0.0,0.0,0.05
*NGEN, NSET=NBELT, LINE=C
11,51,1,200,,,,0.0,0.0,1.0
111,151,1,300,,,,0.0,0.0,1.0
*NGEN,NSET=NBELT
1,11,1
101,111,1
51,61,1
151,161,1
*ELEMENT, TYPE=M3D4R, ELSET=EBELT
1,1,3,103,101
*ELGEN, ELSET=EBELT
1,30,2,2
*NODE, NSET=NDRUMR
100000, 0., 0.
*NSET, NSET=OUTPUT
100000,1,101,61,161
*MEMBRANE SECTION,ELSET=EBELT,MATERIAL=MBELT
0.009,
*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=ELEMENT,NAME=SBELT
EBELT,SNEG
*SURFACE,NAME=SDRUM,TYPE=CYLINDER
0.0,0.0,0.0,1.0,0.0,0.0
0.0,0.0,-1.0
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
**
*NSET, NSET=QA_TEST_ALLNODES
NBELT, NBELT, NBELT, NDRUMR
OUTPUT, 
**
*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
101,1,6
61,2
61,6
161,2
161,6
*CLOAD,AMPLITUDE=ATENSION
61,1,25000
161,1,25000
*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
*FILE OUTPUT,TIMEMARKS=NO,NUM=1
*NODE FILE
U, 
*OUTPUT, FIELD, TIMEMARKS=NO, NUMBER INTERVAL=1
*NODE OUTPUT, NSET=QA_TEST_ALLNODES
U, 
*OUTPUT,FIELD,VARIABLE=PRESELECT
*OUTPUT,HISTORY,VARIABLE=PRESELECT,TIMEINT=0.006
*END STEP
**
** STEP2: ROTATE THE DRUM
**
*STEP
*DYNAMIC ,EXPLICIT
,1.e-2
*BOUNDARY, OP=NEW
1,1,6
101,1,6
61,2
61,6
161,2
161,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,25000
161,1,25000
*FILE OUTPUT,TIMEMARKS=NO,NUM=1
*NODE FILE
U, 
*OUTPUT, FIELD, TIMEMARKS=NO, NUMBER INTERVAL=1
*NODE OUTPUT, NSET=QA_TEST_ALLNODES
U, 
*OUTPUT,FIELD,VARIABLE=PRESELECT
*OUTPUT,HISTORY,VARIABLE=PRESELECT,TIMEINT=0.01
*END STEP