*HEADING
*RESTART,W,F=5
*NODE
*ELEMENT,TYPE=B31,ELSET=BEAM
*BEAM SECTION,SECT=CIRC,ELSET=BEAM,MATERIAL=ELAS
0.1,
0.,1.,0.
*MATERIAL,NAME=ELAS
*ELASTIC
30.E6,0.3
*surface,type=node,NAME=BEAMCON
*CONTACT PAIR,INTERACTION=CONTACT
BEAMCON,RSURF
*SURFACE INTERACTION,NAME=CONTACT
*FRICTION,USER,PROPERTIES=1
0.001,
*rigid body,analytical surface=RSURF,REFNODE=100
*surface,TYPE=CYLINDER,NAME=RSURF
START,0.,0.
LINE,200.,0.
*STEP,NLGEOM, UNSYMM=YES
ESTABLISH CONTACT
*STATIC
1.,1.
*EL PRINT
S,E
*EL FILE,F=100
S,E
*CONTACT FILE,F=100,SLAVE=BEAMCON,MASTER=RSURF
*BOUNDARY
100,1,6,0.0
2,1,1,0.0
2,2,2,0.0
2,4,6,0.0
2,3,3,-1.E-5
*PRINT,CONTACT=YES
*CONTACT PRINT
*END STEP
*STEP,NLGEOM, UNSYMM=YES
ESTABLISH CONTACT (2)
*STATIC
1.,1.
*EL PRINT
S,E
*BOUNDARY,OP=NEW
100,1,6,0.0
2,1,1,0.0
2,2,2,0.0
2,4,6,0.0
*PRINT,CONTACT=YES
*CONTACT PRINT
*CLOAD
2,3,-100.
*END STEP
*STEP,NLGEOM,AMP=STEP, UNSYMM=YES
X SLIDE
*STATIC
.1,1.
*BOUNDARY,OP=NEW
100,1,6,0.0
2,4,6,0.0
*PRINT,CONTACT=YES
*CONTACT PRINT
*CLOAD
2,1,100.
2,3,-100.
*END STEP
*STEP,NLGEOM,AMP=STEP, UNSYMM=YES
X-Y SLIDE
*STATIC
.1,1.
*BOUNDARY,OP=NEW
100,1,6,0.0
2,4,6,0.0
*PRINT,CONTACT=YES
*CONTACT PRINT
*CLOAD,OP=NEW
2,2,70.71
2,1,70.71
2,3,-100.
*END STEP
*STEP,NLGEOM,AMP=STEP, UNSYMM=YES
Y SLIDE
*STATIC
.1,1.
*BOUNDARY,OP=NEW
100,1,6,0.0
2,4,6,0.0
*PRINT,CONTACT=YES
*CONTACT PRINT
*CLOAD,OP=NEW
2,2,100.
2,3,-100.
*END STEP