is; h7 g: H' w+ T5 V2 l
local links,rechts : integer;9 S0 R) n( E/ m7 F X: G6 n" A
do$ j+ ~& @! e. g* h8 c. L
if @.standort.nf(1).nf(1).voll# n3 v! G' H# {% w% k8 F
and @.standort.nf(2).nf(1).voll
0 Y* l) c8 l* E1 x( l8 L% B and @.standort.nf(3).nf(1).voll
/ a' e2 E; }9 M then
2 Y9 r5 D6 }* I1 s blockier_merker := TRUE;+ o7 @# U3 E7 h" r3 q
else
9 ~# Q: y+ v7 i1 B! C, u8 w if @.standort.nf(1).nf(1).leer
2 P* P0 \- h2 T( N- J5 ]- s then8 h: { ^6 R# G
@.ziel := "ap4_C";
6 ?' X# w# L2 K- a; K: g5 T @.umlagern(@.standort.nf(1));
% a$ h8 ?1 V' a' K4 M' l* D else
4 _; S% H* g9 N* N3 x4 | links := current.standort.stichE.AnzahlBEs + current.standort.stichD.AnzahlBEs ) R9 V# o; _: J% J- K
+ current.standort.zuf_E.AnzahlBEs + current.standort.zuf_D.AnzahlBEs
2 h4 A- u o8 c! M, T + current.standort.ap4_E.AnzahlBEs + current.standort.ap4_D.AnzahlBEs;. h0 [( N; A8 w) {& G% W' I
rechts := current.standort.stichB.AnzahlBEs + current.standort.stichA.AnzahlBEs
' Q! G' ~% `* K( u, _/ ^ + current.standort.zuf_B.AnzahlBEs + current.standort.zuf_A.AnzahlBEs
, N: d7 t' z: v" i- S) Y& k + current.standort.ap4_B.AnzahlBEs + current.standort.ap4_A.AnzahlBEs;
4 \) s- S4 B8 G8 |; q, @ if links > rechts & b' ?5 ^% R0 \. `# {( q, f X
then4 h! F$ D7 [: E( |8 p9 V
if @.standort.nf(3).nf(1).leer. C! Y5 o& v7 I$ |; b& V, m' B
then+ I/ w' o/ g+ b: E) |% t
@.umlagern(@.standort.nf(3));
4 d& [' X$ S" j U" j5 v else! U: Z& S$ M) J1 w; k
if @.standort.nf(2).nf(1).leer* u7 {( s8 k7 \ }
then
' }; u, q+ y" M' F3 o' u @.umlagern(@.standort.nf(2));6 r( f2 j8 ^! G' e* \
else6 e6 c' ]9 X4 E
@.umlagern(@.standort.nf(1));. Y7 l5 |1 e' T9 s
end;
9 l& U3 b7 g, {6 ^( c( X( [ end;
, s6 j4 _4 X2 V4 g# J else 8 g. d, b' i& ]
if @.standort.nf(2).nf(1).leer3 e/ d5 Z8 }- q+ a
then
( e; |/ w- y( V1 D. B @.umlagern(@.standort.nf(2)); ' P0 f, E9 i; }. E: R; F5 [
else X! k( m5 H/ | i% |
if @.standort.nf(3).nf(1).leer
& Y" v+ E& h. ]& T then" A/ }0 q/ d: \- ]
@.umlagern(@.standort.nf(3));. O" L' k' H& K C" `
else4 m6 Y0 {1 I: V \' K! u/ ^
@.umlagern(@.standort.nf(1));9 O% r$ `/ m' e, i; s
end;3 F! o1 t( ?7 ?7 G( X' r
end;0 C, t% D8 a7 w' R/ P, }* }/ j3 P
end;
- W3 ]0 f; _! @. v6 c# H: e+ \8 c t end;
, W8 b% D2 h0 X. K: e' e1 S end;" c% F- O- M% G6 s
if ?.leer
8 w% X" d8 L& I/ o- ~" Y% kthen8 U# ?/ T0 w% U' w
blockier_merker := false;! N2 o" E/ }2 U- k# U5 s- S
end;; ^" w. `6 g2 K9 s6 O( j
end;
5 M& a/ E. C: r4 o3 y9 c A, j大家帮忙看看上面的程序是怎样实现分配的,好像用了一个遗传算法的。 |