急，请高手帮忙分析一下

vision

is
! N" ~' k' Q& alocal links,rechts : integer;
  }2 y2 R& [/ ?; X9 D0 W) }" udo
3 l" ]: i+ s' W5 |- ~  if @.standort.nf(1).nf(1).voll
     and @.standort.nf(2).nf(1).voll
. K% n6 G' T2 U9 [  L; i" m% G  S     and @.standort.nf(3).nf(1).voll
1 N$ ]( \$ h( v& J  then
1 L1 v) z* C  a" r6 U    blockier_merker := TRUE;
, p' K# @2 ?5 Z9 ]  else
    if @.standort.nf(1).nf(1).leer
      then
) t" u# y* M; _' J/ e  v      @.ziel := "ap4_C";
9 S3 s# }: q1 V. j$ A/ \9 l      @.umlagern(@.standort.nf(1));
2 f4 c2 v( c' t) [! P* P   else
      links := current.standort.stichE.AnzahlBEs + current.standort.stichD.AnzahlBEs
0 ?8 n& p7 ~$ ^      + 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
4 D+ [' a% s0 t) v      + current.standort.zuf_B.AnzahlBEs + current.standort.zuf_A.AnzahlBEs
9 ?; R0 h- B; y7 m, w      + current.standort.ap4_B.AnzahlBEs + current.standort.ap4_A.AnzahlBEs;
      if links > rechts
/ u7 z7 L7 W$ J0 X! b) n        then
: }5 s1 n. B8 {/ v# z& e         if @.standort.nf(3).nf(1).leer
         then
           @.umlagern(@.standort.nf(3));      
         else
          if @.standort.nf(2).nf(1).leer
          then
           @.umlagern(@.standort.nf(2));
& N  n7 ?8 s( V0 o# q          else
           @.umlagern(@.standort.nf(1));
          end;
# b. J( R& ~3 T. s) m         end;
( D$ s/ _* d5 |% p& b+ U6 d3 {      else
         if @.standort.nf(2).nf(1).leer
4 k4 s5 N+ C9 h0 s5 g( F         then
8 d) f9 j2 H) h8 R, R           @.umlagern(@.standort.nf(2));      
9 j% e4 Y- z& x+ v" W1 ?* z* a- ~         else
& U3 T8 P' Q9 p/ o$ e+ u          if @.standort.nf(3).nf(1).leer
          then
9 Z" ]. p$ Z) h# i           @.umlagern(@.standort.nf(3));
          else
           @.umlagern(@.standort.nf(1));
          end;
        end;
  R1 s' d3 t4 A2 I& ]     end;   
5 f" b  o! o1 @7 k% _    end;
& {: N6 v" f6 f) p' c  end;
; v, ]% S- t* t% lif ?.leer
then
* i" }+ _- X" c) o; _, U blockier_merker := false;
) Q% R2 c5 f- ]' h3 h+ [end;
end;
大家帮忙看看上面的程序是怎样实现分配的，好像用了一个遗传算法的。

pipilu

最好全传上来

tglwolf85

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