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

hitman

运行几个小时，状态还是未知（unknown）,程序如下,模型附在最后，请大家帮我看看，谢谢！
6 s2 Z; Z: I$ W* h; c4 p& umodel:
7 w0 w, S" F  S0 V2 ssets:
  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 ;
) ?5 X* l' y* |  B5 Y; zendsets
$ y+ g- b% k1 F! ~7 A# ~" odata:  !关联度矩阵,要对称;
. F8 Q! }; z- C+ B9 HT=
) \$ }4 ?6 B- b! x) I-1000 4 0
, a, u) R( }# S% z5 X0 -1000 4
0 0 -1000
* c/ ]5 t* f8 J: a5 b6 C7 q9 A;
h=4;
! h0 K% n6 G: h3 T. ~& {" Og=1;
% k- k+ h& _7 u; J, j& Va=1,2,1;
b=1,1,1;
+ P8 L) K  C- u& R! T2 ]enddata
$ h# ?. M. ~; l. f9 T! 关联度最大;
, x: J2 j! e0 u2 I( amax=@sum(link(i,j)|i #ne# j: T(i,j)*z(i,j));
* n$ v( B! d- R( W  @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));
+ x1 P+ j# }( Y+ U- I  @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))));
1 a" |; @3 s2 S/ C# `/ G4 J; S- J* D( Q  @for(region(i):x(i)<h);
( p9 X/ R( v9 p0 B+ j$ {, X2 ]  @for(region(i):y(i)<g);
  @for(link(i,j)|i #ne# j： @bin(z(i,j)));  
end

zhangtao89524

loooog12

。。。。。