is
3 C* b, ]6 n8 ?% u; Ulocal links,rechts : integer;( v4 ?2 j- q6 a9 E* ]# h0 L
do
; ^& j5 S9 Q2 m& e+ b if @.standort.nf(1).nf(1).voll
* u2 @5 `& o$ m9 ~9 _) m( q and @.standort.nf(2).nf(1).voll
' @ v, j1 C2 j; j and @.standort.nf(3).nf(1).voll2 W' w' j/ m; }7 R8 i. C5 h: l* U
then$ I) \' l6 c h) ^4 K* p
blockier_merker := TRUE;
9 {) @# c7 z9 o# ?! Z, P* Q else8 ?4 M+ f% {$ z6 X8 @+ r% V8 }
if @.standort.nf(1).nf(1).leer: L4 E( [6 m) n/ s% N4 `
then
' U" \% A5 V$ o# R( R9 b+ b% G V @.ziel := "ap4_C";* C9 g V% T, i% `4 |' }
@.umlagern(@.standort.nf(1));" F, k. v: }3 N
else
5 p( u" \; W3 S- Q6 e7 [ links := current.standort.stichE.AnzahlBEs + current.standort.stichD.AnzahlBEs
; g: }3 N: x! [5 m9 N + current.standort.zuf_E.AnzahlBEs + current.standort.zuf_D.AnzahlBEs
C' Y% L$ W3 y* A4 x4 j' O + current.standort.ap4_E.AnzahlBEs + current.standort.ap4_D.AnzahlBEs;
6 }2 b+ }$ X' g$ }9 q8 @- i rechts := current.standort.stichB.AnzahlBEs + current.standort.stichA.AnzahlBEs
! Y9 }0 M' M4 d: m; T, r + current.standort.zuf_B.AnzahlBEs + current.standort.zuf_A.AnzahlBEs
. e$ I9 Q' D$ ~7 z3 v; X, P3 i" ~ + current.standort.ap4_B.AnzahlBEs + current.standort.ap4_A.AnzahlBEs;
' s' h$ Z- c" m& c% }' k3 c6 o0 z2 R9 S if links > rechts , \3 S# I0 Q0 ] d b, i
then7 w" G' H, @1 H+ b1 J& ?
if @.standort.nf(3).nf(1).leer
. g s, k- K* D then
" v2 W: G+ b& ]1 z, X5 e @.umlagern(@.standort.nf(3));
0 `8 M+ p; e, W* g else
7 |$ {0 o9 Q5 ~3 X4 J% z+ S if @.standort.nf(2).nf(1).leer- C; C* C9 F- O/ h. Y9 x
then2 U4 @+ d* V8 Z
@.umlagern(@.standort.nf(2));
) ]3 H4 r# V) ?+ S* H else
' [+ i) s; l, r2 D0 N6 E7 J4 t @.umlagern(@.standort.nf(1));1 A! `( g, w, j" {6 X% q
end;
+ _3 L' K5 B* A _/ O end;
. K: t8 |8 @" E- z else 3 \ m5 M8 W: j9 O
if @.standort.nf(2).nf(1).leer* a J- C' _' D) R" k5 f! }0 I
then/ R9 J. P. w: m0 H# [8 K
@.umlagern(@.standort.nf(2)); & a& ]4 _$ q$ T6 ?8 q2 E1 J
else8 n: h( x# N/ s
if @.standort.nf(3).nf(1).leer+ X9 z' Z) m& d7 _; i% L: K/ e% o
then
1 s1 D; U/ p F' T# u) i @.umlagern(@.standort.nf(3));
3 H* ^! U: Y7 g; N, P9 K. k4 b else
8 b$ N; X r K6 { @.umlagern(@.standort.nf(1));9 e9 z) n7 H# ~! X- n4 U
end;
, y$ ?: p! i* D1 ?/ D2 a end;
: v2 x$ G" n( H9 ]% W! ? end;
/ x$ W$ i7 n0 S+ m0 ~ end;
2 d" B8 G( q j end;
) k7 i" e# m2 r- X" ?, D/ Gif ?.leer: F d9 @* M4 _' m: w
then$ O+ r q2 d2 i7 a b7 _
blockier_merker := false;
8 F* v" ?7 q: W: z3 mend;
6 B# \0 p9 ]% ~; e7 n1 a1 gend; t& z/ W$ Y) S8 r: n4 f" M
大家帮忙看看上面的程序是怎样实现分配的,好像用了一个遗传算法的。 |