*CONTROL DEL PROBLEMA
   IDPR,   Ej-6.2
   TITU,   "Ejercicio 6.2. Viga con triangulación en K"
   SISUNI, mkN
   TIPEST, EP_NA_XY

*PARAMETROS GENERALES
   h  =  2.0	!   Canto de la estructura
   l  =  2.0	!   Longitud de un módulo  
   FY = 20.0	!   Fuerza puntual aplicada en los nudos interiores del cordón superior
   m  =  3   	!   Número de módulos en media estructura

*CONTROL DEL PROBLEMA

>COORDENADAS
!       kN         X                      Y                 Z
    DO,I,0,(4*m)-1
       I+1   I   0.0   0.0
	I+1   int(l*(int(I/3)))  h*(I-(int(3*(int(I/3)))))   0.0  
    ENDDO
    DO,I,(4*m),6*m+2
	I+1   l*(int(I/3))       h*(I-(3*(int(I/3))))        0.0    
    ENDDO

>MATERIALES
! kM         E      G     Nu     Rho   alpha         Se
   1   210.0e6    0.0    0.3   77.01     0.0    260.0e3

>PROPIEDADES GEOMETRICAS
  1  SHC  70x2

>ELEMENTOS
  GRUPO 1 BNA		! Mitad izquierda de la estructura
    DO,I,0,m-1
       (6*I)+1    (3*I)+1    (3*I)+2     1  1  0  0
       (6*I)+2    (3*I)+2    (3*I)+3     1  1  0  0
       (6*I)+3    (3*I)+1    (3*I)+4     1  1  0  0
       (6*I)+4    (3*I)+4    (3*I)+2     1  1  0  0
       (6*I)+5    (3*I)+2    (3*I)+6     1  1  0  0
       (6*I)+6    (3*I)+6    (3*I)+3     1  1  0  0
   ENDDO   
   DO,I,m,(2*m)-1
        (6*I)+1    (3*I)+1     (3*I)+4     1  1  0  0
        (6*I)+2    (3*I)+4     (3*I)+5     1  1  0  0
        (6*I)+3    (3*I)+5     (3*I)+6     1  1  0  0
        (6*I)+4    (3*I)+6     (3*I)+3     1  1  0  0
        (6*I)+5    (3*I)+3     (3*I)+5     1  1  0  0
        (6*I)+6    (3*I)+5     (3*I)+1     1  1  0  0
   ENDDO
   (6*(2*m)+1)  3*m+1   3*m+3   1  1  0  1

>RESTRICCIONES
   TODOS              DZ  GX  GY  GZ	! Estructura plana de nudos articulados
   1         DX  DY
   m*6+1         DY
   m*3+2     DX  DY				! Nudo no utilizado

>CARGAS
   ESTADO 1 "Fuerzas aplicadas en los nudos del cordón superior"
	CARGAS EN NUDOS
	DO,I,2,2*m
	   3*I      0.0     -FY     0.0    0.0    0.0   0.0 
	ENDDO
	3           0.0   -FY/2.    0.0    0.0    0.0   0.0
	3*(m*2+1)   0.0   -FY/2.    0.0    0.0    0.0   0.0

*FIN