*CONTROL DEL PROBLEMA
   IDPR,  Ejs.18.4
   TITU,  "Ejercicios 18.4, 18.5 y 18.6: Estructura plana de nudos rígidos"
   SISUNI,     mkN
   TIPEST, EP_NR_XY

*PARAMETROS GENERALES
   H1 = 3
   H2 = 0.5
   L1  = 5
   as =  0.05   !Valor del asentamiento para Estado 1
   E  =  210e6
   A1 =  5000e-6
   FA =  0.02   !Falta de ajuste para Estado 2

*PARAMETROS DE ANALISIS

>COORDENADAS 
       1   0.0  0.0   0.0
       2   0.0   H1   0.0
       3   L1    H1   0.0
       4   L1    H2   0.0

>RESTRICCIONES
       TODOS          DZ  GX  GY
       1    DX   DY                GZ
       4    DX   DY                GZ

>MATERIALES
    ! kM   E       G     Nu   Rho     alpha     Se
	1   E     0.0    0.0   0.0   12.0e-6    0.0
>PROPIEDADES
    ! kP   A     Ay    Az    Ix    Iy    Iz    
       1   A1   0.0   0.0   0.0   0.0   8000e-8
       2   A1   0.0   0.0   0.0   0.0  16000e-8

>ELEMENTOS
     GRUPO 1  BNR
       1   1   2   1   1   0   0   CA   -L1   H1
       2   2   3   1   2   0   0   CA   0.0  2*H1
       3   3   4   1   1   0   0   CA   2*L1  0.0

>CARGAS
    ESTADO  1  "Asentamiento del nudo 1"
       CARGAS EN ELEMENTOS
          Fuerzas de empotramiento
          3   -E*A1/(H1-H2)*as 0 0 0 0 0 +E*A1/(H1-H2)*as 0 0 0 0 0
      
    ESTADO  2  "Incremento de temperatura elemento 2"
       CARGAS TERMICAS
          2   30   
    ESTADO  3  "Falta de ajuste elemento 2"
        CARGAS EN ELEMENTOS
          Fuerzas de empotramiento
          2   -E*A1/L1*FA 0 0 0 0 0 +E*A1/L1*FA 0 0 0 0 0   

*FIN