急，请高手帮忙分析一下

vision

is
5 f' C0 F" U1 D: K, q9 blocal links,rechts : integer;
do
  if @.standort.nf(1).nf(1).voll
$ O' @, ^$ G( M8 k1 j, q     and @.standort.nf(2).nf(1).voll
& Z6 R- {3 R  i* g6 Q     and @.standort.nf(3).nf(1).voll
  then
- ?& l4 x6 P& O  ?, F( R& `3 W+ l5 v    blockier_merker := TRUE;
$ d. b  K3 ]& v- c5 W7 J* U  else
* ^# _- r5 e, M# o( Y    if @.standort.nf(1).nf(1).leer
7 ?8 H: U) S" a+ o4 z      then
& z+ m9 i- P4 k0 ]4 [4 M8 Q; G" E; B      @.ziel := "ap4_C";
% ?$ U! K( H1 p/ g+ m9 J9 n      @.umlagern(@.standort.nf(1));
0 ?5 H8 r7 [5 p" H   else
! k% W/ v$ a+ B- m      links := current.standort.stichE.AnzahlBEs + current.standort.stichD.AnzahlBEs
. f. m% @) o* z+ u& c/ P! P      + current.standort.zuf_E.AnzahlBEs + current.standort.zuf_D.AnzahlBEs
# c! E! e$ k! q8 Y/ l8 _( D      + current.standort.ap4_E.AnzahlBEs + current.standort.ap4_D.AnzahlBEs;
) E& n2 |2 N. t: V      rechts := current.standort.stichB.AnzahlBEs + current.standort.stichA.AnzahlBEs
      + current.standort.zuf_B.AnzahlBEs + current.standort.zuf_A.AnzahlBEs
      + current.standort.ap4_B.AnzahlBEs + current.standort.ap4_A.AnzahlBEs;
; a' o2 [+ L# E: H      if links > rechts
! d1 f: Y& B" a0 |6 p        then
         if @.standort.nf(3).nf(1).leer
         then
/ J* p5 }) G" S/ j( K9 D# ~           @.umlagern(@.standort.nf(3));      
1 V1 q) M- T+ Q1 \& v# {         else
          if @.standort.nf(2).nf(1).leer
/ q0 Q7 S/ k1 _          then
$ k. G7 M+ `' z3 N/ @2 o           @.umlagern(@.standort.nf(2));
2 D9 Y+ K5 x4 ^5 ^2 W          else
           @.umlagern(@.standort.nf(1));
- A0 N& B! M+ d- J+ H! f          end;
6 q- F9 w. u+ [$ |  c% J         end;
& \* g9 o; E4 W! ?% \  Z( H1 _1 q      else
, j! d8 G$ i! T( D         if @.standort.nf(2).nf(1).leer
" w& @$ Z# s1 z" z5 v9 t3 i3 H         then
! j' N8 f" {1 `! J# ]           @.umlagern(@.standort.nf(2));      
" a6 L, Q! G4 X6 g! z         else
: A5 e% E; |  M- a          if @.standort.nf(3).nf(1).leer
' C% ]6 N1 F# A( s% H# o          then
           @.umlagern(@.standort.nf(3));
          else
6 ^0 U# v% X" r* c           @.umlagern(@.standort.nf(1));
. V5 ^( s' \! A' }' U5 k          end;
        end;
8 ?9 y. n5 s3 q, c     end;   
    end;
( k6 r% \- D8 T. b  end;
  y1 P. s" J# p' R) s( oif ?.leer
% }% C" Q# M0 B- f) R- @then
: X- ?- K% v2 _3 e blockier_merker := false;
% r& d) m0 i: v* A  eend;
9 V- L0 s! c& |( J* y+ Xend;
2 R; C1 D2 `! c& ~. }大家帮忙看看上面的程序是怎样实现分配的，好像用了一个遗传算法的。

pipilu

最好全传上来

tglwolf85

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