$title transporte
Sets
i nado /dorso, pecho, mariposa, libre/
j nadador /carlos, cristina, david, antonio, jose/;
Parameters
A(i) tipo de nado
/ dorso 1
pecho 1
mariposa 1
libre 1
/
B(j) demanda de nadador
/ carlos 1
cristina 1
david 1
antonio 1
jose 1
/
Table G(i,j) ganancia por unidad distribuida entre i y j
carlos cristina david antonio jose
dorso 37.7 32.9 33.8 37 35.4
pecho 43.3 33.1 42.2 34.7 46.8
mariposa 33.3 28.5 38.9 30.4 33.6
libre 29.2 26.4 24.6 28.5 31.1
;
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 maximizing GT
Display x.l, x.m ;


