$ontext
    Gams Model for the Pooling Problem
    Author: Mohit Tawarmalani
    model: foulds2
$offtext

$eolcom #

# Set Declarations
    set comp /1*6/;
    set pro  /1*4/;
    set qual /1*1/;
    set pool /1*2/;

# components related parameters
table compparams(comp,*)
         1    2    3
   1     0  600    6
   2     0  600   16
   3     0  600   10
   4     0  600    3
   5     0  600   13
   6     0  600    7 ;

parameters cl(comp), cu(comp), cprice(comp);
cl(comp) = compparams(comp,'1');
cu(comp) = compparams(comp,'2');
cprice(comp) = compparams(comp,'3');

table cqual(comp,qual)
         1
   1     3
   2     1
   3     2
   4   3.5
   5   1.5
   6   2.5 ;

# pool related parameters
parameters psize(pool);
psize(pool) = 600;

# product related parameters
table prodparams(pro,*)
         1    2    3
   1     0  100    9
   2     0  200   15
   3     0  100    6
   4     0  200   12 ;

parameters prl(pro), pru(pro), pprice(pro);
prl(pro) = prodparams(pro,'1');
pru(pro) = prodparams(pro,'2');
pprice(pro) = prodparams(pro,'3');

parameter pqlbd(pro, qual);
pqlbd(pro, qual) = 0.0;

table pqubd(pro, qual)
         1
   1   2.5
   2   1.5
   3     3
   4     2 ;

# network related parameters
table ubq(comp, pool)
         1    2
   1     1    0
   2     1    0
   3     0    0
   4     0    1
   5     0    1
   6     0    0 ;

table uby(pool, pro)
         1    2    3    4
   1   100  200  100  200
   2   100  200  100  200 ;

table ubz(comp, pro)
         1    2    3    4
   3   100  200  100  200
   6   100  200  100  200 ;

$include pool.gms