'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 (x!)
OPEN "rnd2.gfu" FOR OUTPUT AS #1
p = ATN(1) * 4: x = 1 / 2
npunti = 1000
PRINT #1, npunti * 2
FOR i = 1 TO npunti
RAND x: u = x: RAND x: v = x
PRINT #1, "s,", 14
PRINT #1, u * 5; ","; v * 5
NEXT
CLOSE

SUB RAND (x) STATIC: SHARED p
x = (x + p) ^ 5: x = x - INT(x)
END SUB