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

hitman

运行几个小时，状态还是未知（unknown）,程序如下,模型附在最后，请大家帮我看看，谢谢！
% l# O7 L. V/ o! F+ w6 o9 ]model:
& n7 W- k- D6 P$ G. osets:
% q! L2 n. I+ i" o  p5 q  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:  !关联度矩阵,要对称;
6 W2 J* M; X/ V+ X; tT=
-1000 4 0
0 -1000 4
2 i: d! S9 U& @2 ?9 ~; N/ q: _0 0 -1000
8 G, l0 E4 }, k6 ^;
; w( b6 N& m7 t6 Z+ h. Yh=4;
7 k* n" \: O; O1 \: ug=1;
5 h9 x  h* v1 n* Ta=1,2,1;
$ ^4 Y* l, i( D2 |b=1,1,1;
! P: C5 _$ ?* q8 H) g5 J7 yenddata
! 关联度最大;
max=@sum(link(i,j)|i #ne# j: T(i,j)*z(i,j));
: Y/ l) c+ ]& j5 ]  @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)))
$ A# u8 T" X, }/ p- x' a( v       #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));
0 c% P) l7 E: [9 Y9 U5 `  @for(region(i)： @for(region(j)|i #ne# j： @abs(x(i)-x(j))>=0.5*(a(i)+a(j))));
2 v; J8 B7 n: ~  @for(region(i)： @for(region(j)|i #ne# j： @abs(y(i)-y(j))>=0.5*(b(i)+b(j))));
4 C$ ~( |3 }0 G0 B6 D  @for(region(i):x(i)<h);
, q* E) y$ `2 p, u6 V: `8 J& v  @for(region(i):y(i)<g);
  @for(link(i,j)|i #ne# j： @bin(z(i,j)));  
/ k5 v" R. y6 o' g7 w% k1 e& Rend

zhangtao89524

loooog12

。。。。。