.NTE3MA.MjYzMzA5 : Différence entre versions

Version actuelle en date du 23 avril 2021 à 15:12

- 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