急，请高手帮忙分析一下

vision

is
local links,rechts : integer;
5 Z" J5 i2 e5 q. x1 Y) ndo
/ P" h- `1 m  s2 k# ?7 f4 P! }* Q1 K  if @.standort.nf(1).nf(1).voll
     and @.standort.nf(2).nf(1).voll
7 r; r& V. ^; ]3 |6 T     and @.standort.nf(3).nf(1).voll
7 x  @' ^  |0 z; Q1 @) t9 d  then
0 w/ P5 o8 E7 v( t    blockier_merker := TRUE;
' P2 `) i2 h* ?7 H% C  else
    if @.standort.nf(1).nf(1).leer
# N, U, [  `& q( X8 E! Q      then
$ o! P# I- N% A1 E2 o* [+ ~) f      @.ziel := "ap4_C";
      @.umlagern(@.standort.nf(1));
) a5 n5 p5 u9 H9 V! m   else
$ n% U: r7 E! \$ N      links := current.standort.stichE.AnzahlBEs + current.standort.stichD.AnzahlBEs
      + current.standort.zuf_E.AnzahlBEs + current.standort.zuf_D.AnzahlBEs
+ i! ?) J6 K- x. w      + current.standort.ap4_E.AnzahlBEs + current.standort.ap4_D.AnzahlBEs;
* g# _2 |* ~) F3 j      rechts := current.standort.stichB.AnzahlBEs + current.standort.stichA.AnzahlBEs
      + current.standort.zuf_B.AnzahlBEs + current.standort.zuf_A.AnzahlBEs
+ G$ q$ Q+ t  A; @      + current.standort.ap4_B.AnzahlBEs + current.standort.ap4_A.AnzahlBEs;
      if links > rechts
# P4 r' Z2 R1 ^# ]. b7 @: u, h+ m        then
         if @.standort.nf(3).nf(1).leer
* b" }- @& w" W5 v) t2 f) J         then
           @.umlagern(@.standort.nf(3));      
         else
3 l- X) ^& O9 y* C+ r          if @.standort.nf(2).nf(1).leer
" _5 @: q# i1 D) N1 _8 j( ~& J          then
           @.umlagern(@.standort.nf(2));
! Z6 |8 A( T- C2 M          else
+ l: K7 ^1 `* T! N* Y  i           @.umlagern(@.standort.nf(1));
) t( S; F; _6 ?          end;
0 w5 z$ C; \6 O  z5 h         end;
* _9 t8 G& p# m6 T      else
/ t# V$ Q2 t( D$ [4 I2 s8 n         if @.standort.nf(2).nf(1).leer
' Q; t! o( O; n- O0 ~& W5 x( J         then
# X2 z1 q# ~) a$ [9 B  k+ T. v           @.umlagern(@.standort.nf(2));      
2 B! s9 f9 l. q         else
0 L. U6 {# Q* O7 k. J& w; j          if @.standort.nf(3).nf(1).leer
$ W3 u  l4 ]/ ^; Z! R6 W! L! c& s          then
           @.umlagern(@.standort.nf(3));
          else
8 R9 ]& `3 S7 I8 l           @.umlagern(@.standort.nf(1));
          end;
% g# ~/ e7 J( J        end;
) c: f( N- [; J$ Z     end;   
    end;
  end;
. o2 H# S* |$ i  a& M: R) zif ?.leer
& s* P7 p$ x& r/ u1 Fthen
blockier_merker := false;
end;
- ]2 @4 ^8 W# ~1 Gend;
大家帮忙看看上面的程序是怎样实现分配的，好像用了一个遗传算法的。

pipilu

最好全传上来

tglwolf85

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