急，请高手帮忙分析一下

vision

is
  N! ?$ B3 K  o; Clocal links,rechts : integer;
do
  if @.standort.nf(1).nf(1).voll
: S4 g  \: b0 c! R) `     and @.standort.nf(2).nf(1).voll
     and @.standort.nf(3).nf(1).voll
% {/ B7 b* o8 ?$ ]0 h  then
& O+ D' S( v0 a" J& v5 q$ u$ P" v4 k    blockier_merker := TRUE;
5 V: ~- a4 y2 A4 d5 j! W9 j; A  else
    if @.standort.nf(1).nf(1).leer
      then
( A0 s1 ^4 [" |3 N$ r. v      @.ziel := "ap4_C";
8 q& P' j& ]. `! h! x" L      @.umlagern(@.standort.nf(1));
   else
; b4 `6 r- I1 ]6 q- l      links := current.standort.stichE.AnzahlBEs + current.standort.stichD.AnzahlBEs
9 [7 `" A+ `0 p8 u/ q      + current.standort.zuf_E.AnzahlBEs + current.standort.zuf_D.AnzahlBEs
      + current.standort.ap4_E.AnzahlBEs + current.standort.ap4_D.AnzahlBEs;
# j) }/ t, H4 ]) t& }8 k      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;
: ~% i- L4 s( j( e( q- s      if links > rechts
        then
         if @.standort.nf(3).nf(1).leer
5 ^2 o3 |; }7 T: |. O& v6 `         then
! p/ E' l2 m* N! e7 z  r9 O: X$ t           @.umlagern(@.standort.nf(3));      
9 X: N& K) ]" T+ p         else
          if @.standort.nf(2).nf(1).leer
          then
" x' B- ~2 y. g3 q( x" t; i           @.umlagern(@.standort.nf(2));
2 G' N# W! k# s2 R3 j          else
. Y- D% }( S+ n" _  u& z  n           @.umlagern(@.standort.nf(1));
9 ~+ [3 o! W. p7 D5 h. d- u7 v          end;
         end;
      else
! T/ \) O+ K0 S# h& w$ h+ e         if @.standort.nf(2).nf(1).leer
         then
           @.umlagern(@.standort.nf(2));      
( _7 w! j' I: ]! G% K         else
          if @.standort.nf(3).nf(1).leer
          then
           @.umlagern(@.standort.nf(3));
$ }5 L7 R  T8 `; m3 e          else
1 P% [: }3 N; [           @.umlagern(@.standort.nf(1));
          end;
        end;
- p: R3 T  ~4 s5 a8 N; B) V) N     end;   
% F: L7 n2 a9 y  U: x7 }5 V* Q7 y( o    end;
  end;
if ?.leer
then
! H) ~$ @7 D) @ blockier_merker := false;
end;
5 n4 r2 C0 g$ T/ f& n: _4 Pend;
& S* w: N  u" q& z大家帮忙看看上面的程序是怎样实现分配的，好像用了一个遗传算法的。

pipilu

最好全传上来

tglwolf85

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