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

hitman

运行几个小时，状态还是未知（unknown）,程序如下,模型附在最后，请大家帮我看看，谢谢！
model:
% N7 V  X* K! i. s! ~: N) wsets:
  region/1..3/:x,y,a,b; !x,y分别表示质心的横坐标、纵坐标,a表示region在x
    轴上的距离、b表示region在y轴上的距离;            
  link(region,region):T,z;  ! z(i,j)=1表示i和j紧邻，否则=0 ;
8 L& G9 z/ y& f$ l$ k( Q. Xendsets
. s! T4 z  o1 B) r9 P5 idata:  !关联度矩阵,要对称;
T=
-1000 4 0
2 p( ^# U3 U9 f% X0 H9 C0 -1000 4
. z0 S" F( Y9 b0 ~" H) `* t% b) S0 0 -1000
' ?! Q: X4 s& G+ A: g: j% T9 n;
h=4;
1 B5 O4 a" _0 U- }6 P5 Y8 H' |g=1;
a=1,2,1;
b=1,1,1;
enddata
! 关联度最大;
9 R+ [' a. K; l9 L# Zmax=@sum(link(i,j)|i #ne# j: T(i,j)*z(i,j));
- m% O% H. t6 L  @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)))
6 g; M2 u2 F+ j5 _9 y       #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));
5 [/ i" F2 w) C+ g8 m  @for(region(i)： @for(region(j)|i #ne# j： @abs(x(i)-x(j))>=0.5*(a(i)+a(j))));
, h3 a% @* V1 F# h  ~: u4 q  @for(region(i)： @for(region(j)|i #ne# j： @abs(y(i)-y(j))>=0.5*(b(i)+b(j))));
  @for(region(i):x(i)<h);
  @for(region(i):y(i)<g);
  @for(link(i,j)|i #ne# j： @bin(z(i,j)));  
! H* {$ n' {: v! A- c( wend

zhangtao89524

loooog12

。。。。。