CÓDIGO PARA GAMS DE EJERCICIOS 3.6.3 Y 3.6.4

EJERCICIO 3.6.3

$title Minimizar costos

Sets
         i recurso para restricciones mayor o igual que /disponible, disponible2, disponible3/
         j variables /x1, x2/
         k costos(contribución) /c1, c2/;
Parameters
         b(i) Máximo de recursos (recursos disponibles)(>=)
         /       disponible     60
                 disponible2    30
                 disponible3    126/

         c(k)  requerimientos nutritivos
         / c1    60
           c2    50/;
Table m(j,k)
         c1      c2
x1       60      0
x2       0       50;

Table h(i,j) recursos por variable (>=)
                x1      x2
disponible      5       3
disponible2     2       2
disponible3     7       9;

Variables
         x(j)
         z      costo total        ;
Positive variable x;

Equations
         ganancia
         produccion(i);
         ganancia ..        z =e= sum((j,k), m(j,k)*x(j));
         produccion(i) .. sum((j), h(i,j)*x(j)) =g= b(i) ;


model modelo / all/
solve modelo  using lp minimizing z

Display x.l, x.m ;

EJERCICIO 3.6.4

$title fred jonasson, ejercicio 3,6,4

Sets
         i recurso para restricciones /req1, req2, req3/
         j variables /x1, x2, x3/
         k costos /c1, c2, c3/;
Parameters
         b(i) requerimiento minimos diario
         /       req1    200
                 req2    180
                 req3    150/

         c(k)  costos
         / c1    84
           c2    72
           c3    60/;
Table m(j,k)
         c1      c2      c3
x1       84      0       0
x2       0       72      0
x3       0       0       60;

Table h(i,j)
         x1      x2      x3
req1     90      20      40
req2     30      80      60
req3     10      20      60;

Variables
         x(j)
         z      costo total        ;
Positive variable x;

Equations
         costos
         requerimiento(i);
         costos ..        z =e= sum((j,k), m(j,k)*x(j));
         requerimiento(i) .. sum((j), h(i,j)*x(j)) =g= b(i) ;


model modelo / all/
solve modelo  using lp minimizing z

Display x.l, x.m ;