! Végeslemes modellezés gyakorlat ! eromérő cella 3 - struktúrált négyszögháló ! [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\eromero_cella_3' ! indítógomb létrehozása: *ABBR,START,/input,eromero_cella_3,ans ! ADATBEVITEL !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! Geometriai adatok l=80 ! az erőmérő cella hossza a=12 ! az erőmérő cella magassága s=9 ! furatok középpontjainak távolsága d=10 ! furatok átmérője b=8 ! üreg kibővítése egy négyzettel(élhossz: 8mm) ! Anyagtulajdonságok E=2e5 ! rugalmassági modulus nu=0.3 ! Poisson tényező ! Peremfeltételek l0=20 ! megfogás hossza l1=30 ! terhelés hossza n=1 ! terhelési eset !------------------------------------------------------------------------------------------------- !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! PREPROCESING !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !------------------------------------------------------------------------------------------------- /PREP7 ! belépés a preprocessorba (előkészítőbe) ! GEOMETRIA MEGRAJZOLÁSA !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! BLC4,0,0,l,a ! téglalap rajzolása (bal alsó sarok, szélesség, magasság) CM,cella,area ! táglalap elnevezése "cella" komponensnek CYL4,l/2-s/2,a/2,d/2 ! baloldali furat megadása (középpont, sugár) CYL4,l/2+s/2,a/2,d/2 ! jobboldali furat megadása (középpont, sugár) BLC5,l/2,a/2,b,b ! téglalap üreg kibővítéséhez (középpont, szélesség, magasság) CMSEL,u,cella ! első téglalap (cella) elrejtése az aktuális elemek közül CM,ureg,area ! ami most látható (2 furat + négyzet) elnevezése "ureg"-nek ALLSEL ! minden kijelölése (újra minden látható lesz) ASBA,cella,ureg ! az ureg kivonása a cellából ! Geometria előkészítése peremfeltételekhez LSEL,s,loc,y,0 ! az alsó vonal kijelölése LDIV,all,l0/l ! a kijelölt vonal felosztása l0/l arányban -> 20 és 60 mm-es szakaszokra LSEL,s,loc,y,a ! a felső vonal kiválasztása LDIV,all,l1/l ! a kijelölt vonal felosztása l1/l arányban -> 30 és 50 mm-es szakaszokra LSEL,r,loc,x,l-l1,l ! a 30 mm-es szakasz kijelölése LDIV,all,,,3 ! a kijelölt szakasz felosztása 3 egyenlő részre ! Geometria előkészítése hálózáshoz LSEL,none ! vonal kijelölések megszüntetése KSEL,s,loc,y,a/2+b/2 ! y=a/2+b/2 pontok kijelölése *GET,num1,kp,0,num,min ! fenti kijelölésből a legkisebb sorszámú pont sorszáma -> num1 *GET,num2,kp,0,num,max ! fenti kijelölésből a legnagyobb sorszámú pont sorszáma -> num2 *GET,n1x,kp,num1,loc,x ! num1 sorszámú pont x koordinátája -> n1x *GET,n2x,kp,num2,loc,x ! num2 sorszámú pont x koordinátája -> n2x *GET,mxnum,kp,0,num,maxd ! legnagyobb csomópont sorszám -> mxnum K,mxnum+1,n1x,a ! mxnum+1 sorszámú pont elhelyezése n1x,a helyre K,mxnum+2,n2x,a ! mxnum+2 sorszámú pont elhelyezése n2x,a helyre L,num1,mxnum+1 ! vonal a num1 és mxnum+1 sorszámú pontok közé L,num2,mxnum+2 ! vonal a num2 és mxnum+2 sorszámú pontok közé KSEL,s,loc,y,a/2-b/2 ! y=a/2-b/2 pontok kijelölése *GET,num1,kp,0,num,min ! fenti kijelölésből a legkisebb sorszámú pont sorszáma -> num1 *GET,num2,kp,0,num,max ! fenti kijelölésből a legnagyobb sorszámú pont sorszáma -> num2 *GET,n1x,kp,num1,loc,x ! num1 sorszámú pont x koordinátája -> n1x *GET,n2x,kp,num2,loc,x ! num2 sorszámú pont x koordinátája -> n2x *GET,mxnum,kp,0,num,maxd ! legnagyobb csomópont sorszám -> mxnum K,mxnum+1,n1x,0 ! mxnum+1 sorszámú pont elhelyezése n1x,0 helyre K,mxnum+2,n2x,0 ! mxnum+2 sorszámú pont elhelyezése n2x,0 helyre L,num1,mxnum+1 ! vonal a num1 és mxnum+1 sorszámú pontok közé L,num2,mxnum+2 ! vonal a num2 és mxnum+2 sorszámú pontok közé *GET,mxnum,kp,0,num,maxd ! legnagyobb csomópont sorszám -> mxnum K,mxnum+1,l/2-s/2-a/8,a/2 ! mxnum+1 sorszámú pont elhelyezése K,mxnum+2,l/2-s/2-a,a/2+2*a ! mxnum+2 sorszámú pont elhelyezése K,mxnum+3,l/2-s/2-a,a/2-2*a ! mxnum+3 sorszámú pont elhelyezése L,mxnum+1,mxnum+2 ! vonal mxnum+1 és mxnum+2 sorszámú pontok közé L,mxnum+1,mxnum+3 ! vonal mxnum+1 és mxnum+2 sorszámú pontok közé *GET,mxnum,kp,0,num,maxd ! legnagyobb csomópont sorszám -> mxnum K,mxnum+1,l/2+s/2+a/8,a/2 ! mxnum+1 sorszámú pont elhelyezése K,mxnum+2,l/2+s/2+a,a/2+2*a ! mxnum+2 sorszámú pont elhelyezése K,mxnum+3,l/2+s/2+a,a/2-2*a ! mxnum+3 sorszámú pont elhelyezése L,mxnum+1,mxnum+2 ! vonal mxnum+1 és mxnum+2 sorszámú pontok közé L,mxnum+1,mxnum+3 ! vonal mxnum+1 és mxnum+2 sorszámú pontok közé CM,cut,line ! kijelölt vonalak elnevezése cut-nak ALLSEL ! minden kijelölése ASBL,all,cut ! cut vonalak kivonása mindenből APLOT ! minden plottolása ASEL,s,loc,x,l/2-s/2-d/2,l/2+s/2+d/2 ! megadott x koordináták közti felületek kijelölése CM,thin,area ! a kijelölt felületek elnevezése thin-nek ASEL,inve ! a kijelölés invertálása CM,thick,area ! a kijelölt terület elnevezése thick-nek ALLSEL ! minden kijelölése ! ANYAGTULAJDONSÁGOK !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! MP,ex,1,E ! rugalmassági modulus MP,nuxy,1,nu ! Poisson tényező ! 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,2 ! 1-es sorszámú elem 3.keyoptja: 3 (1:FSZ, 2:SA 3:ÁSF) MSHAPE,0,2D ! elem alakja (0: négyszög, 1: háromszög) es=(a-d)/4 ! 4 elemsor legyen DESIZE,1,1,9999,,,es,es ! elemméret megadása CMSEL,s,thin ! thin tartomány kiválasztása *GET,numa,area,0,count ! a thin tartományon belüli felületek száma -> numa aa=0 *DO,i,1,numa ! i=1 től numa-ig CMSEL,s,thin ! thin tartomány kijelölése *GET,aa,area,aa,nxth ! aa utáni legkisebb sorszámú felület sorszáma -> aa ASEL,s,area,,aa ! aa sorszámú felület kiválasztása LSLA,s ! a kijelölt felületen belül az összes vonal kijelölése KSLL,s ! a kijelölt vonalakon belül az összes pont kijelölése kk=1000 ! kk=1000 pontsoszám megadása *GET,kk1,kp,kk,nxtl ! kk-nál kisebb, legnagyobb sorszámú pont sorszáma -> kk1 *GET,kk2,kp,kk1,nxtl ! kk1-nél kisebb, legnagyobb sorszámú pont sorszáma -> kk2 *GET,kk3,kp,kk2,nxtl ! kk2-nél kisebb, legnagyobb sorszámú pont sorszáma -> kk3 *GET,kk4,kp,kk3,nxtl ! kk3-nál kisebb, legnagyobb sorszámú pont sorszáma -> kk4 AMAP,aa,kk1,kk2,kk3,kk4 ! kk1,kk2,kk3,kk4 pontok által definiált, aa sorszámú felület hálózása *ENDDO ! do ciklus lezárása CMSEL,s,thick ! thick tartomány kiválasztása DESIZE,1,1,9999,,,es/2,a/4,0.2 ! elemméret megadása MSHAPE,1,2d ! 2d háromszög elem definiálása MSHKEY,0 ! szabad háló definiálása AMESH,thick ! thick tartomány behálózása ALLSEL ! minden kijelölése ! PEREMFELTÉTELEK MEGADÁSA !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! LSEL,s,loc,y,0 ! a befogás helyének kijelölése LSEL,r,loc,x,0,l0 NSLL,s,1 ! összes node kijelölése az aktív vonalon (1->végpontok is) D,all,ux,0 ! a kijelölt node-ok megfogása x irányban D,all,uy,0 ! a kijelölt node-ok megfogása y irányban LSEL,s,loc,y,a ! a megadott terhelési szakasz kijelölése LSEL,r,loc,x,l-l1+(n-1)*l1/3,l-l1+n*l1/3 SFL,all,pres,1 ! terhelés elhelyezése (p=1N/mm^2) ALLSEL ! minden kijelölése (újra minden látható lesz) FINISH ! kilépés a preprocessorból !------------------------------------------------------------------------------------------------- !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! SOLVING !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !------------------------------------------------------------------------------------------------- /SOL ! 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 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,epel,x, ! epsilon_x fajlagos nyúlás szemléltetése *ASK,next,OK,0 ! felugró ablak a következő ábrához PLNSOL,s,eqv ! redukált feszültségeloszlás ábrázolása *GET,nn,node,0,count ! csomópontszám lekérése