/BATCH  
! /COM,ANSYS RELEASE 11.0    UP20070125       14:25:52    06/23/2007              
!*  
!*  
/NOPR   
/PMETH,OFF,0
KEYW,PR_SET,1   
KEYW,PR_STRUC,1 
KEYW,PR_THERM,0 
KEYW,PR_FLUID,0 
KEYW,PR_MULTI,0 
/GO 
!*  
! /COM,   
! /COM,Preferences for GUI filtering have been set to display:
! /COM,  Structural   
!*  
/PREP7  
!*  
ET,1,PLANE82
!*  
KEYOPT,1,3,0
KEYOPT,1,5,0
KEYOPT,1,6,0
!*  
ET,2,TARGE169   
!*  
ET,3,CONTA172   
!*  
KEYOPT,3,1,0
KEYOPT,3,2,0
KEYOPT,3,3,0
KEYOPT,3,4,0
KEYOPT,3,5,1
KEYOPT,3,6,0
KEYOPT,3,7,0
KEYOPT,3,8,0
KEYOPT,3,9,1
KEYOPT,3,10,0   
KEYOPT,3,11,0   
KEYOPT,3,12,0   
!*  
R,1,,,1, 0.1,,  
RMORE,,,, ,1,   
RMORE,,,, ,,
RMORE,,,, ,,
!*  
MPTEMP,,,,,,,,  
MPTEMP,1,0  
MPDATA,EX,1,,210000 
MPDATA,PRXY,1,,0.3  
BLC4,0,0,500,-500   
CYL4,0,500,500,-90,500,0
FLST,2,2,5,ORDE,2   
FITEM,2,1   
FITEM,2,-2  
AGLUE,P51X  
/UI,MESH,OFF
ESIZE,10,0, 
MSHKEY,0
FLST,5,2,5,ORDE,2   
FITEM,5,1   
FITEM,5,3   
CM,_Y,AREA  
ASEL, , , ,P51X 
CM,_Y1,AREA 
CHKMSH,'AREA'   
CMSEL,S,_Y  
!*  
AMESH,_Y1   
!*  
CMDELE,_Y   
CMDELE,_Y1  
CMDELE,_Y2  
!*  
FLST,2,1,4,ORDE,1   
FITEM,2,9   
!*  
/GO 
DL,P51X, ,UX,   
FLST,2,1,4,ORDE,1   
FITEM,2,4   
!*  
/GO 
DL,P51X, ,UX,   
FLST,2,1,4,ORDE,1   
FITEM,2,1   
!*  
/GO 
DL,P51X, ,UY,   
FLST,2,1,4,ORDE,1   
FITEM,2,6   
/GO 
!*  
SFL,P51X,PRES,1,
CM,_TARGET,LINE 
!*  
CM,_CONTACT,LINE
!*  
! /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,
MAT,1   
MP,EMIS,1,7.88860905221e-031
R,3 
REAL,3  
ET,4,169
ET,5,172
R,3,,,1.0,0.1,0,
RMORE,,,1.0E20,0.0,1.0, 
RMORE,0.0,0,1.0,,1.0,0.5
RMORE,0,1.0,1.0,0.0,,1.0
KEYOPT,5,3,0
KEYOPT,5,4,0
KEYOPT,5,5,1
KEYOPT,5,7,0
KEYOPT,5,8,0
KEYOPT,5,9,1
KEYOPT,5,10,2   
KEYOPT,5,11,0   
KEYOPT,5,12,0   
KEYOPT,5,2,0
! Generate the target surface   
LSEL,S,,,1  
LSEL,A,,,2  
LSEL,A,,,3  
LSEL,A,,,4  
CM,_TARGET,LINE 
TYPE,4  
NSLL,S,1
ESLN,S,0
ESURF   
CMSEL,S,_ELEMCM 
! Generate the contact surface  
LSEL,S,,,6  
LSEL,A,,,8  
LSEL,A,,,9  
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 
FINISH  
/SOL
! /STATUS,SOLU
SOLVE   
FINISH  
/POST1  
!*  
! /EFACET,1   
! PLNSOL, U,Y, 0,1.0  
! /ZOOM,1,RECT,-0.628655,0.174659 ,0.0765742013905 ,-0.15396781925
! /AUTO,1 
! /REP,FAST   
! /ZOOM,1,RECT,-0.679456,0.318059 ,-0.6226787216 ,0.0611331225686 
! /AUTO,1 
! /REP,FAST   
/OUTPUT, TERM   
/OUTPUT,'contact','','C:\DOKUME~1\SAMS\EIGENE~1\ANSYS_~1\', 
! SAVE, contact_2,db,   
! SAVE, contact,db,C:\DOKUME~1\SAMS\EIGENE~1\ANSYS_~1\  
!*  
!*  
!*  
! Start of report captures. 
~eui,'package require ansys'
~eui,'ansys::report::setdirectory "contact_2_report" 1' 
! /REPLOT,RESIZE  
! /PLOPTS,MINM,OFF
! /REPLOT,RESIZE  
~eui,'ansys::report::finished'  
! /REPLOT,RESIZE  
! /REPLOT,RESIZE  
! LGWRITE,'oo','lgw','C:\DOKUME~1\SAMS\EIGENE~1\ANSYS_~1\',COMMENT