急，请高手帮忙分析一下

vision

is
- z' d- Y. L% G( K  y1 R3 k' X4 plocal links,rechts : integer;
! Q9 D+ U6 b6 wdo
6 a! L; p. A& B; N( t1 ?/ Q  if @.standort.nf(1).nf(1).voll
     and @.standort.nf(2).nf(1).voll
" d7 }2 b* R* Y/ L' u* y# M     and @.standort.nf(3).nf(1).voll
  then
    blockier_merker := TRUE;
  else
. \# W2 a# \/ }( `- U    if @.standort.nf(1).nf(1).leer
) p4 {$ s6 R' ]% u4 B1 E      then
2 O) I+ t4 ]4 r& Z/ ]9 H6 X7 M      @.ziel := "ap4_C";
5 L: A: v5 }3 d6 }+ A" t      @.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;
      rechts := current.standort.stichB.AnzahlBEs + current.standort.stichA.AnzahlBEs
6 p6 W# O$ _1 k9 H1 Q. E      + current.standort.zuf_B.AnzahlBEs + current.standort.zuf_A.AnzahlBEs
& I: Y7 A( ?& N! s      + current.standort.ap4_B.AnzahlBEs + current.standort.ap4_A.AnzahlBEs;
5 I. ]2 V7 C+ _2 D      if links > rechts
        then
         if @.standort.nf(3).nf(1).leer
         then
           @.umlagern(@.standort.nf(3));      
! F" ?' b. _) j6 k5 J  \3 b         else
          if @.standort.nf(2).nf(1).leer
          then
           @.umlagern(@.standort.nf(2));
          else
3 P- c1 }' Q+ o) p           @.umlagern(@.standort.nf(1));
( Z5 n% ^7 J- o1 ^% u          end;
( ~  U& l3 m. ]9 I% s; e         end;
      else
         if @.standort.nf(2).nf(1).leer
. l( d* l5 F3 e4 D# x7 c$ P8 n         then
           @.umlagern(@.standort.nf(2));      
9 J% I2 d7 N+ B0 ~# M" x         else
          if @.standort.nf(3).nf(1).leer
0 K6 W' t3 a( V          then
& O. F7 N3 x! Y0 z           @.umlagern(@.standort.nf(3));
          else
           @.umlagern(@.standort.nf(1));
          end;
        end;
. [$ w3 }# j5 j- g" C     end;   
. l  ?# f0 m2 ~. a' H1 ^/ i8 d    end;
  end;
if ?.leer
' m' }; S3 i: H0 c3 Vthen
blockier_merker := false;
% M$ h/ y  _! X: tend;
) _! ]. @# i" a! M. send;
大家帮忙看看上面的程序是怎样实现分配的，好像用了一个遗传算法的。

pipilu

最好全传上来

tglwolf85

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