/CLEAR
/TITLE,UCHO_2D_kontakt_NL   
!Parametry:
D=10 !mm-średnica sworznia  
R1=8  !mm-Promień 
R2=3  !mm-Promień
B=2   !mm-Parametr wydłużenia ucha
C=6   !mm-Szerokość cięgna
H=6  !mm-Grubość cięgna 
L=40  !mm-Długość cięgna od środka sworznia
SIG=100 !MPa-Naprężenia średnie
E=2e5  !MPa-Moduł Younga
NI=0.3 !Stała Poissona

ELDLUG=1 !mm-rozmiar boku elementu

/PREP7  
MPTEMP,,,,,,,,  
MPTEMP,1,0  
MPDATA,EX,1,,E  
MPDATA,PRXY,1,,NI      

PCIRC,D/2, ,0,360,  
PCIRC,R1, ,90,180,  
AGEN, ,2, , ,-B/2, , , , ,1  
ARSYM,X,2, , , ,0,0  
RECTNG,D/2,L,,C/2,  
FLST,2,2,4,ORDE,2
FITEM,2,8   
FITEM,2,13  
LOVLAP,P51X 
LFILLT,15,17,R2, ,  
FLST,2,7,3  
FITEM,2,6   
FITEM,2,5   
FITEM,2,8   
FITEM,2,16  
FITEM,2,17  
FITEM,2,13  
FITEM,2,12  
A,P51X  
FLST,2,3,5,ORDE,2   
FITEM,2,2   
FITEM,2,-4  
ADELE,P51X, , ,1
ASBA,       5,       1 
FLST,2,2,4,ORDE,2   
FITEM,2,16  
FITEM,2,18  
LDELE,P51X, , ,1
LDIV,1, , ,5,0 !<< podział linii na 5
ESIZE,ELDLUG,0,
ET,1,PLANE183   
MSHAPE,0,2D 
MSHKEY,0
!*  
CM,_Y,AREA  
ASEL, , , ,       2 
CM,_Y1,AREA 
CHKMSH,'AREA'   
CMSEL,S,_Y  
!*  
AMESH,_Y1   
!*  
CMDELE,_Y   
CMDELE,_Y1  
CMDELE,_Y2  
!*  

!@@@@@@@@@@@@@@ 
!*  
*CSET,1,2,       1,2,   
MPCOPY, ,1,2
TBCOPY,ALL,1,2  
!*  
PCIRC,D/2, ,0,180,
!++++++++++++++++++
TYPE,   1   
MAT,       2
REAL,   
ESYS,       0   
SECNUM, 
!*  
CM,_Y,AREA  
ASEL, , , ,       1 
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,
MAT,1   
R,3 
REAL,3  
ET,2,169
ET,3,172
KEYOPT,3,9,0
KEYOPT,3,10,0   
R,3,
RMORE,  
RMORE,,0
RMORE,0 
! Generate the target surface   
LSEL,S,,,1  
LSEL,A,,,2  
LSEL,A,,,3  
LSEL,A,,,4  
LSEL,A,,,8  
LSEL,A,,,9  
CM,_TARGET,LINE 
TYPE,2  
NSLL,S,1
ESLN,S,0
ESURF   
CMSEL,S,_ELEMCM 
! Generate the contact surface  
LSEL,S,,,10 
CM,_CONTACT,LINE
TYPE,3  
NSLL,S,1
ESLN,S,0
ESURF   
!* Create Companion Pair - Start
R,4 
REAL,4  
ET,4,169
ET,5,172
KEYOPT,5,9,0
KEYOPT,5,10,0   
R,4,
RMORE,  
RMORE,,0
RMORE,0 
TYPE,4  
ESEL,S,TYPE,,3  
NSLE,S  
ESLN,S,0
ESURF   
TYPE,5  
ESEL,S,TYPE,,2  
NSLE,S  
ESLN,S,0
ESURF   
!* Create Companion Pair - End  
ALLSEL  
ESEL,ALL
ESEL,S,TYPE,,2  
ESEL,A,TYPE,,3  
ESEL,R,REAL,,3  
/PSYMB,ESYS,1   
/PNUM,TYPE,1
/NUM,1  
EPLOT   
ESEL,ALL
ESEL,S,TYPE,,2  
ESEL,A,TYPE,,3  
ESEL,R,REAL,,3  
ESEL,A,TYPE,,4  
ESEL,A,TYPE,,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   
FINISH  
/SOL
FLST,2,2,4,ORDE,2   
FITEM,2,11  
FITEM,2,13  
DL,P51X, ,SYMM  
FLST,2,2,4,ORDE,2   
FITEM,2,6   
FITEM,2,-7  
DL,P51X, ,SYMM  

DK,15, , , ,0,UX, , , , , ,   


FLST,2,1,4,ORDE,1   
FITEM,2,12  
/GO 
!*  
SFL,P51X,PRES,-SIG,