Ejercicio 8.3-4

$title  transporte


Sets
         i productor /inglaterra, francia, espana/
         j cultivo /trigo, cebada, avena/;

Parameters

         A(i) capacidad de tierra del productor
         /       inglaterra      70
                 francia         110
                 espana          80
                                 /
         B(j) demanda del mercado
         /       trigo    125
                 cebada   60
                 avena    75
                                 /
Table G(i,j) ganancia por unidad distribuida entre i y j
                 trigo   cebada  avena
inglaterra       162     121.5   82.8
francia          93.6    108     75
espana           158.4   100.8   100.8    ;


Variables
         x(i,j)  unidades transportadas entre i y j
         GT      ganancia por unidad distribuida          ;


positive variable x;
Equations
         ganancia     ganancia total del transporte
         capacidad(i) capacidad maxima de cada planta (i)
         demanda(j)   demanda maxima de cada cliente (j)  ;

         ganancia ..        GT =e= sum((i,j), G(i,j)*x(i,j));
         capacidad (i) .. sum(j, x(i,j)) =L= A(i);
         demanda (j) .. sum(i, x(i,j)*1) =G= B(j) ;

model transporte / ganancia, capacidad, demanda/
solve transporte  using lp minimizing GT
Display x.l, x.m ;