急，请高手帮忙分析一下

vision

is
local links,rechts : integer;
+ m# R9 P- P; ]% {  C, rdo
8 i  x4 b* c, N0 K  if @.standort.nf(1).nf(1).voll
     and @.standort.nf(2).nf(1).voll
* k9 C3 n, v, R' `  t     and @.standort.nf(3).nf(1).voll
0 `6 _# S8 n! }4 o# c; p: Y1 r  then
    blockier_merker := TRUE;
9 @$ q7 J  Y  A1 ^3 j9 ?  else
    if @.standort.nf(1).nf(1).leer
' `/ n% ~; J3 v6 F. }% p/ z      then
      @.ziel := "ap4_C";
, p8 Z$ ]/ W% _- ^      @.umlagern(@.standort.nf(1));
   else
      links := current.standort.stichE.AnzahlBEs + current.standort.stichD.AnzahlBEs
      + current.standort.zuf_E.AnzahlBEs + current.standort.zuf_D.AnzahlBEs
      + current.standort.ap4_E.AnzahlBEs + current.standort.ap4_D.AnzahlBEs;
! T& O( r( z4 H' S      rechts := current.standort.stichB.AnzahlBEs + current.standort.stichA.AnzahlBEs
* ?+ w9 B. `. j7 r. _" Y1 t$ j' g  R8 Y$ J      + current.standort.zuf_B.AnzahlBEs + current.standort.zuf_A.AnzahlBEs
      + current.standort.ap4_B.AnzahlBEs + current.standort.ap4_A.AnzahlBEs;
; o1 B" D- [- X  t      if links > rechts
        then
         if @.standort.nf(3).nf(1).leer
2 d" }/ B& X9 y4 l0 M         then
7 M& ^7 k( g: h; y3 i- O  v           @.umlagern(@.standort.nf(3));      
  e$ U; P2 v# n         else
          if @.standort.nf(2).nf(1).leer
          then
% _7 t8 j  b; ~& x) \2 [* x3 i           @.umlagern(@.standort.nf(2));
% \% K* K- [# u' ~3 i          else
" C/ X6 _% I- [9 a           @.umlagern(@.standort.nf(1));
5 b; l3 x: n0 g* Z+ }- `9 S          end;
  u7 B2 |4 y4 E- Z* }         end;
      else
+ W) `8 e: u) ?- p3 ~" F         if @.standort.nf(2).nf(1).leer
8 a/ ~/ Z5 P, L: I         then
           @.umlagern(@.standort.nf(2));      
# u6 W2 q: L$ R8 c6 b" h  Z         else
1 z( G* i% Y7 ?) V8 h- @% Y5 R6 I          if @.standort.nf(3).nf(1).leer
          then
           @.umlagern(@.standort.nf(3));
: i  A, a; w) E2 w' Y8 I          else
0 {- H+ k! a/ \/ ~! s+ S7 d           @.umlagern(@.standort.nf(1));
          end;
) m) D! O8 ^$ w& d( w& \        end;
$ z0 W' N, m8 A0 i/ E  ]! J& p     end;   
3 _' W- i, [  u( m- Y5 q- h    end;
) R# W7 d. J1 x, G# k  end;
if ?.leer
then
6 K5 f/ j' A% q* L- y& Y* t3 u blockier_merker := false;
end;
end;
大家帮忙看看上面的程序是怎样实现分配的，好像用了一个遗传算法的。

pipilu

最好全传上来

tglwolf85

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