
! *****************************************************************************
! El objetivo de este archivo de datos del programa disseny es mostrar las  
! posibilidades del programa para la generación automática y el análisis 
! de un pórtico plano de una estructura de edificación.
! La geometría, materiales, perfiles, cargas, combinaciones, etc.,  
! no son representativos de ningún caso real.
!
! Pascual Martí, Cartagena, abril de 2014.
! *****************************************************************************

*CONTROL DEL PROBLEMA
   IDPR   , PortP_EE   
   TITU   , "Pórtico plano de estructura de edificación" 
   SISUNI , mkN
   TIPEST , EP_NR_XY

*PARAMETROS GENERALES
!  Parámetros independientes
   nP =     4		! Número de plantas
   nV =     4		! Número de vanos
   inc =  0./250.	! Inclinación de la estructura (puede simular imperfección)
   LV =   7.0		! Longitud de vano (todos iguales)
   HP =   3.0		! Altura de planta (todas iguales)
   SP =   5.0		! Separación entre pórticos
   G_Y =  3.0*SP	! Carga permanente (igual en todas las plantas)
   Q_Y =  2.5*SP	! Sobrecarga de uso (igual en todas las plantas)
   FV_X = 0.6*SP*HP	! Fuerza de viento en 1ª planta (referencia para el resto)
   MAT = 1		! Materiales: 1 ACERO   2 HORMIGÓN
   incTV = 20.0     	! Incremento de temperatura de las vigas
   incTC = 25.0	! Incremento de temperatura de las columnas
   incTA = 30.0	! Incremento de temperatura de los arriostramientos
   ArrV = 2		! Arriostramientos verticales 
              	! = 0 No hay arriostramientos
        		! = 1 Arriostramientos en extremo izquierdo
        		! = 2 Arriostramientos en extremo izquierdo y derecho
   PortInt = 0  	! Intraslacionalidad del pórtico
               	! = 0 Pórtico traslacional
           		! = 1 Impedidos desplazamientos horizontales extremo izquierdo
               	! = 2 Impedidos desplazamientos horizontales ambos extremos

!  Parámetros dependientes
   nCols  = nP*(nV+1)		! Número total de columnas
   nVigas = nP*nV          		! Número total de vigas
   nArrV = ArrV*nP			! Arriostramientos verticales
   nElem = nCols+nVigas+nArrV	! Número total de elementos

*PARAMETROS DE ANALISIS

>COORDENADAS
! kN    X     Y     Z   L   nnG   inckN  incX  incY  incZ
  1   0.0   0.0   0.0   L  nV+1       1    LV   0.0   0.0
			   P   nP+1    nV+1  inc*HP    HP   0.0

>RESTRICCIONES
   TODOS      DZ GX GY	! Estructura plana (XY) de nudos rígidos
      1 DX DY DZ GX GY GZ   L   nV+1   1

   IF,PortInt,>,0,THEN
      ! Desplazamientos horizontales impedidos
      DO,iP,1,nP
         kNi = iP*(nV+1)+1
         kNi DX L PortInt nV
      ENDDO
   ENDIF
 
>MATERIALES
! kM  Material   Tipo
   IF,MAT,=,1,THEN
      ! Acero
      1  ACERO S275
      2  ACERO S275
      3  ACERO S275
   ELSEIF,MAT,=,2,THEN
      ! Hormigón
      1  HORMIGÓN HA25
      2  HORMIGÓN HA25
      3  HORMIGÓN HA25
   ENDIF

>PROPIEDADES
! kP  Familia Perfil  Ángulo
   IF,MAT,=,1,THEN
      DO,iP,1,nP
        (iP-1)*2+1    HEB   200 90.0   ! Pilares exteriores planta iP
        (iP-1)*2+2    HEB   240 90.0   ! Pilares interiores planta iP
        2*nP+iP       IPE   360 90.0   ! Vigas planta iP
        3*nP+iP      UPNC   200 90.0   ! Arriostramientos
      ENDDO
   ELSEIF,MAT,=,2,THEN
      DO,iP,1,nP
        (iP-1)*2+1   RECT 40x40 00.0   ! Pilares exteriores planta iP
        (iP-1)*2+2   RECT 50x40 00.0   ! Pilares interiores planta iP
        2*nP+iP      RECT 20x45 90.0   ! Vigas planta iP
        3*nP+iP      RECT 30x30 00.0   ! Arriostramientos
      ENDDO
   ENDIF

