*heading
 Test of 2-D slip ring connectors

           2 
           O  -----------3
          |              
          | 
          | 
       1  M 
*preprint, model=yes, echo=yes, history=yes
*parameter
** User input data defining the pulley properties
 stiff = 1500.
 Tp    = 1.2E-6
 R1    = 1.0
 R2    = 1.0
 R3    = 1.0
 xmu   = 0.1
 pi    = 3.141592653589
 alpha = pi/2.0
 zero  = 0.0
*node, nset=nall
 1,    0.,   0.
 2,    0.,   2.
 3,    3.,   2.
 4,    3.,   0.
 11,    0.,   0., 1.0
 12,    0.,   2., 1.0
 13,    3.,   2., 1.0
 14,    3.,   0., 1.0
*****************************************
*ELEMENT, TYPE=CONN3D2, elset=belt1
 101, 1,2
*CONNECTOR SECTION,ELSET=BELT1,BEHAVIOR=BELT_FRIC
slipring,

 <Tp>, <alpha>
*ELEMENT, TYPE=CONN3D2, elset=belt2
 102, 2,3
*CONNECTOR SECTION,ELSET=BELT2,BEHAVIOR=BELT_FRIC
slipring,

 <Tp>, <alpha>
*ELEMENT, TYPE=CONN3D2, elset=belt3
 103, 3,4
*CONNECTOR SECTION,ELSET=BELT3,BEHAVIOR=BELT_FRIC
slipring,

 <Tp>, <pi>
*ELEMENT, TYPE=CONN3D2, elset=belt1a
 1101, 11,12
*CONNECTOR SECTION,ELSET=BELT1a,BEHAVIOR=BELT_FRIC
slipring,

 <Tp>, ,
*ELEMENT, TYPE=CONN3D2, elset=belt2a
 1102, 12,13
*CONNECTOR SECTION,ELSET=BELT2a,BEHAVIOR=BELT_FRIC
slipring,

 <Tp>, ,
*ELEMENT, TYPE=CONN3D2, elset=belt3a
 1103, 13,14
*CONNECTOR SECTION,ELSET=BELT3a,BEHAVIOR=BELT_FRIC
slipring,

 <Tp>, ,
*CONNECTOR BEHAVIOR,NAME=BELT_FRIC
*CONNECTOR ELASTICITY,COMPONENT=1
<stiff>,
*connector friction, predefined, stickstiffness=10000.0
*friction
<xmu>,
*elset, elset=belt
belt1,belt2,belt3,belt1a,belt2a,belt3a
*****************************************
*ELEMENT, TYPE=MASS, ELSET=MASS
4001, 1
4002, 2
4003, 3
4004, 4
5001, 11
5002, 12
5003, 13
5004, 14
*MASS, ELSET=MASS
0.01,
*boundary
 1, 1,1
 1, 3,3
 1, 10,10
 11, 1,1
 11, 3,3
 11, 10,10
**
 2, 1,3
 3, 1,3
 12, 1,3
 13, 1,3
**
 4, 1,1
 4, 3,3
 4, 10,10
 14, 1,1
 14, 3,3
 14, 10,10
**
*amplitude, name=amp, definition=smooth
0.0,0.0,0.25,1.0,0.5,0.5,0.75,0.5
*amplitude, name=amp1, definition=smooth
0.0,0.0,0.5,1.0,0.75,1.0,1.0,0.0
*step, nlgeom=yes
*dynamic, explicit, direct user control
 0.001, 1.0
**------------------------------------------------
***boundary,type=velocity
** 3, 1,1, 1.0
*cload,amp=amp1
1,2,-1.0
11,2,-1.0
*cload,amp=amp
4,2,-1.0
14,2,-1.0
*output,field, freq=1
*node output
 u, rf
*output,history, time interval=1.0e-03
*node output, nset=nall
 u,v,a, rf
*element output, elset=belt
CTF,CEF,CU,CSF,CNF,CASU,CP
*energy output, var=all
*end step