本人新手，帮忙看下这个程序怎么改

zxn2816240

Model:
!6个工厂，18个城市的产品分配问题;
sets:
place/j1..j18/; !表示数据表所给顺序的城市;
wages/i1..i6/; !表示各个加工厂;
time/k1..k11/; !表示各个月;
number(place,time):N; !表示第k月第j地区的需求量;
distance(place,wages):H; !表示第i加工厂到第j地区的距离;
cp(place,wages,time):X;
smm/1..6/:c; !c表示每个工厂的月工资;
money(wages); !T表示第i工厂的工人人数;

sp(wages,time):S,T;
endsets
data:
c=1700 1540 1510 1600 1640 1460;
H=297        559        930        1520        1562        1400
255        550        591        1238        1400        1337
116        470        695        1313        1415        1306
178        283        730        1289        1287        1122
392.5        257        358        945        1044        979
678        696        213        802        1099        1196
850        565        1044        1289        987        641
637        287        769        1071        834        618
622        254        634        932        786        689
745        450        426        621        575        540
1192        1077        525        382        863        1143
845        559        941        1117        823        479
1027        734        551        383        319        489
936        605        682        680        413        264
1147        1251        775        266        726        1081
1270        825        1122        1009        564        196
1608        1280        1095        610        271        581
1731        1468.7        1128        963        632        1024;
N=198160        340480        428640        472540        482080        467160        437680        403540        374640        360880        372160
206590        366150        455050        488110        480150        445990        400450        358350        334510        343750        400890
168800        298150        387140        442070        469240        474950        465500        447190        426320        409190        402100
186880        302960        386600        442000        473360        484880        480760        465200        442400        416560        391880
185550        318110        405530        455670        476390        475550        461010        440630        422270        413790        423050
150960        292870        382480        430350        447040        443110        429120        415630        413200        432390        483760
178640        304230        382020        421370        431640        422190        402380        381570        369120        374390        406740
225400        353010        425060        454570        454560        438050        418060        407610        419720        467410        563700
197120        342820        427600        465020        468640        452020        428720        412300        416320        454340        539920
204750        302790        370530        412590        433590        438150        430890        416430        399390        384390        376050
246270        365680        435490        465900        467110        449320        422730        397540        383950        392160        432370
193750        343990        428170      460930        456910      430750        397090        370570        365830        397510        480250
221790        338750        399070        416910        406430        381790        357150        346670        364510        424830        541790
236980        324600        374400        394720        393900        380280        362200        348000        346020        364600        412080
337210        384610        409630        417610        413890        403810      392710        385930        388810        406690        444910
282910        372910        418470        430450        419710        397110        373510        359770        366750        405310        486310
311530        388670        430070        443350        436130      416030        390670        367670        354650        359230        389030
268030        393340        452710        462160        437710        395380        351190        321160        321310        367660        476230;
enddata
min=@sum(cp(i,j,k):H(i,j)*X(i,j,k))+@sum(wages(i)sum(time(k)T(i,k)-20.83*8))*1.3*C(i)*Q(i)/(20.83*8)+11*Q(i)*C(i));

@for(wages(i)for(time(k)sum(place(j):X(i,j,k))+S(i,k)=Q(i)*T(i,k)*0.08));
@for(place(j)for(time(k)sum(place(j):X(i,j,k))= N(j,k)));

@for(sp(i,k)bnd(0,S(i,k),800000));
@for(cp(i,j,k)gin(x));
@for(money(i)gin(Q));
@for(cp(i,j,k):X(i,j,k)>=0);
@for(money(i)(i)>0);
@for(wages(i)|i#gt#1for(time(k):T(i,k)=T(i-1,k)));
@for(sp(i,k):T(i,k)>=0);
@for(sp(i,k):S(i,k)>=0);

end

zxn2816240

自己顶起。。。。