You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
72 lines
1.6 KiB
72 lines
1.6 KiB
# A TRANSPORTATION PROBLEM
|
|
#
|
|
# This problem finds a least cost shipping schedule that meets
|
|
# requirements at markets and supplies at factories.
|
|
#
|
|
# References:
|
|
# Dantzig G B, "Linear Programming and Extensions."
|
|
# Princeton University Press, Princeton, New Jersey, 1963,
|
|
# Chapter 3-3.
|
|
|
|
set I;
|
|
/* canning plants */
|
|
|
|
param a{i in I};
|
|
/* capacity of plant i in cases */
|
|
|
|
table plants IN "iODBC"
|
|
'DSN=glpk;UID=glpk;PWD=gnu'
|
|
'SELECT PLANT, CAPA AS CAPACITY'
|
|
'FROM transp_capa' :
|
|
I <- [ PLANT ], a ~ CAPACITY;
|
|
|
|
set J;
|
|
/* markets */
|
|
|
|
param b{j in J};
|
|
/* demand at market j in cases */
|
|
|
|
table markets IN "iODBC"
|
|
'DSN=glpk;UID=glpk;PWD=gnu'
|
|
'transp_demand' :
|
|
J <- [ MARKET ], b ~ DEMAND;
|
|
|
|
param d{i in I, j in J};
|
|
/* distance in thousands of miles */
|
|
|
|
table dist IN "iODBC"
|
|
'DSN=glpk;UID=glpk;PWD=gnu'
|
|
'transp_dist' :
|
|
[ LOC1, LOC2 ], d ~ DIST;
|
|
|
|
param f;
|
|
/* freight in dollars per case per thousand miles */
|
|
|
|
param c{i in I, j in J} := f * d[i,j] / 1000;
|
|
/* transport cost in thousands of dollars per case */
|
|
|
|
var x{i in I, j in J} >= 0;
|
|
/* shipment quantities in cases */
|
|
|
|
minimize cost: sum{i in I, j in J} c[i,j] * x[i,j];
|
|
/* total transportation costs in thousands of dollars */
|
|
|
|
s.t. supply{i in I}: sum{j in J} x[i,j] <= a[i];
|
|
/* observe supply limit at plant i */
|
|
|
|
s.t. demand{j in J}: sum{i in I} x[i,j] >= b[j];
|
|
/* satisfy demand at market j */
|
|
|
|
solve;
|
|
|
|
table result{i in I, j in J: x[i,j]} OUT "iODBC"
|
|
'DSN=glpk;UID=glpk;PWD=gnu'
|
|
'DELETE FROM transp_result;'
|
|
'INSERT INTO transp_result VALUES (?,?,?)' :
|
|
i ~ LOC1, j ~ LOC2, x[i,j] ~ QUANTITY;
|
|
|
|
data;
|
|
|
|
param f := 90;
|
|
|
|
end;
|