is8 A, P `7 \6 n6 G3 x/ a
local links,rechts : integer;
4 U; D/ t y; A- I2 H! fdo- [) n/ E4 Q' b$ a* F. \
if @.standort.nf(1).nf(1).voll
' L( z5 ~4 q. P/ D7 V, b and @.standort.nf(2).nf(1).voll6 {# D. [4 }" v: y
and @.standort.nf(3).nf(1).voll
4 X! R2 a- x0 F: z then
6 L9 N3 z6 A7 m8 `) B blockier_merker := TRUE;
. x& k/ v" R: [4 |1 I( I else) B l7 H& [! j( I4 t5 W
if @.standort.nf(1).nf(1).leer
# I- ^& z4 v' e: [ then
2 W9 g+ s8 O; {! C" n3 D* d7 V5 O @.ziel := "ap4_C";
& W2 B) ~6 S9 B" P2 o! T @.umlagern(@.standort.nf(1));
4 a& \5 j+ b* e& T5 v else
/ a: R7 V8 p+ K9 a4 ^ links := current.standort.stichE.AnzahlBEs + current.standort.stichD.AnzahlBEs
% `# j1 J) \1 N1 i4 b" b + current.standort.zuf_E.AnzahlBEs + current.standort.zuf_D.AnzahlBEs
+ V h" m6 J" s4 u' \; U + current.standort.ap4_E.AnzahlBEs + current.standort.ap4_D.AnzahlBEs;" t8 X9 e5 C, d" ]7 W
rechts := current.standort.stichB.AnzahlBEs + current.standort.stichA.AnzahlBEs & r' E+ t/ ?7 C% h
+ current.standort.zuf_B.AnzahlBEs + current.standort.zuf_A.AnzahlBEs
/ {% r8 Y5 e+ g( M+ r + current.standort.ap4_B.AnzahlBEs + current.standort.ap4_A.AnzahlBEs;
- ?; W9 O( Q, W% V1 [* W) e if links > rechts
* N* P* U! p- ]( A: ? then
- o% r0 ?( W4 \( ^ if @.standort.nf(3).nf(1).leer* y$ ~9 y- m: H) i8 o4 L* b; K
then
: b! a) k5 W" @" r, ?- g+ B* \" w @.umlagern(@.standort.nf(3));
6 G5 n# v5 R' d+ G3 s9 L- R else
l% G A( Z- ]. Q K if @.standort.nf(2).nf(1).leer' ~) \" p8 Q( L* ]; Q/ i7 C0 T
then
7 K$ z+ E6 e9 j# I, x, H @.umlagern(@.standort.nf(2));' e5 C( R! T7 _4 x1 v
else
* T/ m( ~% b( a @.umlagern(@.standort.nf(1));
1 T% Y" ^% y- N/ t end;
4 C' p( M; J. a- i4 Y' | end;& [! Z7 L$ B) L# D; ?4 J7 Q
else 4 i, I0 t9 s B. d8 s; p$ ?
if @.standort.nf(2).nf(1).leer
^4 v( ^: N; u- Y" Y0 y3 l: n2 s then
+ z* i3 ~; K$ \* y* E r @.umlagern(@.standort.nf(2)); + U% u' {4 J0 f( N
else4 V; z8 z- O- g7 }+ E& F& f& O
if @.standort.nf(3).nf(1).leer" d# J* p1 i5 M7 R9 P
then, @7 n, [5 P* t- W5 `/ l w+ I% V8 _
@.umlagern(@.standort.nf(3));
, [: E3 P; g! y) D else+ A1 o/ C+ T" A2 |( p9 e4 I! V; W @
@.umlagern(@.standort.nf(1));
0 g1 w1 M% T" o4 ?5 b0 ]4 Y end;. p V( K6 V0 w# a! u
end;
! H2 ~" f/ {$ {) u end; 6 N% G$ k. q8 f# n5 g
end;. k) _! J6 J4 S- W" j4 v( s- x
end;( N8 { |! {+ ?+ _, a" d
if ?.leer N$ Y) j* D; S+ m6 a7 v3 w3 N
then
a! p6 }+ ~/ v2 U0 s g blockier_merker := false;
% {3 _' h3 j9 Y d5 ]6 W+ yend;" s, Q. S& b O }# X7 f0 Y
end;
% n0 i1 X, ?' a3 E( Z. D2 c8 @' H大家帮忙看看上面的程序是怎样实现分配的,好像用了一个遗传算法的。 |