'spruzzata con candidato generatore numeri casuali
'apri con Poligon e stabilisci se vi sono punti sovrapposti
'(puoi capirlo stimando i punti stampati o provando a variare NPUNTI)
' Vedi Prop. Stat. scheda 8
DECLARE SUB RAND (r!)
OPEN "rnd1.gfu" FOR OUTPUT AS #1
DEFLNG A, M, X
a = 259: m = 65536: x = 725
npunti = 2000
PRINT #1, npunti * 2
FOR i = 1 TO npunti
RAND u: RAND v
PRINT #1, "s,", 14
PRINT #1, u * 5; ","; v * 5
NEXT
CLOSE



SUB RAND (r) STATIC: SHARED a, m, x
x = a * x MOD m
r = x / m
END SUB