/CLEAR,START
!Parametry:
H=200 !mm-dlugosc tarczy  
R=30  !mm-promień karbu 
B=120  !mm-szerokość tarczy
SIG=100 !MPa-naprężenia średnie
E=2e5  !MPa-Moduł Younga
NI=0.3 !Stała Poissona

NDIV=10 !ilosc elementow na linii
SPACE=2 ! 

/PREP7  
!Model geometryczny
RECTNG,,B/2,,H/2,   
KWPLAN,-1,       2,       1,       3
PCIRC,R, ,0,360,
ASBA,       1,       2  
!*  
ET,1,PLANE183   !< element 8wezlowy
KEYOPT,1,3,0 !< opcja Plain stress  
! Podzialy na liniach
LESIZE,4, , ,NDIV,1/2, , , ,1   
LESIZE,10, , ,NDIV,1/2, , , ,1   
LESIZE,5, , ,NDIV,2, , , ,1 
LESIZE,9, , ,NDIV,1/2, , , ,1   
LESIZE,3, , ,NDIV/2, , , , ,1 
! Siatka elementow
MSHAPE,0,2D 
MSHKEY,0
AMESH,3   

! dane materialowe  
MPTEMP,,,,,,,,  
MPTEMP,1,0  
MPDATA,EX,1,,E  
MPDATA,PRXY,1,,NI  

/SOL
!warunki brzegowe
DL,       4, ,SYMM  
DL,       9, ,SYMM  
SFL,3,PRES,-SIG, 

EPLOT