急，请高手帮忙分析一下

vision

is
( t- \  V, A6 a( A) J% N' x" Glocal links,rechts : integer;
; k; @; ]) P+ N; y4 Zdo
7 Q& v7 W8 C1 u) b+ O  {  if @.standort.nf(1).nf(1).voll
( X* U+ l+ O) v: }+ b     and @.standort.nf(2).nf(1).voll
     and @.standort.nf(3).nf(1).voll
  then
  M* A% D- C0 B    blockier_merker := TRUE;
& w! B0 ^3 o/ y0 w* O+ j! C8 i/ f) W$ [  else
    if @.standort.nf(1).nf(1).leer
, S( p! X0 u, z7 {, _      then
- X0 d4 P% J& h" s# C      @.ziel := "ap4_C";
      @.umlagern(@.standort.nf(1));
+ e6 v+ D( y3 T" n- C   else
      links := current.standort.stichE.AnzahlBEs + current.standort.stichD.AnzahlBEs
7 _% |4 V# V- {/ u& n( T8 a- x      + current.standort.zuf_E.AnzahlBEs + current.standort.zuf_D.AnzahlBEs
+ [1 e) A9 M6 I& @% Q) W: O3 }  T      + current.standort.ap4_E.AnzahlBEs + current.standort.ap4_D.AnzahlBEs;
      rechts := current.standort.stichB.AnzahlBEs + current.standort.stichA.AnzahlBEs
% Q; u- Z4 N1 y% o! J      + current.standort.zuf_B.AnzahlBEs + current.standort.zuf_A.AnzahlBEs
      + current.standort.ap4_B.AnzahlBEs + current.standort.ap4_A.AnzahlBEs;
      if links > rechts
( {8 _7 s5 g# O3 S- ?" k: A2 g        then
- r! o9 C4 A! {! ?9 ~         if @.standort.nf(3).nf(1).leer
         then
5 z8 a* c/ R+ K. j; K           @.umlagern(@.standort.nf(3));      
         else
. Q+ M  N8 m& l& O. I. F7 S/ L          if @.standort.nf(2).nf(1).leer
* k! [; |- o# Q/ X0 ]$ Q          then
           @.umlagern(@.standort.nf(2));
' Q: N6 c5 x7 I5 p6 u          else
           @.umlagern(@.standort.nf(1));
, L, }/ F' I- ^% O$ L( ^          end;
         end;
      else
4 ~. k0 ?& X% N$ Q+ p! A         if @.standort.nf(2).nf(1).leer
+ @% _" y# [" M7 g$ |& z         then
           @.umlagern(@.standort.nf(2));      
, i9 M: q. ?, l7 j) `         else
          if @.standort.nf(3).nf(1).leer
          then
) f  Z1 S7 R9 Y4 i4 Z0 z2 n' _; G           @.umlagern(@.standort.nf(3));
          else
, c4 U2 k3 A) `7 b3 r9 J           @.umlagern(@.standort.nf(1));
          end;
        end;
  n& b7 Q+ d+ C, k7 a     end;   
    end;
( ~$ i. h8 c$ m! K& b  X- r- _  end;
& |9 X  m( n2 A- N( x8 uif ?.leer
+ l: y; d. i2 s) ?$ r+ q& u' A: S, ythen
: W# h7 o! \* M5 w( ^7 J blockier_merker := false;
0 v, ?4 b7 [) j! n% b0 ~' _% W  \end;
end;
大家帮忙看看上面的程序是怎样实现分配的，好像用了一个遗传算法的。

pipilu

最好全传上来

tglwolf85

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