is
8 K" a7 M) O4 A& Q5 {: clocal links,rechts : integer;
. L T: v+ l8 [" X1 Mdo
; k* k8 d% K$ T% R8 o: q, F if @.standort.nf(1).nf(1).voll
+ d% t5 R! p2 u' | and @.standort.nf(2).nf(1).voll0 j* o( `6 P4 v- k$ A+ }4 f
and @.standort.nf(3).nf(1).voll
& P, t1 [+ i6 M8 _9 U. ~ then
* Z9 \2 k8 T2 l6 j: P& ]8 l4 F8 m blockier_merker := TRUE;% n; u8 I& I( _$ m( c- M' Q
else, Y6 n* i% L& _8 O( j
if @.standort.nf(1).nf(1).leer' B% m( I" W( V9 l
then
; K" X2 }4 d( s9 |& a" P8 r7 M @.ziel := "ap4_C";" ?) ]7 U5 Q9 l6 }0 I# z* x9 o
@.umlagern(@.standort.nf(1));8 Q0 T* e m, e7 I, C& `3 Z
else0 E' C$ Q$ z, j" l( a8 R
links := current.standort.stichE.AnzahlBEs + current.standort.stichD.AnzahlBEs
+ `$ E& L+ ]# [4 y + current.standort.zuf_E.AnzahlBEs + current.standort.zuf_D.AnzahlBEs 1 b7 q3 U* T3 N3 E# B
+ current.standort.ap4_E.AnzahlBEs + current.standort.ap4_D.AnzahlBEs;5 |& C _) n$ P. Q
rechts := current.standort.stichB.AnzahlBEs + current.standort.stichA.AnzahlBEs
/ p8 |3 v Y# f4 w3 V) C + current.standort.zuf_B.AnzahlBEs + current.standort.zuf_A.AnzahlBEs - |6 L& }9 ^ q7 |4 @
+ current.standort.ap4_B.AnzahlBEs + current.standort.ap4_A.AnzahlBEs;3 g7 H6 q0 y$ s6 u, v
if links > rechts ! [9 q1 z& n1 ^- P0 k5 U& v
then
+ j/ I# d0 J/ s, n, F if @.standort.nf(3).nf(1).leer; N# J* l1 x+ \ Z( [* |
then
& {" @# p# |& z/ ] @.umlagern(@.standort.nf(3)); + O0 j6 m# M3 m5 {% B1 L# s4 B
else
, C3 j1 Y }# P6 ~, e if @.standort.nf(2).nf(1).leer
+ i1 l, s1 x9 U5 A, ]9 A then
. v7 @2 X2 p5 ^3 g$ P @.umlagern(@.standort.nf(2));
5 n. t) B9 M8 B1 K& v6 K! M. ?2 q else
. u0 w$ T( r$ Y9 L6 \! r( e @.umlagern(@.standort.nf(1));
2 V+ U* C; H+ Q9 f# ], ]" d% N3 W1 C0 e end;3 e9 @: ], F5 N6 @, q R& _" T
end;$ p: Q% f5 g/ `: R3 O' h' v
else 4 A8 b7 n1 w* x; n0 q
if @.standort.nf(2).nf(1).leer9 R) P! S/ {9 _) I/ p/ M) R
then: f; _; l* m( o" f
@.umlagern(@.standort.nf(2)); S4 u/ f+ I+ X+ v4 S
else
" H3 H: [, y$ A9 ~# ?9 |1 s2 r if @.standort.nf(3).nf(1).leer S4 h& Q& p3 ^; N a
then
' v/ Q7 ^2 t; Y+ ?- |; e @.umlagern(@.standort.nf(3));0 {+ ]/ ]- v/ m. w/ i
else' B% j% S* `. n6 a
@.umlagern(@.standort.nf(1));
4 C, N% r# q S end;
8 {: t) e& M( Q, e! e end;
. @ b$ ] J( O0 v7 Y7 F4 x+ Y end;
1 U9 f; A1 ?0 D( H+ W end;+ p; M( p# U9 j* ]2 x- K9 C
end;
3 `/ |" Y& _* N2 b: Xif ?.leer
: I5 e$ }) {; ~# K* Z6 dthen
. ~% i- \! I# j, v8 B: q# L blockier_merker := false;/ i/ g8 ?( J3 n' k
end;2 c' H. [- b+ A+ b# P( I
end;
" X; H( |2 e: m* s7 N8 S' q大家帮忙看看上面的程序是怎样实现分配的,好像用了一个遗传算法的。 |