/BATCH
!
!==========================================================================
!******************************** START ***********************************
!==========================================================================
!
 FINISH               ! (Estes dois comandos limpam os dados atuais)
 /CLEAR
!
 /NOPR                !Suprime a impressao de dados de entrada interpretados
 /NOLIST              !Suprime a entrada de dados listados
!
!
!==========================================================================
! *************************** DADOS DO ARQUIVO ****************************
!==========================================================================  
! 
! NORSTGM=1 NAO ESCREVER OS DADOS DE GEOMETRIA
! NPROC - NUMERO DE PROCESSADORES
! NOELDB=1, NAO ESCREVER RESULTADOS NA DATABASE
! 
 /CONFIG,NORSTGM,1,NOELDB,1,NPROC,4
! 
! MSGPOP=3 - Mostrar apenas erros ocorridos
! UNDO=2   - NAO escreve comentarios e comandos nao essenciais
! REPLOT=0 - NO AUTOMATIC REPLOT
! 
 /UIS, MSGPOP, 3, UNDO, 2, REPLOT,0
!
 /CWD,'C:\Users\Pichau\FIRE_ANSYS'                     ! DIRETORIO  
 /TITLE,OTIMIZATION                          
 /FILNAME,OTIMIZATION,0                                ! TITULO DO TRABALHO
 /PREP7                                                ! TIPO DE ANALISE
 /COM,  Structural                                     ! ANALISE ESTRUTURAL    
!
!
!
!==========================================================================
! ************************* VARIAVEIS ALEATORIAS **************************
!==========================================================================
!
!VA1
bm = 0.25965                                 ! comprimento da mesa (m)
!VA2
em = 0.026343                              ! espessura da mesa (m) 
!
!VA3
ea = 0.023252                           ! espessura da alma (m)
!VA4
ap = 0.80587                              !  altura do pefil (m)
!
!
!==========================================================================
!************************** PARAMETROS DE ENTRADA *************************
!==========================================================================
!
 h = ap+2*em
 tw = ea
 tf = em
 b = bm
!
!
 d = 7850                          ! DENSIDADE DO ACO (kg/m3) 
 v = 0.28                          ! COEFICIENTE DE POISSON (adimensional)
 Tamb = 20                         ! TEMPERATURA AMBIENTE (C)
!
!
 L = 25                      ! COMPRIMETO DA VIGA
 ME = 210E+09                ! MODULO DE ELASTICIDADE para 20C (N/m2)
 A = (h*tw+2*b*tf)           ! AREA (m2)
 Q = 1.4*(19+77*A)*1000          ! CARGA DISTRIBUIDA (kN.m)
 P = 1.4*104000                  ! CARGA CONCENTRADA (kN)
!
!
!
!==========================================================================
!************************** PROPRIEDADES DA ESTRUTURA *********************
!==========================================================================
!
ET,1,BEAM188             ! Tipo de Elemento (Element type) 
!*  
!*  
 TREF,Tamb
 TOFFST,273               ! TEMPERATURA EM GRAUS CELSIUS (C)
!
! DENSIDADE DO ACO (kg/m3)   
 MPTEMP,,,,,,,,  
 MPTEMP,1,0  
 MPDATA,DENS,1,,d                                   
!*  
MPTEMP,,,,,,,,  
MPTEMP,1,0  
MPDATA,EX,1,,ME 
MPDATA,PRXY,1,,v
!
!==========================================================================
!************************** PROPRIEDADES DA ESTRUTURA *********************
!==========================================================================
!
SECTYPE,   1, BEAM, I, perfilI, 5   
SECOFFSET, CENT 
SECDATA,b,b,h,tf,tf,tw,0,0,0,0,0,0   
!
!
!
!   
K,1,,,,,,,  
K,2,L,0,0,,,, 
!
LSTR,       1,       2  
!
!
!
K,3,0,5,0,  
!*  
LESIZE,ALL, , ,100, ,1, , ,1,   
!
CM,_Y,LINE  
LSEL, , , ,       1 
CM,_Y1,LINE 
CMSEL,S,_Y  
!*  
!*  
CMSEL,S,_Y1 
LATT,1, ,1, ,       3, ,1   
CMSEL,S,_Y  
CMDELE,_Y   
CMDELE,_Y1  
!*  
LMESH,       1  
!   
!
!
/SHRINK,0   
/ESHAPE,1.0 
/EFACET,1   
/RATIO,1,1,1
/CFORMAT,32,0   
/REPLOT 
!
!
!
FLST,2,1,3,ORDE,1   
FITEM,2,1   
!*  
/GO 
DK,P51X, , , ,0,ALL, , , , , ,  
FLST,2,1,3,ORDE,1   
FITEM,2,2   
!*  
/GO 
DK,P51X, , , ,0,UY, , , , , ,   
FLST,2,1,1,ORDE,1   
FITEM,2,51  
!*  
/GO 
F,P51X,FY,-P
FLST,2,1,4,ORDE,1   
FITEM,2,1   
!   
FLST,2,1,4,ORDE,1   
FITEM,2,1   
/GO 
!*  
SFL,P51X,PRES,-Q,    
!
!   
FINISH  
/SOL
/STATUS,SOLU
SOLVE
!
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
*get,node_min,node,0,num,minD       ! Obter o ID mínimo do nó
*get,node_max,node,0,num,maxD       ! Obter o ID máximo do nó
*cfopen, beam_file,txt             ! Crie um arquivo txt chamado "node_data_file"
*do,i,node_min,node_max,1           ! Faça um loop sobre cada nó
nsel,s,node,,i,i                    ! Selecione o nó correspondente
!
!*GET,u2,NODE,i,U,X
*GET,v2,NODE,i,U,Y
!*GET,w2,NODE,i,U,Z
!
!*GET,s_xy,NODE,i,S,XY
!*GET,s_yz,NODE,i,S,YZ
!*GET,s_xz,NODE,i,S,XZ
!*GET,s_eqv,NODE,i,S,EQV
!
*vwrite, v2                   ! Escreva esses valores
(4F16.8)                            ! Defina o formato
*enddo
*CFCLOS                             ! Fechar arquivo
!