*CONTROL DEL PROBLEMA
   IDPR,   Ej-19.1			
   TITU,   "Ejercicio 19.1: Estructura plana de nudos rígidos con barra articulada"		
   SISUNI, SI
   TIPEST, EP_NR_XY				

*PARAMETROS GENERALES			
   H  = 3.0
   L1 = 3.0
   L2 = 5.0
   alpha = atan(H/L2)

   rot = 2  ! 1 = rótula en barra 1
            ! 2 = rótula en barra 2
   
*PARAMETROS DE ANALISIS	

>COORDENADAS
! kN     X      Y      Z
  1  	0.0 	0.0 	0.0
  2   	0.0  	  H   	0.0
  3    L1  	  H   	0.0
  4    L1+L2  0.0 	0.0

>MATERIALES
! kM        E    G   nu     Pesp    alpha 
  1   210.0e9  0.0  0.3  77.01e3  12.0e-6

>PROPIEDADES GEOMETRICAS
! kP    A       Ay   Az   Ix   Iy        Iz   
  1  4000.E-6  0.0  0.0  0.0  0.0  8000.E-8   
  2  4000.E-6  0.0  0.0  0.0  0.0 16000.E-8  


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