急，请高手帮忙分析一下

vision

is
local links,rechts : integer;
do
+ [9 E) a+ J7 ~) N  if @.standort.nf(1).nf(1).voll
7 Z3 B4 ^$ n3 R% s, G     and @.standort.nf(2).nf(1).voll
6 d" l: c/ y) ~. P( ]     and @.standort.nf(3).nf(1).voll
  then
" Q  A* b" I1 G+ x7 u! p$ J* n3 b    blockier_merker := TRUE;
  else
2 t: T0 y6 O) t+ F/ Q0 D; D. X- h    if @.standort.nf(1).nf(1).leer
      then
' t+ b/ e6 f, u6 y/ Y3 q2 b      @.ziel := "ap4_C";
      @.umlagern(@.standort.nf(1));
   else
      links := current.standort.stichE.AnzahlBEs + current.standort.stichD.AnzahlBEs
/ L: d0 A) Y, {' ^      + current.standort.zuf_E.AnzahlBEs + current.standort.zuf_D.AnzahlBEs
7 t5 z+ V9 }1 E8 K$ o      + current.standort.ap4_E.AnzahlBEs + current.standort.ap4_D.AnzahlBEs;
      rechts := current.standort.stichB.AnzahlBEs + current.standort.stichA.AnzahlBEs
- k' h' d. c2 G6 w      + current.standort.zuf_B.AnzahlBEs + current.standort.zuf_A.AnzahlBEs
* O# }3 u) D2 O- u- e7 M0 ^; m& d      + current.standort.ap4_B.AnzahlBEs + current.standort.ap4_A.AnzahlBEs;
      if links > rechts
2 D- f/ |/ g( u! R$ w        then
         if @.standort.nf(3).nf(1).leer
  D& Z+ y( S5 ^% p0 i6 h5 U         then
           @.umlagern(@.standort.nf(3));      
         else
          if @.standort.nf(2).nf(1).leer
" N+ \8 F) b- P* e' e          then
2 z/ _* c( z# q8 n  u# T& c$ C           @.umlagern(@.standort.nf(2));
& J: L( d& l' N  [& m( }6 M; V# E/ q          else
           @.umlagern(@.standort.nf(1));
' @/ y+ B5 n' K" z, M) i          end;
         end;
" I/ O- D& Z0 b# N4 t7 l      else
4 y2 ]) R* U% a         if @.standort.nf(2).nf(1).leer
% q) k  O9 K" T0 r& Z, Z9 r, q         then
% |0 `( Z: M$ s, \           @.umlagern(@.standort.nf(2));      
         else
8 f, h) ~" r1 b1 j( E7 v- F1 k          if @.standort.nf(3).nf(1).leer
          then
" H9 z, y& R! J  Q+ K2 K- w7 n2 j           @.umlagern(@.standort.nf(3));
/ M& M* d. r# o5 i# m: k- n          else
           @.umlagern(@.standort.nf(1));
          end;
        end;
' o. [- F: z0 t/ J8 a     end;   
! X) H4 P: F  \3 q$ w    end;
" u; r) ]7 X9 O+ @* k  A  end;
if ?.leer
then
blockier_merker := false;
' Q5 X& S) d/ E3 a0 aend;
" y+ j+ N1 Q- F% aend;
4 j0 f2 s) r' M/ N1 X4 m0 R7 ^; H大家帮忙看看上面的程序是怎样实现分配的，好像用了一个遗传算法的。

pipilu

最好全传上来

tglwolf85

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