急，请高手帮忙分析一下

vision

is
local links,rechts : integer;
do
  if @.standort.nf(1).nf(1).voll
  e0 S. c; H2 ?1 u     and @.standort.nf(2).nf(1).voll
     and @.standort.nf(3).nf(1).voll
  then
( M3 @5 F2 t6 K6 {* {9 v: @    blockier_merker := TRUE;
  else
    if @.standort.nf(1).nf(1).leer
      then
      @.ziel := "ap4_C";
      @.umlagern(@.standort.nf(1));
# A1 c+ ]/ g5 l; j. [) ^& N   else
      links := current.standort.stichE.AnzahlBEs + current.standort.stichD.AnzahlBEs
      + current.standort.zuf_E.AnzahlBEs + current.standort.zuf_D.AnzahlBEs
& l  t- E/ G7 n  n$ B      + current.standort.ap4_E.AnzahlBEs + current.standort.ap4_D.AnzahlBEs;
      rechts := current.standort.stichB.AnzahlBEs + current.standort.stichA.AnzahlBEs
. D8 ^' B' f! F% R      + current.standort.zuf_B.AnzahlBEs + current.standort.zuf_A.AnzahlBEs
# ^+ ^9 s: r# B# p5 g/ _" d# F      + current.standort.ap4_B.AnzahlBEs + current.standort.ap4_A.AnzahlBEs;
8 k: M8 `( e+ u/ q9 a( R0 Q1 p      if links > rechts
        then
         if @.standort.nf(3).nf(1).leer
2 ]2 N1 \2 [& `         then
) `4 N/ ?4 o/ @, n           @.umlagern(@.standort.nf(3));      
         else
# \8 T# m/ d9 ?' h2 E/ k          if @.standort.nf(2).nf(1).leer
3 ?4 q* L5 T7 p4 ^6 k          then
/ q7 j" p0 f6 l  x7 k2 y           @.umlagern(@.standort.nf(2));
* U5 }% P% t3 R! p          else
, Z6 U. }  q) Z( \. g3 T, D           @.umlagern(@.standort.nf(1));
" g  f+ I: y$ b. P" `; q          end;
+ ~8 y. ]2 I# F" t3 p         end;
; H  `" q. T: W7 }; C" W      else
         if @.standort.nf(2).nf(1).leer
         then
$ v& ~' w: n% ?: R           @.umlagern(@.standort.nf(2));      
4 N, N+ X# e+ d8 j& c3 s         else
          if @.standort.nf(3).nf(1).leer
! [* S" R% u5 h! i1 E. Q+ C          then
6 _8 v. G9 ?* T3 ?# w2 a3 B& m4 t           @.umlagern(@.standort.nf(3));
          else
  t; M1 P7 o+ [0 t0 t- u           @.umlagern(@.standort.nf(1));
          end;
        end;
     end;   
' F  M. l% X; Q/ }( T    end;
  end;
* \8 M! P  ~5 o" |if ?.leer
then
blockier_merker := false;
: B: q$ ~! Q0 ~5 ]; d' q: qend;
: H& Q( u1 i; L4 Q: T) {4 A! A( ~end;
0 s: O" r+ z% G( V' b( K$ y大家帮忙看看上面的程序是怎样实现分配的，好像用了一个遗传算法的。

pipilu

最好全传上来

tglwolf85

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