is% k* |. T( y0 r7 ?) @: ]
local links,rechts : integer;
! y" F; b' l9 I1 l( v2 tdo
: ]6 ]* T. z6 d, F0 m9 Z# f! H1 o if @.standort.nf(1).nf(1).voll
, W1 w: F7 g! }8 O and @.standort.nf(2).nf(1).voll
4 R) n! _. f: b and @.standort.nf(3).nf(1).voll# }; o) O5 y9 k5 f" b, t$ n
then
! i3 y7 T! \3 l% o B) C blockier_merker := TRUE;1 c$ V# x1 y6 e
else
3 h% F5 B& c# n! U" l- P if @.standort.nf(1).nf(1).leer
, A- i* Q3 R; o5 ?6 N& q then* e. x7 m1 y. J* c8 x/ J
@.ziel := "ap4_C";/ D0 m! i) }) A3 Q, x
@.umlagern(@.standort.nf(1));
4 C! l: j4 x' b9 V! t% {$ L& L else
! S# B( N9 ^' } links := current.standort.stichE.AnzahlBEs + current.standort.stichD.AnzahlBEs
# D( _+ [$ ~1 r) b9 |! U + current.standort.zuf_E.AnzahlBEs + current.standort.zuf_D.AnzahlBEs ' z* i% k# h( U1 G" x4 N
+ current.standort.ap4_E.AnzahlBEs + current.standort.ap4_D.AnzahlBEs;* O$ A" C) R; ?4 G
rechts := current.standort.stichB.AnzahlBEs + current.standort.stichA.AnzahlBEs
* E9 n2 k. M C + current.standort.zuf_B.AnzahlBEs + current.standort.zuf_A.AnzahlBEs
9 g* @! P# I6 Z4 i7 ?0 { + current.standort.ap4_B.AnzahlBEs + current.standort.ap4_A.AnzahlBEs;
$ D/ M: P8 y8 K3 Q3 Q# | if links > rechts 4 a0 i. S. Y0 k' {
then
, a% ~* f [. U, l! N/ g2 Q" H0 e if @.standort.nf(3).nf(1).leer3 Z$ q' D$ ^% `. ^% S
then ~% A2 e* W) j/ s- b
@.umlagern(@.standort.nf(3));
. f" h7 a( J$ v0 ]- k8 F7 c else
) M4 c, S3 N' ]: Q if @.standort.nf(2).nf(1).leer9 F; n. z3 a0 n
then8 B$ j1 [$ j1 C# m
@.umlagern(@.standort.nf(2));2 d* h6 D7 C# g( y9 f' ]' X+ U
else8 G6 X8 V! K/ m; k4 R
@.umlagern(@.standort.nf(1));6 i2 _1 T( {$ x `; h
end;- ~$ @0 P! T, P& j/ O6 m% i4 R) [
end;6 L! E2 N: x0 m$ \
else ) d/ _# |1 V: F1 L
if @.standort.nf(2).nf(1).leer7 q. ]0 J, O+ o- A$ x- ~
then' g% x) L0 k9 b
@.umlagern(@.standort.nf(2));
- F1 n$ E, W2 I4 D" f( ~/ _0 }6 n9 ^ else/ x' h* L+ H/ V, z6 c% C6 l' E
if @.standort.nf(3).nf(1).leer& x- @$ _( z5 A* @) q R, s5 T( n
then) m) E1 |. j# U( f8 D4 E4 ^* t( l
@.umlagern(@.standort.nf(3));4 h0 y3 W4 \0 \8 Q/ u, g
else8 z# s& i k' d- [1 ?. A
@.umlagern(@.standort.nf(1)); X, x/ l; b5 w2 F
end;
* y8 y( P9 b' g) s: y) |; _ end;
2 x0 \! i+ V0 K9 b' s2 x6 O end;
. f( y/ t1 L- @/ h1 g" a end;
( A1 F b/ ~; {% i! o end;
1 q& { c. o3 w2 e+ [. @ q0 V9 l) Mif ?.leer* c; k' D! l- h/ a1 a; B
then: B3 g( g! [& Q! p! m* t
blockier_merker := false;
/ K- p! \. C5 Dend;" @3 l% Q/ a/ o& N
end;$ G$ ?$ g6 G/ \ d( |5 p- W
大家帮忙看看上面的程序是怎样实现分配的,好像用了一个遗传算法的。 |