Percolation/Mean cluster density: Difference between revisions

Content added Content deleted
(Added 11l)
Line 27: Line 27:
<lang 11l>UInt32 seed = 0
<lang 11l>UInt32 seed = 0
F nonrandom()
F nonrandom()
:seed = (1664525 * :seed + 1013904223) [&] FFFF'FFFF
:seed = 1664525 * :seed + 1013904223
R (:seed >> 16) / Float(FF'FF)
R (:seed >> 16) / Float(FF'FF)