*CONTROL DEL PROBLEMA
   IDPR,   Ej20.1
   TITU,   "Ejercicio 20.1: Estructura plana (simétrica) de nudos articulados"
   SISUNI, mkN
   TIPEST, EP_NA_XY

*PARAMETROS GENERALES
   Modelo = 1   ! 0 <> Estructura completa
                ! 1 <> Media esstructura con carga simétrica
                ! 2 <> Media estructura con carga antisimétrica
   H1  = 5.0
   H2  = 2.0
   L1  = 2.0
   L2  = 4.0
   L3  = 2.0
   Av  = 20000.0e-6
   As  = 10000.0e-6
   Aa  =  1500.0e-6
   F6X = 100.0
	
*PARAMETROS DE ANALISIS

>COORDENADAS
! nudo      X      Y        Z   (metros)
   1      0.0     0.0     0.0
   2      0.0     H1+H2   0.0
   3       L1      H1     0.0
   4     L1+L2/2  H1+H2   0.0
IF,Modelo,=,0,THEN
   5     L1+L2      H1    0.0
   6     L1+L2+L3  H1+H2  0.0
   7     L1+L2+L3  0.0    0.0
ELSE
   5     L1+L2/2    H1    0.0
ENDIF
   
>RESTRICCIONES
   TODOS         DZ  GX GY GZ
   1      DX DY
IF,Modelo,=,0,THEN
   7  DX  DY
ELSEIF,Modelo,=,1,THEN
   4  DX
   5  DX  DY
ELSEIF,Modelo,=,2,THEN
   4  DY
   5  DY
ENDIF

>MATERIALES
! kM        E     G     Nu     Rho     Alpha        Se
   1  210.0e6   0.0    0.3   77.01   12.0e-6   260.0e3

>PROPIEDADES
! kP  Ax   
   1  Av   ! Vigas
   2  As   ! Soportes
   3  Aa   ! Arriostramientos     

>ELEMENTOS
   GRUPO 1 BNA
   ! kE   kI  kJ    kM  kP	
      1    1   2     1   2 
      2    1   3     1   3       
      3    2   3     1   3       
      4    2   4     1   1       
      5    3   4     1   3 
      6    3   5     1   3
IF,Modelo,=,0,THEN
      7    4   5     1   3
      8    4   6     1   1
      9    5   6     1   3
     10    5   7     1   3
     11    6   7     1   2
ENDIF  
     
>CARGAS
   ESTADO 1 "Cargas en nudos (kN)"
      CARGAS EN NUDOS  
      IF,Modelo,=,0,THEN
         6   F6X
      ELSEIF,Modelo,=,1,THEN
         2   -F6X/2
      ELSEIF,Modelo,=,2,THEN
         2    F6X/2
      ENDIF

*FIN



