急，请高手帮忙分析一下

vision

is
local links,rechts : integer;
4 U; D/ t  y; A- I2 H! fdo
  if @.standort.nf(1).nf(1).voll
' L( z5 ~4 q. P/ D7 V, b     and @.standort.nf(2).nf(1).voll
     and @.standort.nf(3).nf(1).voll
4 X! R2 a- x0 F: z  then
6 L9 N3 z6 A7 m8 `) B    blockier_merker := TRUE;
. x& k/ v" R: [4 |1 I( I  else
    if @.standort.nf(1).nf(1).leer
# I- ^& z4 v' e: [      then
2 W9 g+ s8 O; {! C" n3 D* d7 V5 O      @.ziel := "ap4_C";
& W2 B) ~6 S9 B" P2 o! T      @.umlagern(@.standort.nf(1));
4 a& \5 j+ b* e& T5 v   else
/ a: R7 V8 p+ K9 a4 ^      links := current.standort.stichE.AnzahlBEs + current.standort.stichD.AnzahlBEs
% `# j1 J) \1 N1 i4 b" b      + current.standort.zuf_E.AnzahlBEs + current.standort.zuf_D.AnzahlBEs
+ V  h" m6 J" s4 u' \; U      + 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
/ {% r8 Y5 e+ g( M+ r      + current.standort.ap4_B.AnzahlBEs + current.standort.ap4_A.AnzahlBEs;
- ?; W9 O( Q, W% V1 [* W) e      if links > rechts
* N* P* U! p- ]( A: ?        then
- o% r0 ?( W4 \( ^         if @.standort.nf(3).nf(1).leer
         then
: b! a) k5 W" @" r, ?- g+ B* \" w           @.umlagern(@.standort.nf(3));      
6 G5 n# v5 R' d+ G3 s9 L- R         else
  l% G  A( Z- ]. Q  K          if @.standort.nf(2).nf(1).leer
          then
7 K$ z+ E6 e9 j# I, x, H           @.umlagern(@.standort.nf(2));
          else
* T/ m( ~% b( a           @.umlagern(@.standort.nf(1));
1 T% Y" ^% y- N/ t          end;
4 C' p( M; J. a- i4 Y' |         end;
      else
         if @.standort.nf(2).nf(1).leer
  ^4 v( ^: N; u- Y" Y0 y3 l: n2 s         then
+ z* i3 ~; K$ \* y* E  r           @.umlagern(@.standort.nf(2));      
         else
          if @.standort.nf(3).nf(1).leer
          then
           @.umlagern(@.standort.nf(3));
, [: E3 P; g! y) D          else
           @.umlagern(@.standort.nf(1));
0 g1 w1 M% T" o4 ?5 b0 ]4 Y          end;
        end;
! H2 ~" f/ {$ {) u     end;   
    end;
  end;
if ?.leer
then
  a! p6 }+ ~/ v2 U0 s  g blockier_merker := false;
% {3 _' h3 j9 Y  d5 ]6 W+ yend;
end;
% n0 i1 X, ?' a3 E( Z. D2 c8 @' H大家帮忙看看上面的程序是怎样实现分配的，好像用了一个遗传算法的。

pipilu

最好全传上来

tglwolf85

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