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

hitman

运行几个小时，状态还是未知（unknown）,程序如下,模型附在最后，请大家帮我看看，谢谢！
' l' G  a- ?$ d5 jmodel:
# z  s5 T* {, F6 Z5 k+ g7 z9 t; Usets:
  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 ;
endsets
data:  !关联度矩阵,要对称;
! S! K1 W& }& n) B8 O; X/ }- dT=
/ r" n7 }4 C( h  l-1000 4 0
9 C) d. R3 ?9 c$ R  E. v0 -1000 4
; }6 \% V8 b+ {' G9 M0 0 -1000
;
h=4;
, f  _" X7 n  F- F7 G7 u1 Eg=1;
/ A( K  M8 H0 @$ sa=1,2,1;
1 U6 a+ S* Y+ ?0 f' jb=1,1,1;
6 Z. h( S/ m* X5 R5 r4 a6 Henddata
/ r# O5 T) R+ V( C: P3 c' A! 关联度最大;
max=@sum(link(i,j)|i #ne# j: T(i,j)*z(i,j));
7 b5 D1 ~, M) @& H/ X( ^  @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)))
       #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));
7 a! {( F; }" @: h4 |* a  @for(region(i)： @for(region(j)|i #ne# j： @abs(x(i)-x(j))>=0.5*(a(i)+a(j))));
  I; f; X; P* ?: i% B  @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)));  
end

loooog12

。。。。。

zhangtao89524