lingo程序问题，算不出可行解，请教各位高手达人。谢谢！

hitman

运行几个小时，状态还是未知（unknown）,程序如下,模型附在最后，请大家帮我看看，谢谢！
model:
- L6 @% z1 v( H7 p8 Isets:
0 s$ {4 n. u; W7 j) n  region/1..3/:x,y,a,b; !x,y分别表示质心的横坐标、纵坐标,a表示region在x
$ s( c* R' N! @' Q$ ?' V2 s3 n% J, b' g    轴上的距离、b表示region在y轴上的距离;            
  link(region,region):T,z;  ! z(i,j)=1表示i和j紧邻，否则=0 ;
endsets
data:  !关联度矩阵,要对称;
' J- B1 f2 ]" l: j+ z, {, AT=
-1000 4 0
0 -1000 4
0 0 -1000
;
' H# R& V( ^. x3 s  [- {1 X+ lh=4;
9 d; }) Y9 D9 G% `$ j7 vg=1;
a=1,2,1;
b=1,1,1;
enddata
4 r( r5 D  F) M/ I, N! 关联度最大;
2 G  {% V& w& x) o' L4 F  ^max=@sum(link(i,j)|i #ne# j: T(i,j)*z(i,j));
, M2 H+ d3 F4 G1 N# z3 a. `0 g  @for(link(i,j)|i #ne# j:z(i,j)=@if((@abs(x(i)-x(j)) #eq# 0.5*(a(i)+a(j)) #and# @abs(y(i)-y(j))#lt# 0.5*(b(i)+b(j)))
9 E1 K; B* F! j9 A4 T       #or#(@abs(y(i)-y(j)) #eq# 0.5*(b(i)+b(j)) #and# @abs(x(i)-x(j)) #lt# 0.5*(a(i)+a(j))),1,0));
: s/ [6 F. q% P! W! `  @for(region(i)： @for(region(j)|i #ne# j： @abs(x(i)-x(j))>=0.5*(a(i)+a(j))));
& V% z  x6 K8 \; R  @for(region(i)： @for(region(j)|i #ne# j： @abs(y(i)-y(j))>=0.5*(b(i)+b(j))));
- l+ b% @* |. Y1 @5 X- C/ g  @for(region(i):x(i)<h);
  @for(region(i):y(i)<g);
/ r# o7 }" m3 {# a  @for(link(i,j)|i #ne# j： @bin(z(i,j)));  
: j2 ]% m8 h0 \4 [% U+ Mend

zhangtao89524

loooog12

。。。。。