急，请高手帮忙分析一下

vision

is
! \* n" J) O7 [( \/ ]" slocal links,rechts : integer;
do
) u# g0 Z; T; A  if @.standort.nf(1).nf(1).voll
     and @.standort.nf(2).nf(1).voll
/ [5 Q) \# f% y2 N, U     and @.standort.nf(3).nf(1).voll
  then
1 G) o; O% F; \; X# J    blockier_merker := TRUE;
- ]$ P; ?+ `4 H; h1 J  else
    if @.standort.nf(1).nf(1).leer
6 @+ P% w2 k3 [; U9 V! f: \      then
      @.ziel := "ap4_C";
. o, T* e: B  T3 _* V      @.umlagern(@.standort.nf(1));
. E, h5 z3 |3 @   else
      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
      + current.standort.ap4_B.AnzahlBEs + current.standort.ap4_A.AnzahlBEs;
9 k& [' b' j% _2 E9 G6 v! b      if links > rechts
  T" N+ Z' M3 B        then
         if @.standort.nf(3).nf(1).leer
         then
, A' j( z( \& |( Y* M           @.umlagern(@.standort.nf(3));      
         else
, O' o( M7 q: l4 e          if @.standort.nf(2).nf(1).leer
: ^/ B6 q" Q) H" Y4 H          then
4 e7 T, G+ L" x4 E# w           @.umlagern(@.standort.nf(2));
7 W# R+ d9 I/ T; j          else
           @.umlagern(@.standort.nf(1));
) M% h/ E6 o- ~1 }/ ~. F          end;
7 K, S# F% G0 L         end;
      else
* w0 a/ A' q, U8 _" t         if @.standort.nf(2).nf(1).leer
         then
           @.umlagern(@.standort.nf(2));      
         else
& l' H# `; [" V& X9 [- t: P8 M          if @.standort.nf(3).nf(1).leer
) g8 l" W3 D% G+ ]          then
           @.umlagern(@.standort.nf(3));
% ~: O/ K* _9 ?1 m) d# Z          else
9 f2 Y0 l/ [+ Y- L! K& A0 @           @.umlagern(@.standort.nf(1));
# s% |! r& p  \& Y. b          end;
3 Q6 Y3 K4 G& W6 ~+ E9 B        end;
     end;   
: E, l- }$ e& [/ [* x1 r    end;
& q9 I' x; r' U7 O  end;
+ L8 b# u# D! Z) R0 fif ?.leer
+ S+ i! l$ c5 `+ W1 O) A# jthen
+ y7 O9 V' [+ ~+ a( |0 P blockier_merker := false;
end;
end;
' k" n8 k, A, n& o) l5 `大家帮忙看看上面的程序是怎样实现分配的，好像用了一个遗传算法的。

pipilu

最好全传上来

tglwolf85

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