FINISH  
/CLEAR,START
/COM,ANSYS RELEASE  8.1    UP20040329       16:13:34    11/23/2005
/input,start81,ans,'C:\Program Files\Ansys Inc\v81\ANSYS\apdl\',,,,,,,,,,,,,,,,1

/FILNAME,Schraube mit Vorspannung,1 


VPLOT    
/RGB,INDEX,100,100,100, 0   
/RGB,INDEX, 80, 80, 80,13   
/RGB,INDEX, 60, 60, 60,14   
/RGB,INDEX, 0, 0, 0,15  



/prep7  

et,1,92
mp,ex,1,1e5 
mp,prxy,1,0.30
mp,ex,2,5e5 
mp,prxy,2,0.30

!***************************************
!MODELING
!***************************************

BLOCK,-0.005,0.005,-0.005,0.005,0,0.005,
CYLIND,2e-3, ,0,0.005,0,360,
VSBV,       1,       2  

BLOCK,-0.005,0.005,-0.005,0.005,0.005,0.006
BLOCK,-0.005,0.006,-0.005,0.005,0.006,0.01
VADD,       1,       2

CYLIND,2.5e-3, ,0.005,0.01,0,360,
VSBV,       4,       1  

CYLIND,2e-3, ,0,0.01,0,360,
CYLIND,5e-3, ,0.01,0.015,0,360,
VADD,       1,       4 

VPLO

/PNUM,KP,0  
/PNUM,LINE,0
/PNUM,AREA,0
/PNUM,VOLU,1
/PNUM,NODE,0
/PNUM,TABN,0
/PNUM,SVAL,0
/NUMBER,0   

/PNUM,ELEM,0
/REPLOT

VGLUE,5,3

!***************************************
!MESHING
!***************************************

VSEL, , , ,1
VATT,1, ,1,0

VSEL, , , ,2
VATT,2, ,1,0

VSEL, , , ,3
VATT,2, ,1,0

VSEL,ALL

ESIZE,2e-3,0,   
MSHAPE,1,3D 
MSHKEY,0

VMESH,1,3,1


!***************************************
!Create and mesh a pretension section
!***************************************

psmesh,,example,,volu,1,0,z,7e-3,,,,elems   
CM,lines,LINE 
cmplot


!***************************************
!CONTACT - TARGET DEFINITION
!***************************************

!Nachfolgender Code wurde über den das GUI 
!mit dem Contact-Manager erzeugt

/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,.2  
MAT,1   
R,3 
REAL,3  
ET,3,170
ET,4,174
KEYOPT,4,9,0
KEYOPT,4,10,1   
R,3,
RMORE,  
RMORE,,0
RMORE,0 
! Generate the target surface   
ASEL,S,,,25 
CM,_TARGET,AREA 
TYPE,3  
NSLA,S,1
ESLN,S,0
ESURF   
CMSEL,S,_ELEMCM 
! Generate the contact surface  
ASEL,S,,,30 
CM,_CONTACT,AREA
TYPE,4  
NSLA,S,1
ESLN,S,0
ESURF   
ALLSEL  
ESEL,ALL
ESEL,S,TYPE,,3  
ESEL,A,TYPE,,4  
ESEL,R,REAL,,3  
/PSYMB,ESYS,1   
/PNUM,TYPE,1
/NUM,1  
EPLOT   
ESEL,ALL
ESEL,S,TYPE,,3  
ESEL,A,TYPE,,4  
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   
!*  
!*  
/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.2 
MAT,1   
R,4 
REAL,4  
ET,5,170
ET,6,174
KEYOPT,6,9,0
KEYOPT,6,10,1   
R,4,
RMORE,  
RMORE,,0
RMORE,0 
! Generate the target surface   
ASEL,S,,,30 
CM,_TARGET,AREA 
TYPE,5  
NSLA,S,1
ESLN,S,0
ESURF   
CMSEL,S,_ELEMCM 
! Generate the contact surface  
ASEL,S,,,25 
CM,_CONTACT,AREA
TYPE,6  
NSLA,S,1
ESLN,S,0
ESURF   
ALLSEL  
ESEL,ALL
ESEL,S,TYPE,,5  
ESEL,A,TYPE,,6  
ESEL,R,REAL,,4  
/PSYMB,ESYS,1   
/PNUM,TYPE,1
/NUM,1  
EPLOT   
ESEL,ALL
ESEL,S,TYPE,,5  
ESEL,A,TYPE,,6  
ESEL,R,REAL,,4  
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   
!*  
!*  
/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.2 
MAT,1   
R,5 
REAL,5  
ET,7,170
ET,8,174
KEYOPT,8,9,0
KEYOPT,8,10,1   
R,5,
RMORE,  
RMORE,,0
RMORE,0 
! Generate the target surface   
ASEL,S,,,12 
CM,_TARGET,AREA 
TYPE,7  
NSLA,S,1
ESLN,S,0
ESURF   
CMSEL,S,_ELEMCM 
! Generate the contact surface  
ASEL,S,,,19 
CM,_CONTACT,AREA
TYPE,8  
NSLA,S,1
ESLN,S,0
ESURF   
ALLSEL  
ESEL,ALL
ESEL,S,TYPE,,7  
ESEL,A,TYPE,,8  
ESEL,R,REAL,,5  
/PSYMB,ESYS,1   
/PNUM,TYPE,1
/NUM,1  
EPLOT   
ESEL,ALL
ESEL,S,TYPE,,7  
ESEL,A,TYPE,,8  
ESEL,R,REAL,,5  
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   
!*  
!*  
/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.2 
MAT,1   
R,6 
REAL,6  
ET,9,170
ET,10,174   
KEYOPT,10,9,0   
KEYOPT,10,10,1  
R,6,
RMORE,  
RMORE,,0
RMORE,0 
! Generate the target surface   
ASEL,S,,,19 
CM,_TARGET,AREA 
TYPE,9  
NSLA,S,1
ESLN,S,0
ESURF   
CMSEL,S,_ELEMCM 
! Generate the contact surface  
ASEL,S,,,12 
CM,_CONTACT,AREA
TYPE,10 
NSLA,S,1
ESLN,S,0
ESURF   
ALLSEL  
ESEL,ALL
ESEL,S,TYPE,,9  
ESEL,A,TYPE,,10 
ESEL,R,REAL,,6  
/PSYMB,ESYS,1   
/PNUM,TYPE,1
/NUM,1  
EPLOT   
ESEL,ALL
ESEL,S,TYPE,,9  
ESEL,A,TYPE,,10 
ESEL,R,REAL,,6  
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 

!***************************************
!LOADS
!***************************************

DA,11,ALL

SFA,21,1,PRES,1

!SLOAD,1,9,,FORCE,1,1,2

!***************************************
!SOLUTION
!***************************************

/solu

solve 


!***************************************
!POSTPROCESSING
!***************************************
/post1 

/EFACET,1   
AVPRIN,0,     
PLNSOL, S,EQV, 0,1.0