.NTE3MA.MjYzMzA2 : Différence entre versions
De Transcription | Bibliothèque patrimoniale numérique Mines ParisTech
(Page créée avec « - 7 - OOP X FE «z: I I 1 JUMP 50 SIMULATION DE POLYGONES DE VORONOI (Pi) 5 |-0 4 fOL 1, (BY, E7) (BZ, TR) (AR, J) 7 ïF ( I. EQ. J) 10, S f t=J 9 JUMP 6 10 EX ÏT 50 SFL... ») |
(Aucune différence)
|
Version actuelle en date du 23 avril 2021 à 16:13
- 7 - OOP X FE «z: I I 1 JUMP 50 SIMULATION DE POLYGONES DE VORONOI (Pi) 5 |-0 4 fOL 1, (BY, E7) (BZ, TR) (AR, J) 7 ïF ( I. EQ. J) 10, S f t=J 9 JUMP 6 10 EX ÏT 50 SFLD (220,210)(1,1) 51 NOL (SV,SC)(BX, BY, BZ, BR) 52 VISU (BY,BZ,BX) 54 TYPE N NB DE POLYGONES A SIMULER 55 ÏF (N. LE 0)500, 60 60 FOR L-l,N,1 61 ï=220*Rr.»< 1 > +1 62 .J—240-fi RD U > +1 63 WPEN (BY)(1, 1)(I, J) 64 NF.XT L 66 NOL (BY)(TR)(NC, N) 67 NOL (BY)(TR)(AR, K) 70 FOR L=l, N, -i 71 FPO (BY)(BZ) 72 CALL 5 74 COV 0, (BY; BZ, CO) (DY, TR) 76 DIL 1, (BY, BX, UN) (BR, TR, CO) 73 COV 0, (BZ, BX, UN; BX, DR, UN) (BX, TR) S2 NFXT L. 05 NOL < BX ) ( BY, TR ) ( AR, M ) 86 NOL (SV,SC)(BX) 87 IF (M. EQ. K)500, 90 90 K=M 91 ..JUMP 70
