.NTE3MA.MjYzMzA5

- 10 - COF" X EE ASC X X 1 JUMP 50 S X MUS .AT ION DE POLYGONES DE VORONOI <P2) 5 1^0 6 DïL 1, <BY, BZ. ) (BZ, TR) (AR, J) 7 ( I. EQ. J) 1 0, S 8 Ï=j 9 JIJMP 6 1 I? "EXIT 50 SFLD (220,240)<1, 1) 51 MOL CSV, SO (BX, BY, BZ, BR) 52 VISU ( BY, BZ, BX~) 51 TYPE N NB DE POLYGONES A SIMULER 55 IF (N. LE. O)500/ 60 60 FOR L=i , N/ 3 61 T«220*RD(3L> + 1 62 J=240*RD(1)+l 63 WF'EN < BY ) ( 1, 1 > < I, J ) 64 NEXT L 67 K=0 70 VISU (BY) 7 3 ERG 1, (BY,00)(BX, TR) 72 I..DC 1, ( BYi 0, 100000, * ) ( BZ, BR, TR ) 73 NUL (BZ,BX, UN)(BX,TR) 74 t..DC 1, (BYi 0, 100100, *> (BZ, BR, TR) 75 MOL (BR,BX,UN)(BX# BZ,TR) 76 niL 2, (BX) (BX, TR ) 77 COV 0, (BX, BYi BZ, CO) (BZ, TR) 78 CALL 5 79 NOL (BY,BZ)(BR, TR) 80 MOL (SV,SC)(BZ) 83 VISU (BY,BZ) 82 FPO (BR)(BZ) . 83 CAL.L 5 85 COV 07 (BYi BZ, CO) (BY, TR) 37 tU! 1, (BY) (BX, TR, CO) 89 COV 0, (BY, BZ, UNi BX, BY, UN) (BY, TR) (AR, M) 91 COV 0, (BR; BZ , CO ) < BX, TR ) 93 NO!.. ( BX ) ( BR, TR ) ( AR, L ) 95 TF- CL. EQ 0) 100, 82 100 IF (M. EQ. K)500, 102 102 K=M 3 04 JIJMP 70