Untitled

FINISH
/CLEAR,START
!
!
/title, Kt - Stress concentration factor
!
/PREP7    !pre-processador
!
!---------------------------------------------------------------------
!Variable definition
!---------------------------------------------------------------------
!
LL = 0.2   !(m)
DD = 0.05   !(m)
rr = 0.0247525   !(m)
ddd = 0.049505   !(m)
hh = 0.01237625   !(m)
XX = (DD-ddd)/2    !(m)
PP = 0.00349159436   !(m)
MM = rr-XX   !(m)
EE = 210e9    !(Pa)
VV = 0.3    !Coeficiente de Poisson
DENSIDADE = 7850  !(kg/m^3)
FORCA = 1   !(N)
!
!
!---------------------------------------------------------------------
!Keypoints definition
!---------------------------------------------------------------------
!
! #    X                  Y           Z
!
K,1,   0,                 0,          0
K,2,   0,                 DD,         0
K,3,   0.75*LL,           DD,         0
K,4,   0.75*LL,           0,          0
K,5,   LL,                DD,         0
K,6,   LL,                0,          0
K,7,   LL+(2*PP),         DD,         0
K,8,   LL+(2*PP),         0,          0
K,9,   (1.25*LL)+(2*PP),  DD,         0
K,10,  (1.25*LL)+(2*PP),  0,          0
K,11,  (2*LL)+(2*PP),     DD,         0
K,12,  (2*LL)+(2*PP),     0,          0
K,13,  LL+PP,             XX,         0
K,14,  LL+PP,             -MM,        0
K,15,  LL+PP,             DD-XX,      0
K,16,  LL+PP,             DD+MM,      0
K,17,  0.75*LL,           DD/2,       0
K,18,  LL+PP,             DD/2,       0
K,19,  (1.25*LL)+(2*PP),  DD/2,       0
!
!
!---------------------------------------------------------------------
!Definição de linhas
!---------------------------------------------------------------------
!
L,1,2
L,2,3
L,3,5,20,0.1
L,7,9,20,10
L,9,11
L,11,12
L,12,10
L,10,8,20,0.1
L,6,4,20,10
L,4,1
LARC,6,13,14,rr
LARC,13,8,14,rr
LARC,5,15,16,rr
LARC,15,7,16,rr
L,3,17,6,
L,17,4,6,
L,17,18,15,0.1
L,15,18,10,10
L,18,13,10,0.1
L,18,19,15,10
L,9,19,6,
L,19,10,6,
!
/title, 'Geometry section'
/PNUM,LINE,1
GPLOT
!
!---------------------------------------------------------------------
!element definition
!---------------------------------------------------------------------
!
ET,1,SOLID186  !3-D 20-Node Structural Solid or Layered Solid
ET,2,PLANE183  !2-D 8-Node Structural Solid

MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,EX,1,,EE
MPDATA,PRXY,1,,VV
!
!---------------------------------------------------------------------
!lines
!---------------------------------------------------------------------
!
LESIZE,1, , ,6
LESIZE,2, , ,10
LESIZE,5, , ,10
LESIZE,6, , ,6
LESIZE,7, , ,10
LESIZE,10, , ,10
!
LESIZE,11, , ,6
LESIZE,12, , ,6
LESIZE,13, , ,6
LESIZE,14, , ,6
!
*ask,tecla,'Enter to continue'
!
!---------------------------------------------------------------------
!create areas
!---------------------------------------------------------------------
!
/title, Definicao areas/malha
AL,1,2,10,15,16
AL,15,3,13,18,17
AL,16,17,19,11,9
AL,18,14,4,21,20
AL,19,20,22,8,12
AL,22,21,5,6,7
!
FLST,2,6,5,ORDE,2
FITEM,2,1
FITEM,2,-6
AGLUE,P51X
!---------------------------------------------------------------------
!Fazer a malha
!---------------------------------------------------------------------
!
AMAP,1,2,4,1,3
AMAP,6,11,10,12,9
!
FLST,5,4,5,ORDE,2
FITEM,5,2
FITEM,5,-5
CM,_Y,AREA
ASEL, , , ,P51X
CM,_Y1,AREA
CHKMSH,'AREA'
CMSEL,S,_Y
!*
MSHKEY,2
AMESH,_Y1
MSHKEY,0
!*
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
!
*ask,tecla,'Enter to continue'
!
!---------------------------------------------------------------------
! volume with elemento SOLID186
!---------------------------------------------------------------------
!
/title, Volume definido
!
TYPE,   1
EXTOPT,ESIZE,10,0,
EXTOPT,ACLEAR,0
EXTOPT,ATTR,0,0,0
MAT,1
REAL,_Z4
ESYS,0
!
FLST,2,6,5,ORDE,2
FITEM,2,1
FITEM,2,-6
VEXT,P51X, , ,0,0,hh,,,,
!
!---------------------------------------------------------------------
!solution
!---------------------------------------------------------------------
!
/SOL
ANTYPE,0
/VIEW,  1,  0.784030041520    ,  0.261576099014    ,  0.562916368938
/ANG,   1,  -2.16713729620
/REPLO
!
NSEL,S,LOC,X,0,0
D,ALL,UY,,,,,UZ       !Definir SDx em YoZ
NSEL,ALL
!
NSEL,S,LOC,X,(2*LL)+(2*PP),(2*LL)+(2*PP)
D,ALL,UY,,,,,UZ         !Definir SDx no plano oposto
NSEL,ALL
!
!
NSEL,S,LOC,X,(2*LL)+(2*PP),(2*LL)+(2*PP)
SF,all,press,-FORCA                           !Definir carga distribuida no plano oposto
NSEL,ALL
!
NSEL,S,LOC,X,0,0
SF,all,press,-FORCA                           !Definir carga distribuida no plano oposto
NSEL,ALL
!
GPLOT
/TITLE,'Modelo antes solução '
*ask,tecla,'Enter to continue'
!
SOLVE
FINISH