*CONTROL DEL PROBLEMA
   IDPR,   Ej-19.2			
   TITU,   "Ejercicio 19.2: Estructura plana de nudos rígidos con apoyo inclinado"		
   SISUNI, mkN	
   TIPEST, EP_NR_XY			

*PARAMETROS GENERALES			
   H  = 3.0
   L1 = 4.0
   L2 = 2.0
   alpha = atan(H/L1)
   modo  =  1  ! 1 = liberando cortante
               ! 2 = añadiendo barra articulada

*PARAMETROS DE ANALISIS	

>COORDENADAS
! kN     X      Y      Z
  1  	0.0 	0.0 	0.0
  2   	L1       H   	0.0
  3    L1+L2 	  H   	0.0
IF,modo,=,2,THEN
  4    -L1/2  -H/2   0.0
ENDIF

>MATERIALES
! kM        E    G   nu    pesp  alpha 
  1   210.0e6  0.0  0.0    0.0    0.0
 
>PROPIEDADES GEOMETRICAS
! kP  A        Ay   Az   Ix   Iy    Iz
  1  4000e-6  0.0  0.0  0.0  0.0  10000e-8  
  2    1      0.0  0.0  0.0  0.0  10000e-8

>ELEMENTOS
  GRUPO 1 BNR  	
   2     2  3    1  1   0 0   CA  0.0 2*H   0.0  
IF,modo,=,1,THEN
   1     1  2    1  1   0 0   CA  0.0  H    0.0   LIBE 2  0
ELSEIF,modo,=,2,THEN
  GRUPO 2  BNA
   1     1  2    1  1   0 0   CA  0.0  H    0.0   
   3     4  1    1   2  0  0
ENDIF    
  
>RESTRICCIONES
  TODOS         DZ  GX  GY	 
   3    DX  DY  DZ  GX  GY 
IF,modo,=,1,THEN
   1    DX  DY  DZ  GX  GY  GZ  
ELSEIF,modo,=2,THEN
   1                        GZ
   4    DX  DY  DZ  GX  GY  GZ  
ENDIF
      
>CARGAS
   ESTADO 1  "Cargas en nudos y elementos"
      CARGAS EN NUDOS
         2   0.0   0.0   0.0  0.0  0.0  -20.0
      CARGAS EN ELEMENTOS
         UNIFORME  0   0
            1    -20*sin(alpha)  -20.0*cos(alpha)  0.0  0.0  0.0  0.0
            2     0.0            -20               0.0  0.0  0.0  0.0
*FIN