/CLEAR
/TITLE,UCHO_2D   
!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  
!*  
FINISH  
/SOL
FLST,2,4,4,ORDE,4   
FITEM,2,2   
FITEM,2,6   
FITEM,2,-7  
FITEM,2,9   
DL,P51X, ,SYMM  
FLST,2,1,4,ORDE,1   
FITEM,2,12  
/GO 
!*  
SFL,P51X,PRES,-SIG,