急，请高手帮忙分析一下

vision

is
" n0 h9 f8 \. |% u+ W5 ~local links,rechts : integer;
) P% I* G- V* q7 C$ C1 {( H* xdo
  if @.standort.nf(1).nf(1).voll
$ R, p0 J7 V! ]. r3 j6 s* a( Y     and @.standort.nf(2).nf(1).voll
9 w* C! X2 D0 h& {- G4 y9 ^' x     and @.standort.nf(3).nf(1).voll
  then
    blockier_merker := TRUE;
1 E( \3 V, ?2 ^! w- \1 t" p  else
    if @.standort.nf(1).nf(1).leer
      then
/ M" t7 b/ |% J* F  ~' W      @.ziel := "ap4_C";
      @.umlagern(@.standort.nf(1));
   else
4 S: ^! J; Y) Q; @& Q% S0 ?      links := current.standort.stichE.AnzahlBEs + current.standort.stichD.AnzahlBEs
! Z. p( g. m$ W/ x      + current.standort.zuf_E.AnzahlBEs + current.standort.zuf_D.AnzahlBEs
. s& p6 ^7 |0 n7 c+ \" L      + current.standort.ap4_E.AnzahlBEs + current.standort.ap4_D.AnzahlBEs;
      rechts := current.standort.stichB.AnzahlBEs + current.standort.stichA.AnzahlBEs
7 K  U1 @/ N7 X) r1 y) s      + current.standort.zuf_B.AnzahlBEs + current.standort.zuf_A.AnzahlBEs
5 S. m) ?% P; y( p. J      + current.standort.ap4_B.AnzahlBEs + current.standort.ap4_A.AnzahlBEs;
      if links > rechts
9 g- s! Z5 `1 H* Y6 W1 k5 v        then
& U( q, T4 i8 M6 O5 t- Q         if @.standort.nf(3).nf(1).leer
5 c3 @5 j# @+ M         then
           @.umlagern(@.standort.nf(3));      
5 m! x% z% I% X  C- d$ W         else
3 T& G( v9 l( L- l8 N* e          if @.standort.nf(2).nf(1).leer
8 @$ ]7 J3 c0 H. F  ?          then
5 l3 c8 d  r7 m; G6 `9 r           @.umlagern(@.standort.nf(2));
& E* f: \2 |4 L. Q6 k% X, o* q5 r          else
           @.umlagern(@.standort.nf(1));
' J! {8 W& P, V% s$ H          end;
3 H' J. `. T, ^, s         end;
; n; a  Q" f$ Z) S      else
         if @.standort.nf(2).nf(1).leer
4 d: c/ r) ~& o         then
           @.umlagern(@.standort.nf(2));      
3 c3 h7 X% \) y         else
          if @.standort.nf(3).nf(1).leer
8 i! l- \0 X/ o- V- E9 e! J3 L          then
6 ~! `* F4 `; E3 u           @.umlagern(@.standort.nf(3));
5 b4 \# G# d/ y8 E/ v          else
' u* V8 m( n1 x+ ~  ^/ r( j! j           @.umlagern(@.standort.nf(1));
          end;
        end;
, ~8 ~& @9 A- ~     end;   
3 k6 g7 r9 _4 |+ E    end;
  end;
* V7 _/ V2 Q0 h5 v% [& Fif ?.leer
then
blockier_merker := false;
end;
end;
6 y; @! f  {- v8 Y9 E9 B2 o7 x大家帮忙看看上面的程序是怎样实现分配的，好像用了一个遗传算法的。

pipilu

最好全传上来

tglwolf85

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