急，请高手帮忙分析一下

vision

is
local links,rechts : integer;
do
8 G6 W8 {; v  n# E' C: K  if @.standort.nf(1).nf(1).voll
) p, l0 K! z5 ^3 D0 e) {     and @.standort.nf(2).nf(1).voll
     and @.standort.nf(3).nf(1).voll
$ ^* _" G4 B7 k3 F1 ]$ P5 T0 Z  then
    blockier_merker := TRUE;
" C% w3 t' w# D" {8 b! G$ C  else
" L( l8 S& s# y, J* ?; V    if @.standort.nf(1).nf(1).leer
4 z, H' _2 N" c      then
- l/ }. c/ Q4 k* b" G& d      @.ziel := "ap4_C";
      @.umlagern(@.standort.nf(1));
/ b, p# Q6 U- X5 z' h! _   else
      links := current.standort.stichE.AnzahlBEs + current.standort.stichD.AnzahlBEs
      + current.standort.zuf_E.AnzahlBEs + current.standort.zuf_D.AnzahlBEs
/ Y. K( }7 v( i" w4 J      + current.standort.ap4_E.AnzahlBEs + current.standort.ap4_D.AnzahlBEs;
5 I0 K  R$ s9 {% ^( w4 X. b0 s* x      rechts := current.standort.stichB.AnzahlBEs + current.standort.stichA.AnzahlBEs
1 t- h  S- }# V5 _+ F- t+ A: u      + current.standort.zuf_B.AnzahlBEs + current.standort.zuf_A.AnzahlBEs
      + current.standort.ap4_B.AnzahlBEs + current.standort.ap4_A.AnzahlBEs;
4 j* F0 T. S/ I+ i$ g; N% j      if links > rechts
4 e. c' C2 Q# G7 g( b        then
4 G3 t9 |  A! i0 S         if @.standort.nf(3).nf(1).leer
( {4 j4 o' v' }+ M( T4 T2 `         then
           @.umlagern(@.standort.nf(3));      
         else
          if @.standort.nf(2).nf(1).leer
          then
8 c0 v! z( e- C: H           @.umlagern(@.standort.nf(2));
          else
           @.umlagern(@.standort.nf(1));
7 Q: P( H; J/ r% [          end;
+ a7 p% s/ H3 t1 v. U5 [" z, _/ c         end;
      else
         if @.standort.nf(2).nf(1).leer
( E4 f9 t1 i; @8 m/ D" y7 m         then
           @.umlagern(@.standort.nf(2));      
( _. h; o4 ?( X) |         else
          if @.standort.nf(3).nf(1).leer
* z$ P8 z- ^0 Q# o1 g          then
3 l/ N8 D+ y3 c  M- o9 `- v           @.umlagern(@.standort.nf(3));
          else
           @.umlagern(@.standort.nf(1));
, K9 k- Z" L, X, n4 C          end;
6 L- P$ u" i- C% p        end;
     end;   
* B4 d" ?6 t, q# [  V9 H    end;
7 }. ]1 f/ }- Z5 z, ]0 r' w  end;
& N( e. w; p- h1 u  n, n0 M) Xif ?.leer
then
- P$ r4 w7 d- f% r. K* m blockier_merker := false;
9 O, w0 S' Q% l% f7 R( y. O$ gend;
1 ^9 b6 @! l7 ~' Hend;
. \1 R+ d  J' X$ U& C2 f; t大家帮忙看看上面的程序是怎样实现分配的，好像用了一个遗传算法的。

pipilu

最好全传上来

tglwolf85

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