急，请高手帮忙分析一下

vision

is
local links,rechts : integer;
% z$ ^5 T  l- U, I( G6 C" qdo
- s$ s  N% e/ G* \! r1 j  if @.standort.nf(1).nf(1).voll
     and @.standort.nf(2).nf(1).voll
4 P2 F* v. G/ H$ E" _     and @.standort.nf(3).nf(1).voll
  then
    blockier_merker := TRUE;
. d/ L7 C, y2 {  t% R4 C# K  else
6 K& _' D; ]8 Z# e% j) U) ^& Z    if @.standort.nf(1).nf(1).leer
      then
      @.ziel := "ap4_C";
" v- m) t5 \& U9 U      @.umlagern(@.standort.nf(1));
   else
  _, `( i0 T' `  P      links := current.standort.stichE.AnzahlBEs + current.standort.stichD.AnzahlBEs
( i1 x1 y' I6 v8 }7 x8 ^" e+ w      + current.standort.zuf_E.AnzahlBEs + current.standort.zuf_D.AnzahlBEs
      + current.standort.ap4_E.AnzahlBEs + current.standort.ap4_D.AnzahlBEs;
      rechts := current.standort.stichB.AnzahlBEs + current.standort.stichA.AnzahlBEs
      + current.standort.zuf_B.AnzahlBEs + current.standort.zuf_A.AnzahlBEs
      + current.standort.ap4_B.AnzahlBEs + current.standort.ap4_A.AnzahlBEs;
      if links > rechts
! [! X: q4 e% J/ G& r        then
  g% c2 ^1 z- @) \  c% \         if @.standort.nf(3).nf(1).leer
         then
7 B( K  q2 O" t9 F$ P8 G/ p           @.umlagern(@.standort.nf(3));      
+ g7 |. ?* y4 D. o. U" s% v2 s6 T         else
8 J: S$ q2 ?# h: g6 j& Q/ S          if @.standort.nf(2).nf(1).leer
, `+ r1 @; J  P          then
           @.umlagern(@.standort.nf(2));
) u9 F( |" t+ l          else
8 F% P9 ]0 ^# S( q; b           @.umlagern(@.standort.nf(1));
1 I  k$ f7 c# G! R+ ]; A          end;
! Y; P. e0 ^9 Q2 O( y         end;
3 u. X4 V7 W, o: H2 F5 ^1 ?) v      else
         if @.standort.nf(2).nf(1).leer
. ~! u& Y9 T+ Y  ?1 B         then
' T8 B1 A$ p% X0 z! p( ]: W           @.umlagern(@.standort.nf(2));      
. y1 n- i. I, j- x- y% }         else
          if @.standort.nf(3).nf(1).leer
, {: T( ^+ y  J/ O3 L) j          then
           @.umlagern(@.standort.nf(3));
4 ^; L# G7 W  L/ x+ }! E          else
           @.umlagern(@.standort.nf(1));
          end;
  M3 B* f/ X' Q2 E: }# k" |. t        end;
     end;   
! _0 ]  i0 }& ~& ]3 ^) ~* S    end;
  end;
if ?.leer
$ i2 u4 B7 e8 Ythen
' G# N8 Z( r& c5 ~7 G blockier_merker := false;
end;
end;
. x* D: ~- X2 L! ?3 e- Y6 g大家帮忙看看上面的程序是怎样实现分配的，好像用了一个遗传算法的。

pipilu

最好全传上来

tglwolf85

你要把整个模型传上来，否则你里面的entity名称，根本就不知道他们的逻辑关系，也就无法判断语句是否有问题，，最多也就能判断其语法是否有错误，它在method里面直接可以判断！