急，请高手帮忙分析一下

vision

is
- o8 s; b0 x! w9 L: }6 X4 {* Slocal links,rechts : integer;
* ]! M0 \, L( t; @8 ydo
# F! o0 N% y3 n0 C8 H  if @.standort.nf(1).nf(1).voll
. W9 l- B9 ^9 P) i- m     and @.standort.nf(2).nf(1).voll
! W) L! a' |7 @8 c4 N     and @.standort.nf(3).nf(1).voll
; [" a" T7 f. p) j* H" p  then
* i: i4 }  n, a# J3 m    blockier_merker := TRUE;
  else
$ m, U, @2 a3 `( T+ M: l( V    if @.standort.nf(1).nf(1).leer
8 t) e4 o" A/ [. V      then
$ a: S" s0 l  E% B- M      @.ziel := "ap4_C";
      @.umlagern(@.standort.nf(1));
' n% J7 T2 p* ~   else
6 I0 D" ]2 W. ^5 P3 k8 s- w- }      links := current.standort.stichE.AnzahlBEs + current.standort.stichD.AnzahlBEs
      + current.standort.zuf_E.AnzahlBEs + current.standort.zuf_D.AnzahlBEs
8 }8 e( Z1 D# S$ D      + current.standort.ap4_E.AnzahlBEs + current.standort.ap4_D.AnzahlBEs;
      rechts := current.standort.stichB.AnzahlBEs + current.standort.stichA.AnzahlBEs
: W) P( N1 I" i; v      + current.standort.zuf_B.AnzahlBEs + current.standort.zuf_A.AnzahlBEs
      + current.standort.ap4_B.AnzahlBEs + current.standort.ap4_A.AnzahlBEs;
      if links > rechts
        then
( z' I3 T( \4 b5 Y, X7 _         if @.standort.nf(3).nf(1).leer
  S& Q( e3 p: @6 b5 N. d( d% e9 J         then
           @.umlagern(@.standort.nf(3));      
         else
: F* H. ?, r2 R3 G0 @0 R          if @.standort.nf(2).nf(1).leer
          then
) e6 u' u/ x4 u2 m# X           @.umlagern(@.standort.nf(2));
' Z) {6 c9 P/ \% n6 P$ y* C          else
1 l4 \& q8 v9 S5 \           @.umlagern(@.standort.nf(1));
8 l4 r) x4 g3 m5 U7 h5 X" i. p% h          end;
: p# c4 i! n' Y( A1 e         end;
$ }* [- C3 P3 ]5 m% G) e      else
1 s/ q! O; S8 g0 h# v! y. m         if @.standort.nf(2).nf(1).leer
         then
: y' Y" a: a$ ]0 ]           @.umlagern(@.standort.nf(2));      
& c# V9 D( q- K/ p6 p  m: z  T6 I5 a         else
1 V$ |3 Q, `) |          if @.standort.nf(3).nf(1).leer
5 J( @% b+ V6 g0 K6 z) f0 ]          then
           @.umlagern(@.standort.nf(3));
: e0 ^. T/ b$ A4 S+ i          else
4 s8 l1 `" W' K9 D! U6 Y: |           @.umlagern(@.standort.nf(1));
+ z7 f2 [4 t7 W3 ^: \4 G          end;
" z: v% ?/ I( T; u* k' f" m7 P        end;
& F, ]% E" w- I0 D     end;   
" X; d7 p; l1 _& h9 J+ {$ K6 G. P    end;
5 n  V0 P8 U( p, T7 E, D' J: U  end;
if ?.leer
4 \* x% g  J1 a$ A5 J: Jthen
4 O6 W, a3 ]: i* r blockier_merker := false;
end;
# E5 n, f8 [+ u) Kend;
大家帮忙看看上面的程序是怎样实现分配的，好像用了一个遗传算法的。

pipilu

最好全传上来

tglwolf85

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