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

hitman

运行几个小时，状态还是未知（unknown）,程序如下,模型附在最后，请大家帮我看看，谢谢！
4 @9 x* N8 @: P$ N  z7 ~% fmodel:
& t0 {* }$ x! s& V1 Ysets:
  region/1..3/:x,y,a,b; !x,y分别表示质心的横坐标、纵坐标,a表示region在x
( S- ?+ g; r. _9 [. R, G    轴上的距离、b表示region在y轴上的距离;            
  link(region,region):T,z;  ! z(i,j)=1表示i和j紧邻，否则=0 ;
. k, ]* @/ S) V1 C, w  p% Oendsets
- Y$ @; ^% s9 xdata:  !关联度矩阵,要对称;
, K7 Z7 V5 p+ S* K7 y2 cT=
-1000 4 0
0 -1000 4
0 0 -1000
0 P" K2 s  o% e: L7 Z;
  U' s9 `  L: ih=4;
8 E% }( i( H- n4 {g=1;
9 n$ p1 E! R8 J) Ba=1,2,1;
+ X$ X* F0 r" L" W# \8 }6 [b=1,1,1;
$ g- v2 l& {$ Senddata
! 关联度最大;
, r, B7 V3 y- Q1 |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)))
# e% c8 b" @/ D+ G       #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));
, z* G; W3 x4 @7 ]# j' d  @for(region(i)： @for(region(j)|i #ne# j： @abs(x(i)-x(j))>=0.5*(a(i)+a(j))));
: U1 k/ t9 X: R) V7 {( k  @for(region(i)： @for(region(j)|i #ne# j： @abs(y(i)-y(j))>=0.5*(b(i)+b(j))));
) k. D+ s, @5 q1 I8 I0 S% S  @for(region(i):x(i)<h);
  @for(region(i):y(i)<g);
9 u; b# J; ?; [. u  @for(link(i,j)|i #ne# j： @bin(z(i,j)));  
end

zhangtao89524

loooog12

。。。。。