is
. \+ K& T6 M- M1 v7 U# Blocal links,rechts : integer;
' F: I! l2 r2 s. Jdo! `5 g8 N7 x8 T- [
if @.standort.nf(1).nf(1).voll* r; [9 _! F. f' M- L4 A
and @.standort.nf(2).nf(1).voll
9 g3 }" z( C' w/ K) \ and @.standort.nf(3).nf(1).voll
7 g! n, x6 E2 S* v+ c5 m' C4 ` then% k4 |+ I" L8 C1 K" ]4 }" b
blockier_merker := TRUE;. O' D7 ^! I- K
else
% C8 p! N7 Z! b8 }$ h/ x! I if @.standort.nf(1).nf(1).leer
2 P" h) y1 i& P7 x3 w+ m then" g/ D8 s* J# A+ l \0 d% v% C* {
@.ziel := "ap4_C";& i, A: D8 u$ X* {
@.umlagern(@.standort.nf(1));, X, R1 E$ f0 }% ]! z( Y; [
else9 g% w; o! x9 x) J6 z
links := current.standort.stichE.AnzahlBEs + current.standort.stichD.AnzahlBEs
. Y9 _0 S9 _& E + current.standort.zuf_E.AnzahlBEs + current.standort.zuf_D.AnzahlBEs
& t6 W4 v/ f! A5 {: H9 C + current.standort.ap4_E.AnzahlBEs + current.standort.ap4_D.AnzahlBEs;- k7 t$ n4 U0 Z6 I9 O, `8 h
rechts := current.standort.stichB.AnzahlBEs + current.standort.stichA.AnzahlBEs ; D# s! ]# c3 L2 E1 m% @4 ~
+ current.standort.zuf_B.AnzahlBEs + current.standort.zuf_A.AnzahlBEs
$ }. Y$ j* D1 w/ Z2 d6 g + current.standort.ap4_B.AnzahlBEs + current.standort.ap4_A.AnzahlBEs;% O& _- |! o3 r. P% ^
if links > rechts
) V% [, s: o4 ]( p/ {* K1 W9 O then" |9 @) j9 c1 C: `! l0 v
if @.standort.nf(3).nf(1).leer
& \+ k9 G/ e7 d7 \ then* y) P0 H1 U2 f
@.umlagern(@.standort.nf(3));
& Q" Y0 u# K; d/ D4 }6 k9 t else3 x4 N. Q% @9 D* A/ R) A
if @.standort.nf(2).nf(1).leer
8 H) @9 D9 U* k ~ n2 V% P then
8 k3 M, P; A( v$ Q @.umlagern(@.standort.nf(2));
3 F7 _3 T5 n9 K# {, g& L else) e9 W' o# `, S% K. U7 e
@.umlagern(@.standort.nf(1));2 B' r: z9 N+ F
end;6 e' E" ?/ P% R
end;
7 a2 y% Y% X0 h: K/ q q( ` else
: ?5 P% y T' e if @.standort.nf(2).nf(1).leer
$ Q/ Q4 X6 g. x/ t& U1 ?+ v then
5 g0 |8 G6 Q9 G" } U: n/ p7 M @.umlagern(@.standort.nf(2));
% Z3 t3 ?# y# x$ Q else* k! y6 e8 c/ y+ Q/ b0 x; m
if @.standort.nf(3).nf(1).leer
3 t/ x2 _$ e' F: b9 ]0 g- a then
) y0 z6 {! U2 r, C, m @.umlagern(@.standort.nf(3));- ~& }4 j7 Y+ j
else$ o1 M+ P8 Z6 e9 ]! D
@.umlagern(@.standort.nf(1));* K. ~1 P/ x. U7 H; ~0 G' H
end;) {( V) M0 T" ` q1 g
end;& Y, X. e6 v3 p1 W
end; - s9 U" J) p7 {# C$ z
end;# M/ D [! X; n. E; f
end;. }, O: p2 b3 g2 F* S% M9 o$ y7 u5 x
if ?.leer
`: F; G9 |4 zthen
' C0 |( Z' G# {7 r! F# c blockier_merker := false;3 K9 _$ F y5 \) Q4 ~) o/ ], I
end;, P2 q& l7 H m+ l, n
end;
/ _4 c8 V$ o" k: J' q* e大家帮忙看看上面的程序是怎样实现分配的,好像用了一个遗传算法的。 |