急，请高手帮忙分析一下

vision

is
local links,rechts : integer;
! }0 b# Y, _& o2 xdo
5 D0 C$ ]1 {6 u0 {$ x1 |/ i  if @.standort.nf(1).nf(1).voll
9 K7 T3 i7 j  Q+ O- y) H     and @.standort.nf(2).nf(1).voll
( J  _! R- |; _: ]5 S! J     and @.standort.nf(3).nf(1).voll
% R' z% i6 ]+ E+ {* k% }9 ]  then
    blockier_merker := TRUE;
$ a, \- J  H( O# X4 [  else
    if @.standort.nf(1).nf(1).leer
      then
  J, S1 |, g* n  B  U      @.ziel := "ap4_C";
      @.umlagern(@.standort.nf(1));
$ t" N2 H9 f; [' L   else
5 r( V1 I- F+ u, K      links := current.standort.stichE.AnzahlBEs + current.standort.stichD.AnzahlBEs
      + 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
1 f# F& t* }7 P5 }" D6 H+ o      + current.standort.ap4_B.AnzahlBEs + current.standort.ap4_A.AnzahlBEs;
, y+ ^$ H4 S2 ?" c  e- |1 G, I      if links > rechts
" |5 Z9 c0 L" F( ^/ [        then
         if @.standort.nf(3).nf(1).leer
2 r: q  D% i- Z1 @         then
           @.umlagern(@.standort.nf(3));      
; r3 U: a; ]) q# H/ Y( U* X4 l0 g; i         else
" v# k- S  }; {1 j  T          if @.standort.nf(2).nf(1).leer
0 a' i8 N+ o9 R% v0 S" |5 I          then
1 \1 \- V! Y. S' h% W3 A           @.umlagern(@.standort.nf(2));
          else
& |0 t2 n7 z7 |  G+ x$ _5 ~           @.umlagern(@.standort.nf(1));
          end;
         end;
3 f' S- e9 O2 g/ [      else
0 m& d; d6 C4 H0 I5 s         if @.standort.nf(2).nf(1).leer
2 n$ F3 Z6 k/ [( H# }# ?7 F! c7 K         then
; I) W0 H+ P2 M! k6 _% X" L8 M           @.umlagern(@.standort.nf(2));      
2 s1 ^' r, S# x         else
          if @.standort.nf(3).nf(1).leer
          then
           @.umlagern(@.standort.nf(3));
          else
           @.umlagern(@.standort.nf(1));
          end;
: U6 M. f- f+ D: p4 L        end;
6 d8 q! Q1 ^  q* A     end;   
* n9 M- `* N" r8 W; Z& n    end;
  end;
if ?.leer
* K/ a* e2 t) B+ Y) M; r0 \then
% J, x9 B. V# a* [- g blockier_merker := false;
end;
end;
' b& y9 X5 U% A% J$ T  Q, s大家帮忙看看上面的程序是怎样实现分配的，好像用了一个遗传算法的。

pipilu

最好全传上来

tglwolf85

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