is
O( k' O' u$ ^+ olocal links,rechts : integer;
7 v" v8 K4 c7 l& p& ?2 E4 ~do
W; K q" Q/ |7 I if @.standort.nf(1).nf(1).voll4 ^$ Y5 r2 c( x6 B( O0 b
and @.standort.nf(2).nf(1).voll+ @2 W# ^% o5 g& E8 A
and @.standort.nf(3).nf(1).voll9 [4 P7 |+ F& d' W* J
then4 r, g( G" }, V3 |% C/ [
blockier_merker := TRUE;) c, g; U2 u9 z8 h2 `, C. q/ P
else O% J9 u7 P( ~/ x. I* S2 R; X5 `
if @.standort.nf(1).nf(1).leer
6 I: Q O+ l" Z" {% k then
}. j m. M/ X8 i @.ziel := "ap4_C";
9 x6 G0 `" }+ i% q8 O- J @.umlagern(@.standort.nf(1));
7 M8 b# f& u7 Y) L! M( A* n else) k2 r, Z& z0 q: N6 A% ]0 A
links := current.standort.stichE.AnzahlBEs + current.standort.stichD.AnzahlBEs
; M) e1 P- C! d- | + current.standort.zuf_E.AnzahlBEs + current.standort.zuf_D.AnzahlBEs 6 s1 k" G0 c: E1 X' N7 ?* a3 W, ^, G& u
+ current.standort.ap4_E.AnzahlBEs + current.standort.ap4_D.AnzahlBEs;
5 z. l) O, R( g rechts := current.standort.stichB.AnzahlBEs + current.standort.stichA.AnzahlBEs
) m9 Z$ Q5 t6 w5 a+ |; O + current.standort.zuf_B.AnzahlBEs + current.standort.zuf_A.AnzahlBEs
5 q8 n9 Q6 g4 Q; A& L: L7 G + current.standort.ap4_B.AnzahlBEs + current.standort.ap4_A.AnzahlBEs;- E: W& t8 v* c9 Y
if links > rechts , W1 f2 b& m# U% ^) m
then: Z% \6 f+ |* Y T9 ^0 l
if @.standort.nf(3).nf(1).leer1 H, a( J/ X/ K3 |! ?
then
9 r8 y! } \6 _ @.umlagern(@.standort.nf(3)); 5 s% i# |+ e! E: D2 ]3 H3 [
else& O( M1 w& L( v/ y4 k
if @.standort.nf(2).nf(1).leer5 v. s' u. p1 \( X
then* Z! H" x1 h4 ~% \
@.umlagern(@.standort.nf(2));
9 F: z- ?2 [+ p- p- S9 D) f7 i" Q else
! @$ O/ U" b5 w @.umlagern(@.standort.nf(1));
( G j9 W" p! O end;
+ q( M9 Q% y: s$ a/ P4 i end;
* a8 Z0 g0 X3 L8 @" n else ' v1 x2 h7 b) y
if @.standort.nf(2).nf(1).leer
: }1 R H1 `) Z6 \4 E# q$ T4 a6 n then
- Y I% X9 V% y' S* p* q @.umlagern(@.standort.nf(2)); 9 o6 b0 k# Y% B3 o
else8 `* x% F4 R: I8 L- R
if @.standort.nf(3).nf(1).leer
9 d- s: P4 A- w ` z9 X then) J' t: ]* k6 }# t. |- t% k- S
@.umlagern(@.standort.nf(3));
& F# M' p' W7 m else- \5 q$ m0 @, l& A5 M8 F
@.umlagern(@.standort.nf(1));; y( |% s: B% \8 e
end;
/ b( H, ]+ d! @. `5 h/ q' u end;- V& w6 @* ?/ z3 h Z' q& l
end;
W. G* G7 H! S& e/ D- M1 j end;
6 Y Y- _ l1 } l% W7 K U; T' w8 F end;3 F1 a5 H) m' D" ~
if ?.leer2 d3 k+ g2 r: m4 f" H8 s
then
% R; u$ S/ \- `4 F/ \" `, E4 D blockier_merker := false;7 R2 t. k8 U& R3 I. d
end;6 l6 N# s$ C. l% ?- a
end;
9 W1 n5 t( B3 N大家帮忙看看上面的程序是怎样实现分配的,好像用了一个遗传算法的。 |