急，请高手帮忙分析一下

vision

is
4 s. o" r! g/ W+ b  E# @7 Ilocal links,rechts : integer;
do
2 o4 j* }7 U  S$ h' A4 k- `  if @.standort.nf(1).nf(1).voll
+ k, L% r. f; A  q9 v! G, t; V     and @.standort.nf(2).nf(1).voll
, e" [- `" M$ F( i# h     and @.standort.nf(3).nf(1).voll
  then
    blockier_merker := TRUE;
  else
    if @.standort.nf(1).nf(1).leer
2 }+ e5 v# W4 Z2 u: [# M      then
7 u- V/ `% i3 J4 q& b7 O: g      @.ziel := "ap4_C";
* E( X7 E$ Q6 y% S  x      @.umlagern(@.standort.nf(1));
   else
) I0 n+ B# @( W2 A( g2 b) g) E      links := current.standort.stichE.AnzahlBEs + current.standort.stichD.AnzahlBEs
2 d4 k0 B% K1 q) f) n6 x3 Q      + current.standort.zuf_E.AnzahlBEs + current.standort.zuf_D.AnzahlBEs
  T6 I1 n6 y' D7 f) }      + current.standort.ap4_E.AnzahlBEs + current.standort.ap4_D.AnzahlBEs;
" Z" r7 x$ `5 }7 M( v      rechts := current.standort.stichB.AnzahlBEs + current.standort.stichA.AnzahlBEs
. \6 Y) c2 k& o1 v      + current.standort.zuf_B.AnzahlBEs + current.standort.zuf_A.AnzahlBEs
      + current.standort.ap4_B.AnzahlBEs + current.standort.ap4_A.AnzahlBEs;
+ {8 M  }1 V2 _/ n& G5 K$ U      if links > rechts
        then
) m; `2 {5 R- A$ @( F7 F         if @.standort.nf(3).nf(1).leer
         then
           @.umlagern(@.standort.nf(3));      
         else
          if @.standort.nf(2).nf(1).leer
3 [, N  F) P7 N' Z' f( D' S& {  W          then
2 x( k( M- Y+ h) v9 I           @.umlagern(@.standort.nf(2));
          else
           @.umlagern(@.standort.nf(1));
1 V* I0 C/ d3 L* a! q7 z          end;
         end;
3 N6 s7 H) Q( K. ~5 u  s" `' f* Q      else
         if @.standort.nf(2).nf(1).leer
  W' w/ F/ }) k         then
" v" _* d4 o5 e/ J           @.umlagern(@.standort.nf(2));      
         else
          if @.standort.nf(3).nf(1).leer
          then
& U; Y  s+ o% \- ]6 w           @.umlagern(@.standort.nf(3));
; L$ L: x: t" F7 d$ r1 r          else
( R( F; @' a+ V" H* x( P           @.umlagern(@.standort.nf(1));
          end;
        end;
" I" K) n5 s* l/ [. ]     end;   
& n, @" D2 {5 P2 U4 J& |    end;
/ x& h, U9 g9 w' L  end;
& ^( G, b. W( {* j; C& `. ^if ?.leer
+ Z) V9 B) ?- T% fthen
8 u+ P5 X/ s  ^- y blockier_merker := false;
end;
end;
7 p! p5 f; `/ z- t; x! s大家帮忙看看上面的程序是怎样实现分配的，好像用了一个遗传算法的。

pipilu

最好全传上来

tglwolf85

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