/PREP7  
!*  
ET,1,PLANE182   
!*  
ET,2,CONTA171   
!*  
ET,3,TARGE169   
!*  
KEYOPT,1,1,0
KEYOPT,1,3,3
KEYOPT,1,6,0
!*  
!*  
R,1,100,
!*  
!*  
MPTEMP,,,,,,,,  
MPTEMP,1,0  
MPDATA,EX,1,,200000 
MPDATA,PRXY,1,,0.3  
MPTEMP,,,,,,,,  
MPTEMP,1,0  
MPDATA,MU,1,,0.6
MPTEMP,,,,,,,,  
MPTEMP,1,0  
MPDATA,EX,2,,70000  
MPDATA,PRXY,2,,0.2  
CYL4,0,0,25,180, ,  
CYL4,1000,0,25,180, ,   
RECTNG,-25,1025,25,35,  
RECTNG,-25,1025,25,35,  
RECTNG,495,505,35,40,   
RECTNG,495,505,35,40,   
ADELE,       4, , ,1
ADELE,       6, , ,1
FLST,2,2,5,ORDE,2   
FITEM,2,3   
FITEM,2,5   
AGLUE,P51X  
FLST,5,2,5,ORDE,2   
FITEM,5,1   
FITEM,5,-2  
CM,_Y,AREA  
ASEL, , , ,P51X 
CM,_Y1,AREA 
CMSEL,S,_Y  
!*  
CMSEL,S,_Y1 
AATT,       1,       1,   1,       0,   
CMSEL,S,_Y  
CMDELE,_Y   
CMDELE,_Y1  
!*  
FLST,5,2,5,ORDE,2   
FITEM,5,4   
FITEM,5,-5  
CM,_Y,AREA  
ASEL, , , ,P51X 
CM,_Y1,AREA 
CMSEL,S,_Y  
!*  
CMSEL,S,_Y1 
AATT,       2,       1,   1,       0,   
CMSEL,S,_Y  
CMDELE,_Y   
CMDELE,_Y1  
!*  
AESIZE,ALL,5,   
MSHKEY,0
FLST,5,4,5,ORDE,4   
FITEM,5,1   
FITEM,5,-2  
FITEM,5,4   
FITEM,5,-5  
CM,_Y,AREA  
ASEL, , , ,P51X 
CM,_Y1,AREA 
CHKMSH,'AREA'   
CMSEL,S,_Y  
!*  
AMESH,_Y1   
!*  
CMDELE,_Y   
CMDELE,_Y1  
CMDELE,_Y2  
!*  
!*  
!*  
! /COM, CONTACT PAIR CREATION - START   
CM,_NODECM,NODE 
CM,_ELEMCM,ELEM 
CM,_KPCM,KP 
CM,_LINECM,LINE 
CM,_AREACM,AREA 
CM,_VOLUCM,VOLU 
! /GSAV,cwz,gsav,,temp  
MP,MU,1,0.6 
MAT,1   
R,3 
REAL,3  
ET,4,169
ET,5,172
KEYOPT,5,9,0
KEYOPT,5,10,2   
R,3,
RMORE,  
RMORE,,0
RMORE,0 
! Generate the target surface   
LSEL,S,,,1  
LSEL,A,,,4  
CM,_TARGET,LINE 
TYPE,4  
NSLL,S,1
ESLN,S,0
ESURF   
CMSEL,S,_ELEMCM 
! Generate the contact surface  
LSEL,S,,,7  
CM,_CONTACT,LINE
TYPE,5  
NSLL,S,1
ESLN,S,0
ESURF   
ALLSEL  
ESEL,ALL
ESEL,S,TYPE,,4  
ESEL,A,TYPE,,5  
ESEL,R,REAL,,3  
! /PSYMB,ESYS,1 
! /PNUM,TYPE,1  
! /NUM,1
! EPLOT 
ESEL,ALL
ESEL,S,TYPE,,4  
ESEL,A,TYPE,,5  
ESEL,R,REAL,,3  
CMSEL,A,_NODECM 
CMDEL,_NODECM   
CMSEL,A,_ELEMCM 
CMDEL,_ELEMCM   
CMSEL,S,_KPCM   
CMDEL,_KPCM 
CMSEL,S,_LINECM 
CMDEL,_LINECM   
CMSEL,S,_AREACM 
CMDEL,_AREACM   
CMSEL,S,_VOLUCM 
CMDEL,_VOLUCM   
! /GRES,cwz,gsav
CMDEL,_TARGET   
CMDEL,_CONTACT  
! /COM, CONTACT PAIR CREATION - END 
! /MREP,EPLOT   
! /DIST,1,0.729,1   
! /REP,FAST 
! /FOC,1,0.3,,,1
! /REP,FAST 
! /FOC,1,0.3,,,1
! /REP,FAST 
! /FOC,1,0.3,,,1
! /REP,FAST 
! /FOC,1,-0.3,,,1   
! /REP,FAST 
! /FOC,1,-0.3,,,1   
! /REP,FAST 
! /FOC,1,-0.3,,,1   
! /REP,FAST 
! /FOC,1,-0.3,,,1   
! /REP,FAST 
! /FOC,1,-0.3,,,1   
! /REP,FAST 
! /FOC,1,-0.3,,,1   
! /REP,FAST 
FLST,2,4,4,ORDE,4   
FITEM,2,2   
FITEM,2,-3  
FITEM,2,5   
FITEM,2,-6  
!*  
/GO 
DL,P51X, ,ALL,  
! /DIST,1,0.729,1   
! /REP,FAST 
! /DIST,1,0.729,1   
! /REP,FAST 
! /FOC,1,-0.3,,,1   
! /REP,FAST 
! /FOC,1,-0.3,,,1   
! /REP,FAST 
! /FOC,1,0.3,,,1
! /REP,FAST 
! /FOC,1,0.3,,,1
! /REP,FAST 
! /FOC,1,0.3,,,1
! /REP,FAST 
! /FOC,1,0.3,,,1
! /REP,FAST 
! /FOC,1,0.3,,,1
! /REP,FAST 
! /FOC,1,0.3,,,1
! /REP,FAST 
FLST,2,1,1,ORDE,1   
FITEM,2,770 
!*  
/GO 
FINISH  
/SOL
!*  
ANTYPE,0
nlgeom,on   
RESCONTRL,DEFINE,ALL,1,1
! /STATUS,SOLU  
allsel  
FINISH  
/PREP7  
! /ZOOM,1,SCRN,0.323991,0.029647,0.366001,0.022235
FLST,2,3,1,ORDE,3   
FITEM,2,241 
FITEM,2,453 
FITEM,2,663 
!*  
/GO 
D,P51X, ,0, , , ,UX, , , , ,
FLST,2,1,1,ORDE,1   
FITEM,2,770 
!*  
/GO 
D,P51X, ,-1, , , ,UY, , , , ,   
LSWRITE,1,  
LSWRITE,1,  
FLST,2,1,1,ORDE,1   
FITEM,2,770 
DDELE,P51X,UY   
FLST,2,1,1,ORDE,1   
FITEM,2,770 
!*  
/GO 
D,P51X, ,-100, , , ,UY, , , , , 
LSWRITE,2,  
LSWRITE,2,  
nsubst,10,20,1  
FINISH  
/POST1  
FINISH  
/SOL
OUTRES,ERASE
OUTRES,ALL,ALL  
LSSOLVE,1,2,1,  
FINISH  
/POST1  
SET,LAST
! PLDISP,0
! /SHOW,WIN32C
SET,FIRST   
! /PLOPTS,INFO,3  
! /CONTOUR,ALL,18 
! /PNUM,MAT,1 
! /NUMBER,1   
! /REPLOT,RESIZE  
! PLNSOL,S,EQV
!*  
ANCNTR,10,0.5   
! /UIS,ABORT,1  
! /SHOW,WIN32 
! /REPLOT,RESIZE  
FINISH