!VEMA 3.gyak 
!1D-s rúdfeladat 
![mm,N,MPa]

FINISH
/CLEAR

/CWD,'D:\Google_Drive\01_education\05A_VEMA\gyakok21221\gyak3'	! munkakönyvtár beállítása
*ABBR,START,/input,VEMA_gyak3,ans		! gomb létrehozása apdl-en belül, ami beolvassa az VEMA_gyak3 fájlt

/PNUM,kp,1              ! keypoint sorszámozás bekapcsolása
/PNUM,line,1            ! vonal sorszámozás bekapcsolása
/PNUM,node,1  			! csomópont sorszámozás bekapcsolása 
/PNUM,elem,1			! végeselem sorszámozás bekapcsolása	

! ADATBEVITEL
len=1000			    ! rúd hossza [mm]
!n=10					! elemek száma
*ASK,n,Elem szam,10		! felugró ablak létrehozása, majd az n érték megadása, alapérték 10 
L=len/n 			    ! egy végeselem hossza
F=10000					! koncentrált erő nagysága [N]
q=10					! megoszló terhelés nagysága [N/mm] 
E=2e5				    ! rugalmassági modulusz
A=100	                ! keresztmetszet terulete

! PREPROCESSING !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

/PREP7					! belépés a preprocesszáló részbe

! GEOMETRIA MEGRAJZOLÁSA
K,1,0,0 				! 1-es pont megadás
K,2,len,0				! 2-es pont megadás	
L,1,2					! pontok összekötése vonallal

! ANYAGJELLEMZŐK MEGADÁSA
mp,ex,1,E   		    ! rugalmassági modolusz megadás E [MPa] 

! HÁLÓZÁS
ET,1,link180 			! végeselem típusa link180, húzott-nyomott elem 	
SECTYPE,1,link      	! KM típusa (húzott-nyomott keresztmetszet)
SECDATA,A   			! KM területe  

ESIZE,,n 			    ! elem méret beállítás	
LMESH,all				! hálózás parancs

! PEREMFELTÉTELEK MEGADÁSA
NSEL,s,loc,x,0			! x=0-nál lévő pontok kiválasztása (itt a rúd kezdőpontja) (s=új kiválasztás)
D,all,ux,0				! összes kiválasztott pont (=rúd kezdőpontjának) x irányú elmozdulása: 0

NSEL,s,loc,x,len		! x=len-nél lévő pontok kiválasztása (itt a rúd végpontja) (s=új kiválasztás)
F,all,fx,F+q*L/2		! összes kiválasztott pontba (=rúd végpontjába) fx=F+q*L/2 nagyságú erő megadása

Nsel,s,loc,x,0			! x=0-nál lévő pontok kiválasztása (itt a rúd kezdőpontja) (s=új kiválasztás)
F,all,fx,q*L/2			! összes kiválasztott pontba (=rúd kezdőpontjába) fx=q*L/2 nagyságú erő megadása

Nsel,a,loc,x,len		! x=len-nél lévő pont kiválasztása a meglévő kiválasztáshoz (a=kiválasztás hozzáadása a meglévőhöz) -> rúd 2 végpontja van kiválasztva
Nsel,inve,				! inverz kiválasztás, ezzel kiválasztottuk az össze pontot a kezdő és végpontot kivéve
F,all,fx,q*L			! fx=q*L terhelés megadása a belső pontokra

ALLSEL					! minden kiválasztása, mivel a számolásnál probléma lehet, ha nincs minden pont kiválasztva 	
FINISH				    ! kilépés a preprocessingból

! SOLVING !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
/SOLU					! belépés a solver-be
SOLVE					! számítás elvégzése
FINISH					! kilépés a solver-ből

! POSTPROCESSING !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
/POST1  				! belépés a postprocessor-ba

/PNUM,node,0 			! node sorszámozás kikapcsolása 
/PNUM,elem,0			! elem sorszámozás kikapcsolása

PLDISP                  ! elmozdulás szemléltetése (színskála nélkül)
*ASK,aa,OK,0			! felugró ablak létrehozása, hogy ne ugorjon tovább a következő eredményre
PLNSOL,u,x				! plot nodal solution, elmozdulás eredmények ábrázolása színskálával
*ASK,aa,OK,0			! felugró ablak létrehozása, hogy ne ugorjon tovább a következő eredményre

! elem-táblázat létrehozása
ETABLE,Sxxi,ls,1		! szigma x rúdirányú normálfeszültségek a rudak i-edi csomópontjában -> Sxxi
ETABLE,Sxxj,ls,2		! szigma x rúdirányú normáéfeszültségek a rudak j-edi csomópontjában -> Sxxj
PLLS,Sxxi,Sxxj			! szigma x rúdirányú normálfeszültségek ábrázolása
*ASK,aa,OK,0			! felugró ablak létrehozása, hogy ne ugorjon tovább a következő eredményre

ETABLE,N,smisc,1		! rúderő az egyes rudakban -> N
PLLS,N,N				! rúderők ábrázolása (egy elemen belüli átlagot ábrázol) 

*ask,aa,OK,0			! felugró ablak létrehozása, hogy ne ugorjon tovább a következő eredményre
PLETAB,N,noav 			! rúderő ábrázolása 

PRRSOL                  ! támasztóerők listázása