MODEL:
SETS:
TH/1..8/;
NH/1..7/:PB,PP,reperts;
LINK(NH,TH):order,prod,repert,PPM;
ENDSETS
DATA:
order=
0  1700 0  0  1610 0 1320 0
240 240 480 216 216 240 24  168
0  450 0  450 0 450 300 0
360 312 300  360 336 360 456 336
888 888 960 888 888 888 324 888
480 468 0   408 0   360 372  384
128 192 256 0   152  272 40  240;
reperts=
400 60 90 72 192 96 56;
PP=
10 12 30 12 12 12 8;
PB=
100 120 120 120 120 120 80;
ENDDATA
MIN=@MAX(TH(j):
        @SUM(NH(i):PPM(i,j)));
@FOR(NH(i):
   @for(LINK(i,j)|I#GT#1:repert(i,j)>=order(i,j)+reperts(i))
    );
@for(LINK(i,j)|J#GT#1:repert(i,j-1)+prod(i,j-1)-order(i,j-1)=repert(i,j));
@for(TH(j):
    @SUM(NH(i):prod(i,j))<=4000
    );
@for(LINK(i,j)|J#GT#1:
    @abs((prod(i,j-1)/prod(i,j))-1)<=0.10
    );
@for(NH(i):
    @for(LINK(i,j):prod(i,j)=PB(i)*a)
     );
@for(NH(i):
     @for(LINK(i,j):PPM(i,j)=(prod(i,j)+repert(i,j))/PP(i))
     );
@for(LINK(i,j):
repert(1,1)=2000;
repert(2,1)=720;
repert(3,1)=960;
repert(4,1)=840;
repert(5,1)=1800;
repert(6,1)=720;
repert(7,1)=240);
@for(LINK(i,j):order(i,j)>=0);
@for(LINK(i,j):prod(i,j)>=0);
@for(LINK(i,j):repert(i,j)>=0);
@for(LINK(i,j):PPM(i,j)>=0);
@gin(a);
END