*HEADING
: SIMPLE CONTACT TEST; SMALL SLIDING [CPS8,R2D2]
********************
** Features Tested: 
** *CONTACT INTERFERENCE, *FRICTION, *CHANGE FRICTION
********************
*PREPRINT,CONTACT=YES
********************
*NODE,NSET=RNODES
1,0.,1.
4,3.,1.
999,1.5,0.
*NGEN,NSET=RNODES
1,4,1
*ELEMENT,TYPE=R2D2,ELSET=RBODY
1,1,2
*ELGEN,ELSET=RBODY
1,3,1,1
*RIGID BODY,ELSET=RBODY,REFNODE=999
********************
*NODE,NSET=DNODES
5,0.5,0.9
6,1.,0.9
7,1.5,0.9
8,0.5,1.45
10,1.5,1.45
11,0.5,2.
12,1.,2.
13,1.5,2.
*ELEMENT,TYPE=CPS8,ELSET=DBODY
4,5,7,13,11,6,10,12,8
*SOLID SECTION,ELSET=DBODY,MATERIAL=DMAT
1., 
*MATERIAL,NAME=DMAT
*ELASTIC
1.E6,0.
********************
*NSET,NSET=DTOP
11,12,13
*NSET,NSET=DBOT
5,6,7
********************
*surface,NAME=RSURF
RBODY,SPOS
*surface,NAME=DSURF
DBODY,S1
*CONTACT PAIR,INTERACTION=RDINT,SMALL SLIDING
DSURF,RSURF
*SURFACE INTERACTION,NAME=RDINT
1., 
*FRICTION
0., 
********************
*BOUNDARY
999,1,2
999,6,6
DTOP,1,2
********************
********************
**
** STEP 1: SHRINK FIT TO ESTABLISH CONTACT STATE
**
*STEP,NLGEOM
*STATIC
0.1,1.,0.05,1.
*CONTACT INTERFERENCE,SHRINK
DSURF,RSURF
*PRINT,CONTACT=YES
*EL PRINT,ELSET=DBODY,FREQ=999
S,
*EL FILE,ELSET=DBODY,FREQ=999
S,
*NODE PRINT,FREQ=999
U,
*NODE FILE,FREQ=999
U,
*CONTACT FILE,MASTER=RSURF,FREQ=999
*CONTACT PRINT,MASTER=RSURF,FREQ=999
*END STEP
********************
**
** STEP 2: SLIDE WITHOUT FRICTION
**
*STEP,NLGEOM
*STATIC
0.1,1.,0.05,1.
*BOUNDARY
DTOP,1,1,0.1
*END STEP
********************
**
** STEP 3: ADD FRICTION
**
*STEP,NLGEOM
*STATIC
1.,1.
*CHANGE FRICTION,INTERACTION=RDINT
*FRICTION
0.3, 
*END STEP
********************
**
** STEP 4: SLIDE WITH FRICTION
**
*STEP,NLGEOM
*STATIC
0.1,1.,0.05,1.
*BOUNDARY
DTOP,1,1,0.
*END STEP
********************