! Végeslemes modellezés gyakorlat
! furatos konzol
! [N,mm,MPa]

FINISH     ! kilépés minden folyamatból
/CLEAR     ! memória törlése

! munkakönyvtár beállítása:
/CWD, 'D:\Google_Drive\01_education\07_VEA\APDL_20211\furatos_konzol'
! indítógomb létrehozása:
*ABBR,START,/input,furatos_konzol,ans

!-------------------------------------------------------------------------------------------------
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! PREPROCESING !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!-------------------------------------------------------------------------------------------------

/PREP7                   ! belépés a preprocessorba (előkészítőbe)

! GEOMETRIA MEGRAJZOLÁSA !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
BLC4,0,0,40,40           ! téglalap rajzolás (bal alsó sarok, szélesség, magasság)
CYL4,40,80,40,-90,80,0   ! körgyűrűcikk rajzolás (középpont,belső sugár és szöge, külső sugár és szöge) 
CYL4,100,80,0,0,20,180   ! félkör rajzolás
CM,lemez,area            ! aktív felületek elnevezése "lemez" nevű komponensnek
ASEL,none                ! felületek elrejtése
CYL4,100,80,10           ! furat megrajzolása
CM,furat,area            ! aktív felület elnevezése "furat" nevű komponensnek
ALLSEL                   ! minden kijelölése
ASBA,lemez,furat         ! lemezből a furat kivonása
AGLUE,all                ! összes felület összeragasztása     

! ANYAGJELLEMZŐK !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
MP,ex,1,210000           ! Rugalmassági modulus megadása (1 -> sorszáma)
MP,nuxy,1,0.3            ! Poisson tényező megadása (1 -> sorszáma)

! VÉGESELEM HÁLÓ ELKÉSZÍTÉSE !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
ET,1,PLANE182        ! elemtípus megadása (1 -> sorszáma) (182:lineáris elem, 183: másodfokú elem)
KEYOPT,1,3,3         ! 1-es sorszámú elem 3.keyoptja: 3 (1:FSZ, 2:SA 3:ÁSF)
R,1,2                ! Real Constant (ha keyopt=3, akkor vastagság): 2mm
ESIZE,1              ! végeselem mérete
MSHAPE,1,2D          ! végeselem alakja (0:négyszög,1:háromszög, model dimenziója: 2D)
MSHKEY,0             ! hálózási technika (0:szabad, 1:struktúrált, 2:vegyes)
AMESH,all            ! összes felület behálózása

! PEREMFELTÉTELEK MEGADÁSA !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

! megfogások megadása:
! egyik módszer: peremfeltétel definiálása vonalakra
! LSEL,s,loc,x,0     ! vonal választás (s: új választás, x=0 középpontú vonalak kijelölése)
! DL,all,,ux,0       ! összes választott vonal y irányú elmozdulása 0
! DL,all,,uy,0       ! összes választott vonal x irányú elmozdulása 0
! egyik módszer vége

! másik módszer: peremfeltétel definiálása csomópontokra (node-okra)
NSEL,s,loc,x,0       ! node választás (s: új választás, x=0 koordinátájú node-ok kijelölése) 
D,all,ux,0           ! összes választott node y irányú elmozdulása 0
D,all,uy,0           ! összes választott node x irányú elmozdulása 0
! másik módszer vége

! terhelések megadása
LSEL,s,loc,x,90,110  ! vonal választás (s: új választás, x=90 és 110 közti vonalak kiválasztása)
LSEL,r,loc,y,70,80   ! vonal választás (r: aktuális választás szükítése: y=90 és 80 közti vonalak kiválasztása)
SFL,all,pres,10      ! felületi terhelés vonalon (pozitív -> felület felé mutat)

ALLSEL               ! minden kijelölése

FINISH               ! kilépés a preprocessorból

!-------------------------------------------------------------------------------------------------
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! SOLVING !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!-------------------------------------------------------------------------------------------------

/SOLU                ! belépés a solverbe (megoldóba)
SOLVE                ! számítás elvégzése
FINISH               ! kilépés a solverből

!-------------------------------------------------------------------------------------------------
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! POSTPROCESSING !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!-------------------------------------------------------------------------------------------------

/POST1               ! belépés a postprocessorba (kiértékelőbe)

PLNSOL,u,sum         ! elmozdulásmező ábrázolása
*ASK,next,OK,0       ! felugró ablak a következő ábrához
PLNSOL,u,x           ! x irányú elmozdulásmező ábrázolása
*ASK,next,OK,0       ! felugró ablak a következő ábrához
PLNSOL,u,y           ! y irányú elmozdulásmező ábrázolása
*ASK,next,OK,0       ! felugró ablak a következő ábrához

PLNSOL,s,eqv         ! redukált feszültségeloszlás ábrázolása
*ASK,next,OK,0       ! felugró ablak a következő ábrához
PLNSOL,s,x           ! szigma_x normál feszültségeloszlás ábrázolása
*ASK,next,OK,0       ! felugró ablak a következő ábrához
PLNSOL,s,y           ! szigma_y normál feszültségeloszlás ábrázolása
*ASK,next,OK,0       ! felugró ablak a következő ábrához
PLNSOL,s,xy          ! tau_xy csúsztató feszültségeloszlás ábrázolása
*ASK,next,OK,0       ! szigma_y normál feszültségeloszlás ábrázolástxy

! szigma_x feszültségeloszlás ábrázolása y tengely mentén
PATH,graf,2,1,100    ! nyomvonal elnevezése(->graf) és jellemzőinek megadása:
					 ! 2 pont által definiált, 1 ábrázolandó mennyiség, 100 osztópont
PPATH,1,,0,0         ! nyomvonal 1. pontja (node száma (üres), x és y koordináta)
PPATH,2,,0,40        ! nyomvonal 2. pontja (node száma (üres), x és y koordináta)
PDEF,sx,s,x          ! ábrázolandó mennyiség (név,árázolandó mennyiség,komponens)
PLPATH,sx            ! ábrázolás