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

hitman

运行几个小时，状态还是未知（unknown）,程序如下,模型附在最后，请大家帮我看看，谢谢！
7 B- ?; d5 S5 B! P8 j- o& W$ \$ ~' emodel:
" U; S5 e1 y# H3 I- N7 P' esets:
* x: k, t+ S( M. |& f  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 ;
1 B: H' A* Q1 k! n, X. n3 Pendsets
data:  !关联度矩阵,要对称;
T=
. L* w2 I' a: j-1000 4 0
6 T0 K9 q/ k" ]2 T+ b/ I+ }- H0 -1000 4
0 0 -1000
6 O* q4 Y! R: V% m2 M2 J: c;
7 c4 A6 x- A$ C% |+ lh=4;
* d# }3 p& l! d" i2 @2 S, X9 cg=1;
1 |  T8 X5 M# C) {  `; Qa=1,2,1;
5 S" b2 I1 ?3 v/ @. tb=1,1,1;
enddata
! 关联度最大;
max=@sum(link(i,j)|i #ne# j: T(i,j)*z(i,j));
  @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));
4 y3 q  ]3 P+ O1 W+ _! ]( c  @for(region(i)： @for(region(j)|i #ne# j： @abs(x(i)-x(j))>=0.5*(a(i)+a(j))));
  @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);
6 d2 q+ z! |$ d5 J+ h! y# l; c  @for(link(i,j)|i #ne# j： @bin(z(i,j)));  
end

zhangtao89524

loooog12

。。。。。