>ELEMENTOS
   GRUPO 1 BNR
   DO,iP,1,nP
      ! Columnas
      kCi = (iP-1)*(nV+1+nV)+1
      kNi = (iP-1)*(nV+1)+1
      kNf = kNi+(nV+1)
      kCi      kNi      kNf    1 (iP-1)*2+1 0 0
      kCi+nV   kNi+nV   kNf+nV 1 (iP-1)*2+1 0 0
      IF,nV,>,1,THEN
         kCi = kCi+1
         kNi = kNi+1
         kNf = kNi+(nV+1)
         kCi kNi kNf 1 (iP-1)*2+2 0 0 L nV-1 1 1 1
      ENDIF
      ! Vigas
      kVi = (iP-1)*(nV+1+nV)+(nV+1)+1
      kNi = (iP-1)*(nV+1)+(nV+1)+1
      kNf = kNi+1
      kVi kNi kNf 2 2*nP+iP 0 0 L nV 1 1 1
   ENDDO

   IF,ArrV,=,1,THEN
      GRUPO 2 BNA "Arriostramientos verticales"
      DO,iP,1,nP
         kAi = nP*(2*nV+1)+iP
         kNi = (iP-1)*(nV+1)+1
         kNf = kNi+(nV+2)
         kAi   kNi   kNf    3  3*nP+iP 0 0
      ENDDO
   ELSEIF,ArrV,=,2,THEN
      GRUPO 2 BNA "Arriostramientos verticales"
      DO,iP,1,nP
         ! Extremo izquierdo
         kAi = nP*(2*nV+1)+2*(iP-1)+1
         kNi = (iP-1)*(nV+1)+1
         kNf = kNi+(nV+1+1)
         kAi   kNi   kNf    3  3*nP+iP 0 0
	  ! Extremo derecho
         kAi = nP*(2*nV+1)+2*(iP-1)+2
         kNi = (iP-1)*(nV+1)+(nV+1)
         kNf = kNi+(nV+1)-1
         kAi   kNi   kNf    3  3*nP+iP 0 0
      ENDDO
   ENDIF

>CARGAS
   ESTADO 1 "Cargas gravitatorias"
      CARGAS EN ELEMENTOS
         DO,iP,1,nP
            kVi = (iP-1)*(nV+1+nV)+(nV+1)+1
            UNIFORME  0.0   0.0
            kVi  0.0  -G_Y  0.0  0.0  0.0  0.0 L nV 1
         ENDDO

   ESTADO 2 "Sobrecargas de uso alternas SU-1"
      CARGAS EN ELEMENTOS
	  IF,nV,=,1,THEN
            DO,iP,1,nP
               kVi = (iP-1)*(nV+1+nV)+(nV+1)+1
               UNIFORME  0.0   0.0
               kVi  0.0  -G_Y  0.0  0.0  0.0  0.0 L nV 1
            ENDDO
         ELSE
            DO,iP,1,nP,1
               inc = 1+int(((-1)**iP+1**iP)/2)
               kVi = (iP-1)*(nV+1+nV)+(nV+1)+inc
               UNIFORME  0.0   0.0
	           intnV2 = int(1+(nV-inc)/2)
               kVi  0.0  -Q_Y  0.0  0.0  0.0  0.0 L intnV2 2
            ENDDO
	  ENDIF

   ESTADO 3 "Sobrecargas de uso alternas SU-2"
      CARGAS EN ELEMENTOS
         IF,nV,=,1,THEN
            DO,iP,1,nP
               kVi = (iP-1)*(nV+1+nV)+(nV+1)+1
               UNIFORME  0.0   0.0
               kVi  0.0  -G_Y  0.0  0.0  0.0  0.0 L nV 1
            ENDDO
         ELSE
            DO,iP,1,nP,1
               inc = 2-int(((-1)**iP+1**iP)/2)
               kVi = (iP-1)*(nV+1+nV)+(nV+1)+inc
               UNIFORME  0.0   0.0
	        intnV2 = int(1+(nV-inc)/2)
               kVi  0.0  -Q_Y  0.0  0.0  0.0  0.0 L intnV2 2
            ENDDO
         ENDIF

   ESTADO 4 "Acciones viento"
      CARGAS EN NUDOS
         DO,iP,1,nP,1
	     kN = (iP-1)*(nV+1)+(nV+1)+1
            kN  FV_X*(1+0.5*(iP*HP/(nP*HP)))  0.0  0.0  0.0  0.0  0.0
         ENDDO

   ESTADO 5 "Acciones térmicas"
      CARGAS TERMICAS
         ! Columnas
         DO,iP,1,nP,1
            kCi = (iP-1)*(nV+(nV+1))+1
	     kCi incTC L (nV+1) 1
         ENDDO
         ! Vigas
         DO,iP,1,nP,1
	     kVi = (iP-1)*(nV+(nV+1))+(nV+1)+1
            kVi incTV L nV 1
         ENDDO
         ! Arriostramientos
         IF,ArrV,>,0,THEN
            DO,iP,1,nP
               kAi = nP*(nV+(nV+1))+(iP-1)*ArrV+1
	        kAi incTA L ArrV 1
            ENDDO
         ENDIF

>COMBINACIONES
   ESTADO 6 "1.00*Gravitatorias + 1.00*(SU-1 + SU-2) + 1.00*Viento"
      1  1.00   2  1.00     3  1.00        4  1.00

   ESTADO 7 "1.00*Gravitatorias + 1.00*SU-1 + 1.00*Viento"
      1  1.00   2  1.00                    4  1.00

   ESTADO 8 "1.00*Gravitatorias + 1.00*SU-2 + 1.00*Viento"
      1  1.00               3 1.00         4  1.00

   ESTADO 9 "1.35*Gravitatorias + 1.50*(SU-1 + SU-2) + (1.50*0.7)*Viento"
      1  1.35   2  1.50     3 1.50         4  1.5*0.70

   ESTADO 10 "1.35*Gravitatorias + (1.5*0.70)*(SU-1 + SU-2) + 1.50*Viento"
      1  1.35   2  1.5*0.7  3  1.50*0.70   4  1.50 

>RENUMERACION

*FIN
