! Végeslemes modellezés gyakorlat
! furatos lemez 3 - rombusz alakú furat
! [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\furatoslemez3'
! indítógomb létrehozása:
*ABBR,START,/input,furatoslemez3,ans

! változók megadása !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

a=1000    ! lemez szélessége
b=2000    ! lemez magassága
c=300     ! furat vizszintes átlója
d=500     ! furat függőleges átlója
v=5       ! vastagság

E=210000  ! rugalmassági modulus
nu=0.3    ! poisson tényező

em=100    ! elemméret
p=20      ! nyomás a lemez tetején

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

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

/PNUM,kp,1   ! pont sorszámozás láthatóságának bekapcsolása
/PNUM,line,1 ! vonal sorszámozás láthatóságának bekapcsolása
/PNUM,area,1 ! felület sorszámozás láthatóságának bekapcsolása

! GEOMETRIA MEGRAJZOLÁSA !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

! összeragasztással:
BLC4,0,d/2,a/2,b/2-d/2 ! lemez fenti bal téglalapja (sarok, szélesség, magasság)
PTXY,0,d/2,a/2,d/2,a/2,0,c/2,0
POLY,ptxy
AGLUE,all              ! összes felület összeragasztása

ALLSEL               ! minden kijelölése
APLOT                ! minden megjelenítése

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

! VÉGESELEM HÁLÓ ELKÉSZÍTÉSE !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
ET,1,PLANE183        ! 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,v                  ! Real Constant (ha keyopt=3, akkor vastagság): 2mm
ESIZE,em             ! végeselem mérete: em(=100)
MSHAPE,0,2D          ! végeselem alakja (0:négyszög,1:háromszög, model dimenziója: 2D)
MSHKEY,1             ! 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,y,0     ! vonal választás (s: új választás, y=0 középpontú vonalak kijelölése)
! DL,all,,uy,0       ! összes választott vonal y irányú elmozdulása 0
! 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 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,y,0       ! node választás (s: új választás, y=0 koordinátájú node-ok kijelölése) 
D,all,uy,0           ! összes választott node y irányú elmozdulása 0
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 x irányú elmozdulása 0
! másik módszer vége

! terhelések megadása
LSEL,s,loc,y,b/2     ! vonal választés (s: új választás, y=b/2 középpontú vonalak kiválasztása)
SFL,all,pres,-p      ! felületi terhelés vonalon (p=20MPa) (minusz előjel -> felületből kifelé 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_y feszültségeloszlás ábrázolása x 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,,c/2,0       ! nyomvonal 1. pontja (node száma (üres), x és y koordináta)
PPATH,2,,a/2,0       ! nyomvonal 2. pontja (node száma (üres), x és y koordináta)
PDEF,sy,s,y          ! ábrázolandó mennyiség (név,árázolandó mennyiség,komponens)
PLPATH,sy            ! ábrázolás