# Regiones
set R := {
  "A",
  "B",
  "C",
  "D",
  "E",
  "F"
};

# Empresas
set C := { "cv_f_2", "ta_c_2", "tc_c_2_a", "tmx_f_2" };

# Tramos tarifarios
set T := {
  "1 - 19",
  "20 - 39",
  "40 - 59",
  "60 - 79",
  "80 - 99",
  "100 - 149",
  "150 - 199",
  "200 - 299",
  "300 - 399",
  "400 - 499",
  "500 - 599",
  "600 - 699",
  "700 +"
};

# Escuelas de cada area
param escuelas[R] :=  <"A"> 248,
                      <"B"> 14,
                      <"C"> 77,
                      <"D"> 22,
                      <"E"> 287,
                      <"F"> 61;

# Costos por escuela por tramo. X_FIBRA = p_unit * 0.9.
param costo[T*C] := |       "cv_f_2", "ta_c_2", "tc_c_2_a", "tmx_f_2"|
     |	"1 - 19"|	     3009.03,     2462,    1991.66,   1444.95|
     |     "20 - 39"|	     2875.03,  2182.84,    1991.66,   1368.9 |
     |     "40 - 59"|        2785.03,  1916.64,    1991.66,   1216.8 |
     |     "60 - 79"|	     2707.03,  1810.16,     1075.5,   1140.75|
     |     "80 - 99"|	     2675.03,   1597.2,     890.07,   1019.07|
     |   "100 - 149"|	     2445.33,     1331,       5000,     5000 |
     |   "150 - 199"|	     2400.98,  1091.42,	      5000,     5000 |
     |   "200 - 299"|	     2354.62,  1038.18,       5000,     5000 |
     |   "300 - 399"|	     2156.92,   785.29,       5000,	    5000 |
     |   "400 - 499"|        1698.22,     5000,       5000,	    5000 |
     |   "500 - 599"|	     1208.52,     5000,       5000,	    5000 |
     |   "600 - 699"|	      900.81,     5000,       5000,	    5000 |
     |   "700 +"   |	      845.41,     5000,       5000,	    5000 |;

# Presencia por empresa por área
param presencia[R*C]  := |      "cv_f_2",    "ta_c_2",  "tc_c_2_a",  "tmx_f_2" |
            | "A" |                    1,           0,           0,          0 |
            | "B" |                    1,           0,           0,          1 |
            | "C" |                    1,           0,           1,          0 |
            | "D" |                    1,           0,           1,          1 |
            | "E" |                    1,           1,           0,          0 |
            | "F" |                    1,           1,           0,          1 |;

# Cantidad mínima de cada tramo
param minimo[T] :=    <"1 - 19"> 1,
                      <"20 - 39"> 20,
                      <"40 - 59"> 40,
                      <"60 - 79"> 60,
                      <"80 - 99"> 80,
                      <"100 - 149"> 100,
                      <"150 - 199"> 150,
                      <"200 - 299"> 200,
                      <"300 - 399"> 300,
                      <"400 - 499"> 400,
                      <"500 - 599"> 500,
                      <"600 - 699"> 600,
                      <"700 +"> 700;

#Máximo de cada tramo.
param maximo_tr[T] := <"1 - 19"> 19,
                   <"20 - 39"> 39,
                   <"40 - 59"> 59,
                   <"60 - 79"> 79,
                   <"80 - 99"> 99,
                   <"100 - 149"> 149,
                   <"150 - 199"> 199,
                   <"200 - 299"> 299,
                   <"300 - 399"> 399,
                   <"400 - 499"> 499,
                   <"500 - 599"> 599,
                   <"600 - 699"> 699,
                   <"700 +"> 709;