is% M k/ G* {0 `3 Y# w3 l
local links,rechts : integer;
* `- b& v& i3 N5 W# u& u4 O qdo) |$ k# N/ L2 K( t
if @.standort.nf(1).nf(1).voll- ^+ v$ S9 S! y2 q/ t8 R# d& \
and @.standort.nf(2).nf(1).voll* i' ]9 ~7 r) ~1 G6 K$ ^" I( n2 @
and @.standort.nf(3).nf(1).voll* O$ O4 K- O' B: y
then b7 i- q- V' b. |
blockier_merker := TRUE;6 g+ b: L, ?2 t, k; Z4 v: l8 N, V, o
else" K8 t7 S% }$ F
if @.standort.nf(1).nf(1).leer7 F2 K, n, A- y3 C
then
( s1 O0 k$ N8 ?. w. ]" [ @.ziel := "ap4_C";
4 K2 [# v, W2 i7 r1 `7 D @.umlagern(@.standort.nf(1));
8 o2 \ K7 s' G$ k) G9 Z3 u else
/ E' G4 i( c. S A links := current.standort.stichE.AnzahlBEs + current.standort.stichD.AnzahlBEs $ m7 Z( k( p1 |9 A
+ current.standort.zuf_E.AnzahlBEs + current.standort.zuf_D.AnzahlBEs
3 C) y/ B0 \9 d- `& V( M + current.standort.ap4_E.AnzahlBEs + current.standort.ap4_D.AnzahlBEs;/ t K! u' j" N$ w4 g4 r/ k
rechts := current.standort.stichB.AnzahlBEs + current.standort.stichA.AnzahlBEs
- K1 r B# I( e; R" l- `) n+ P8 w7 F + current.standort.zuf_B.AnzahlBEs + current.standort.zuf_A.AnzahlBEs 8 @8 d2 A$ t, B& Q/ ]
+ current.standort.ap4_B.AnzahlBEs + current.standort.ap4_A.AnzahlBEs;- ^9 n3 |% s) D. v
if links > rechts
' F* N' X! V" o) P# N9 q% f then
, o% R+ R2 K5 T! s) Q if @.standort.nf(3).nf(1).leer+ S/ e3 N- X" V N6 l! c; t
then2 [" B& E+ {4 p+ b
@.umlagern(@.standort.nf(3)); 2 B! |: J8 d- t) g9 J$ h
else
3 j- o& G# Y% r* i% |0 W: \+ H/ H* ~ if @.standort.nf(2).nf(1).leer0 ~# A: Y7 E; s" @ K9 }6 a
then
+ U" m* \0 N7 R/ m) W2 I- c @.umlagern(@.standort.nf(2));
6 V2 O* e! J- b else
W! ?: ~5 G! n4 | @.umlagern(@.standort.nf(1));4 G1 @9 |' k3 z* X
end;5 n2 z [ E+ @( L8 B
end;
$ e# H7 e$ c, z5 d else ' @) h. E3 g/ n" t) m
if @.standort.nf(2).nf(1).leer
" V" n. E& |/ p% P; s1 ]+ l then
6 o b2 f. ?, u% j1 b @.umlagern(@.standort.nf(2)); $ U! j0 }2 ~) u" K5 ` l7 O
else% C$ m$ \: t0 L4 \
if @.standort.nf(3).nf(1).leer r u! O9 \9 P& `" L
then0 e, R) p& y1 `; P* e5 P
@.umlagern(@.standort.nf(3)); }8 [/ U3 ?' n8 z8 {. n" ~
else# k/ f4 c% r" ]+ s1 o2 I
@.umlagern(@.standort.nf(1));5 u: c: \+ T. \' }
end;
2 h6 A$ i3 j3 d' n end;
6 ~6 h5 X$ h& S5 y. W/ J/ p R end; ; _; J( w( R: z- }3 ?# ^) R; r
end;( h0 _9 a3 t! |2 ]
end;
5 K2 L, U/ }& o( o- R- I$ P+ B+ R3 ]if ?.leer+ X$ y+ Z! W) A
then
2 @$ r; U- h! I5 t+ y3 B$ q blockier_merker := false;3 p' }/ K& T9 z! s5 r8 J) l% _9 m/ D
end;* `" T5 b( r5 p4 f8 y/ M
end;
- |2 t* P, }. L0 z5 f大家帮忙看看上面的程序是怎样实现分配的,好像用了一个遗传算法的。 |