.NTE3MA.MjYzMzEy

CORXE ASCI X SXZE 10(200),J0<200),M(200) SIMULATION DE POLYGONES DE V0R0N0I (F 1 JUMP 50 5 1-0 6 ML 1, (BY, BZ) (BZ, TR) (AR, J) 7 ïb ( I. EG-î. J) .10, 8 e ï»j 9 JUMP 6 10 EXII 50 SFLD (220,240)(1,1) 5A MOL (SV,SO>(BX, BY, DR, BZ) 52 VISU (BX, BY, BZ ) m TYPE N NB lift F'OLYGONFS A SIMULER 55 IF (N. GT. 200)54, 60 60 FOR L= 1, N, 1. 61 I«220*RD(1)+l 62 J=240*RD (A ) +1 63 I0(L)—I 64 JO ( L ) — J 65 M ( L ) = 1 66 WF'EN ( BY ) ( 1, 1 ) ( I, J ) 67 NEXT L 69 N0= 1 80 FOR L~ 1 , N, 1 87 IF ( M (l. ). FQ. 0)101, 84 84 I=IO(L) 85 J=.JO(L) 86 NOL (SV,SO)(BZ) 87 WF'EM ( BZ ) ( 1, 1 ) ( I, J ) 90 CALL 5 9? IF (I. EQ. M(L) )93, 96 93 1=0 94 NO=NO+1 95 IF (NO. FQ. N)500, 96 96 M(L)=X 97 COV O, (BY;BZ,CO)(BY, TR) 901 DIL. 1, (BX, BY, UN) (BR, TR, CO) 99 COV 0, (BZ, BX, UN; BX, BR, UN) (BX, TR) 101 NFXT L . 103 NOL (BXHBY, TR) 106 NOL (SV,SC)(BX) i oc jurip so âf»"