lvvrGErtENm - NotatWiki

måde. Vi må prøve atforbinde dem med >h6vedlandmasserne(.
Hertil kræves e t noget mere indviklet program, som du får her:
' lO LO=l : GA=l
15 DrF{ VlF(4) rL(100r4) rG(100r5)
20 FOR I=l TO loo:FoR J=l To 4:L(IrJ)=INT(RND(l)*2):
NEXT J:NEXT I
30 FOR I=1 TO tO: L ( I, I ) =O: NEXT I
40 FOR I=91 TO IOO:L(I'2)=O:NEXT I
50 FOR I=tO To loo STEP lO:L(I'3)=O:I'IEXT I
60 FoR I=1 To 9r STEP 10:L(I,4)=O:NEXT I
70 FoR I=l To too
BO IF I(11 THEN IOO
90 IF L(f,1)=O THEN L(I-1Or2)=O
1OO IF L(Ir1)(>O THEN L(I'1)=I-lO
IIO IF I}9O THEN 13O
12O IF L(Ir2)=O THEN L(I+1O, l)=O
t30 IF L(Ir2rO THEN L(Ir2)=I-+10
14o IF f=loo THEN 160
l5O IF L(I,3)=O THEN L(I+lr4)=O
160 IF L(I,3)O THEN L(I'3)=I+1
L7O TF I=r THEN 19O
IAO IF L(I,4)=O THEN L(I-1r3)=O
l9O IF L(I,4)O THEII L(I,4)=I-l
2OO NEXT I
21O FOR I=1 TO 1OO
?2O lF I>49 AND L(Ir1)=O AND L(I,2)=O AND L(I'S)=O
AND L(fr4)=O THEN 260
250 GOTO 270
260 L (I, l)=I-1O:L(I-1Or2r=l? GOTO 3OO
27O lF L(I,l)=O AND L(Ir2)=O AND L(I,3)=O AND
L(Ir4)=O THEN 29O
2SO GOTO 300
' 29O L(I12)=I+10:L(I+lorl)=I
I
i 196