is' J5 y" ]: V/ f4 h( ~
local links,rechts : integer;* N" ^- Y6 I! L0 w2 K! ~% W$ v
do5 ?5 Y8 C8 `# z- g
if @.standort.nf(1).nf(1).voll
0 F' `) I/ G& m) `8 E! R/ U) b and @.standort.nf(2).nf(1).voll, G" j* B2 }. ]
and @.standort.nf(3).nf(1).voll8 V4 {* I! D5 r- S& A. o1 E
then
. k! Q( v9 e- h8 ^0 f4 i d' `/ ~ blockier_merker := TRUE;, \$ Q h( J) E) M
else' j, H9 x! b& n, V. \; z* {- W
if @.standort.nf(1).nf(1).leer
' v$ x5 i# w: R9 y then
0 j9 B/ W7 _+ @: t) j! z) Z @.ziel := "ap4_C";% G+ M8 R3 q3 @, n4 M) F
@.umlagern(@.standort.nf(1));5 Y* ]9 O( N) g6 \% |2 r X: }
else) b8 w" K7 g2 |; L
links := current.standort.stichE.AnzahlBEs + current.standort.stichD.AnzahlBEs
g! G4 x( {: U% F9 ^# S2 B7 G + current.standort.zuf_E.AnzahlBEs + current.standort.zuf_D.AnzahlBEs $ l. C4 b( x; T8 d: L' i+ C
+ current.standort.ap4_E.AnzahlBEs + current.standort.ap4_D.AnzahlBEs;# G5 B* T9 ^# o V/ \. A
rechts := current.standort.stichB.AnzahlBEs + current.standort.stichA.AnzahlBEs
! C( z) G o. }+ u: H + current.standort.zuf_B.AnzahlBEs + current.standort.zuf_A.AnzahlBEs
! F& ? F: Z5 y T: o + current.standort.ap4_B.AnzahlBEs + current.standort.ap4_A.AnzahlBEs;( w# x' _- u; i, w- I
if links > rechts ' B& v: J5 |6 N# a# x9 {
then
: ~/ c3 r4 _9 k ~4 y. z. a" a% F+ h2 G if @.standort.nf(3).nf(1).leer) z( q* t+ h* i0 _
then
! [, V( T& ?9 ] @.umlagern(@.standort.nf(3));
# a' G2 b2 l3 y$ D5 s3 w else7 p# a a- g% H" }# @; d3 }
if @.standort.nf(2).nf(1).leer% x, k- n1 V! e6 Y3 c) U( d3 |' p
then
9 L D0 T* R: [1 D0 X" w @.umlagern(@.standort.nf(2));
; m: t( C6 B' { u( W$ F6 Y else, O$ n8 |( N) ?7 Z+ C
@.umlagern(@.standort.nf(1));
+ n3 @% [8 S9 c6 C( v end;/ n5 P9 E) D p' J1 p
end;
# t; d) L8 z4 `8 S else
: {8 |* i9 C0 {3 J0 w: {; R0 N if @.standort.nf(2).nf(1).leer+ G) B. o* u6 t+ J% |1 o/ g3 e
then7 M" C: c; W3 \8 E i
@.umlagern(@.standort.nf(2)); # y- G b0 V1 S* \8 @6 k3 }
else" Q2 V, D4 a, o- a7 j2 |
if @.standort.nf(3).nf(1).leer' j8 U/ ~0 G* T. U) S% l
then
9 o" v; V, p) v& j4 z, ? @.umlagern(@.standort.nf(3)); h$ {# a; n1 K3 ^
else
. s: w- R( o) Z @.umlagern(@.standort.nf(1));: w9 ]0 b. Z( C
end;
& y% e( M7 [1 H. I end;
: \% \8 j( b8 r3 ~$ F$ e% i end;
. u" W" b: M2 p2 F" z. D+ P2 X end;
4 C1 L3 ]* _7 m6 `* R end;
6 j: J7 F6 H; e8 O7 Fif ?.leer
" W* c8 h6 A2 H& j& Mthen" F# [+ E) n4 Q: l& L8 V3 A
blockier_merker := false;
7 x' |& N n2 D9 R( D) n0 eend;
6 B; M# j" J0 U! M& l" j7 r# y( `end;
0 ^' o m1 ~, z+ ]& |. F大家帮忙看看上面的程序是怎样实现分配的,好像用了一个遗传算法的。 |