/CLEAR
/TITLE,UCHO_3D   
!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,
!++++++++++++++
/VIEW,1,1,1,1   
/ANG,1  
/REP,FAST   
FLST,2,1,5,ORDE,1   
FITEM,2,2   
VEXT,P51X, , ,0,0,H/2,,,,   
!*  
ET,1,SOLID186   
!*  
CM,_Y,VOLU  
VSEL, , , ,       1 
CM,_Y1,VOLU 
CHKMSH,'VOLU'   
CMSEL,S,_Y  
!*  
VSWEEP,_Y1  
!*  
CMDELE,_Y   
CMDELE,_Y1  
CMDELE,_Y2  
!*  
!*  
!_________

/SOL
FLST,2,5,5,ORDE,4   
FITEM,2,2   
FITEM,2,9   
FITEM,2,14  
FITEM,2,-16 
DA,P51X,SYMM
FLST,2,1,5,ORDE,1   
FITEM,2,8   
/GO 
!*  
SFA,P51X,1,PRES,-SIG
/STATUS,SOLU
SOLVE   
FINISH  
/POST1  
FINISH