/filename, vem_11
/title, vem_11

! Képernyő invertálás
/RGB,INDEX,100,100,100,0	
/RGB,INDEX,0,0,0,15 

! Adatok
	r=50
	a=400/2
	b=200/2
	t=10
	
	young=200E3
	nu=0.3
	p0=50
	
	m1=10
	m2=m1/2
	m3=m2/2
	pathsol=30
	pathdiv=20
	
! Kis és nagybetű mindegy	
/PNUM,KP,1  	
/PNUM,LiNe,1
/PNUM,aReA,1

! Preprocessing fázis
/PREP7
	
! Elemtípus megadása
	ET,1,PLANE182,,,3
	R,1,t
	
! Anyagjellemzők
	MPTEMP,1,0 
	MPDATA,EX,1,,young
	MPDATA,PRXY,1,,nu

/PREP7 

! Geometria
K,1,b,0
K,2,b+r,0
K,3,b+r,r
K,4,a,r
K,5,a,a
K,6,0,a
K,7,0,0
L,4,5
L,5,6
L,6,7
L,7,1
L,3,4
LARC,1,3,2,r
AL,1,2,3,4,5,6

! Hálózás (free mesh)
ASEL,All
AATT,1,1
AESIZE,ALL,m1
AMESH,ALL

! Kényszerek / terhelések
DL,4,,UY,0
DL,3,,UX,0
SFL,2,PRES,-p0
	
! Átlépés a Solution fázisba és megoldás
/SOLU
Solve

! Gen. Postprocessing fázis
/POST1

! Feszültség intenzitás (Mohr)
PLNSOL,S,INT
/IMAGE,SAVE,CHRVAL(r),BMP