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

hitman

运行几个小时，状态还是未知（unknown）,程序如下,模型附在最后，请大家帮我看看，谢谢！
model:
; B" p; v3 X  Jsets:
  region/1..3/:x,y,a,b; !x,y分别表示质心的横坐标、纵坐标,a表示region在x
+ |/ P3 k7 g+ d% e  T. @) {    轴上的距离、b表示region在y轴上的距离;            
2 p' g0 [. }/ p9 ~9 g( J: @  link(region,region):T,z;  ! z(i,j)=1表示i和j紧邻，否则=0 ;
endsets
7 Y/ e( T  o1 W) ]data:  !关联度矩阵,要对称;
T=
-1000 4 0
/ |! ~7 G' D- i/ ^- ]7 T/ p4 n0 -1000 4
0 0 -1000
) u* }! [: i; M* m;
h=4;
$ i3 ]' Q7 A2 R" k# k- a1 ~g=1;
+ }' ~. @( Z" i3 Wa=1,2,1;
b=1,1,1;
/ Q$ t; d) n' |5 ]; Aenddata
. ]3 T; a2 A1 T1 R! 关联度最大;
max=@sum(link(i,j)|i #ne# j: T(i,j)*z(i,j));
5 V/ u% Z8 L& Y7 Q: a; e  @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)))
, @- [; E2 u  O! W  ^       #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));
" t: C( l- q1 B7 S+ x$ P6 S  @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))));
- Y+ d* a+ S! s% M1 _. a9 O8 F6 Z  @for(region(i):x(i)<h);
1 P3 L/ a8 f$ h( |  @for(region(i):y(i)<g);
- R* Q5 O8 {# L% x  @for(link(i,j)|i #ne# j： @bin(z(i,j)));  
end

zhangtao89524

loooog12

。。。。。