.NTE3MA.MjYzMzE2 : Différence entre versions

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

- 17 - 1 NUS!' 0 SUPPRESSION DES POLYGONES DE VORONOI BIAISES SI"!..fi (220,240X1,1) 5 TYPE L. ? N=L+10 9 l.ODR -m 10 NOL (BRXBZ) 15 NOL (SV, SC) (BY, BX ) 17 VISU (BX,BY,BZ) 20 LDC 1, (BZ; 0, 101010, * ) (BX, BY, TR) 22 LDC 1, (BZ; 0, 00 , •*> (BX, BR, TR) 23 NOL (BX, BY,UN)(BY, BX) 30 t.ÛDR *L 31 NOL (BR)(BX) 32 NOL < BZ)(BR) 36 STOP 40 FPO ( BY ) ( BZ, TR ) ( AR, K ) 41 IF (K. EQ. 0)500, 42 42 ,10=1 44 J=7 46 DIL 1, (BZ)(BZ, TR>(AR, K) 4fJ XF (K. EQ. ,1)50, 200 30 NUI (BZ, BX) (TR) (AR, ï ) 32 IF (I. EQ. 0)34, 100 130 1=0 154 DU... 1, (BZ, BR) (BZ, TR) (AR, J) 134, 3!F < I. EQ. J) 162, 130 138 :i:=J 160 JUMP 134 162 COV O, (BR; BZ, CO)(BZ,TR) 164 NOL (BZ >(BR) 166 EXIT 54 JO=JCHJ 56 K=6*d0 58 J=J+I< 60 JUMP 46 100 FPO (BYHBZ) 102 COV 0, (BY;BZ, CO)(BY,TR)(AR,M) 104 IF (M. EQ. 0)300, 40 200 FPO (BY)(BZ) 207 DIL 1, (BZ)(BZ, TR) 204 CALL 150 2:10 FPO (BY) (BZ ) 212 DIL 1, (BZ)(BZ, TR) 214 JUMP 102 300 NOL <3V,SC,UN)(BZ) 507 ERO 1, (BZ)(BZ, CO, TR) 304 CALL 150 510 STOP 312 N=N+10 3i4 SAVR *N