Pseudorandom number generator image: Difference between revisions

===6502js/easy6502===

The "hardware" gives us a memory-mapped port at address $00FE which contains a different random number every clock cycle. We can use this to write to video memory (there are only 16 colors so the top 4 bits of the random value are ignored.)

define vramPtrHi $01

main:

bne loop

 

Output can be seen by copying/pasting the above code [https://skilldrick.github.io/easy6502/ here.]

{{libheader| vcl.Graphics}}

{{libheader| Vcl.Imaging.PngImage}}

program Pseudorandom_number_generator_image;

 

bmp.Free;

 

{{out}}

[https://ibb.co/d6hwX1Y randbitmap-rdo.png].

Factor's default PRNG is Mersenne Twister, but it can be easily swapped out for others like Drand, Xoroshiro, Blum Blum Shub, lagged Fibonnaci, system RNGs, and more.

{{works with|Factor|0.99 2021-02-05}}

random sequences ;

 

${ size size } >>dim

size sq 3 * [ 256 random ] B{ } replicate-as >>bitmap

 

=={{header|Forth}}==

{{works with|gforth|0.7.3}}

Uses gforth random generator to create PBM portable pixmap image file.

: prngimage

outfile-id >r

r> to outfile-id ;

 

 

 

=={{header|FreeBASIC}}==

Dim As Integer w = 500, h = w, x, y

Screenres w, h, 16

Next x

 

[https://www.dropbox.com/s/xsj4y5rnwlid6r4/Pseudo-Random-Algorithm.bmp?dl=0 image500.png] (sample image, offsite)

 

 

The image is saved to a .png file which can then be viewed with a utility such as EOG.

 

import (

log.Fatal(err)

}

 

=={{header|Java}}==

Following implementation generates images from java.util.Random(uses linear congruential generator [https://en.wikipedia.org/wiki/Linear_congruential_generator].) and Blum Blum Shub Algorithm with least significant bit method and even bit parity method[https://en.wikipedia.org/wiki/Blum_Blum_Shub].

import javax.imageio.ImageIO;

import java.awt.*;

}

}

 

=={{header|Julia}}==

over 600 32-bit ints to represent its internal state, rather than just a product of

two or three primes.

 

save("randombw.png", rand(Float16, 1000, 1000))

 

=={{header|Lua}}==

Lua uses the <code>xoroshiro256**</code> algorithm.

math.randomseed(os.time())

 

end

 

 

 

Nim standard PRNG is an implementation of the <code>xoroshiro128+</code> (xor/rotate/shift/rotate) algorithm which is extremely fast. The standard library provides a Mersenne Twister implementation too. For this task, we used the first one.

 

import imageman

 

image[x, y] = color

 

 

=={{header|Perl}}==

Perl unified the PRNG with [https://github.com/Perl/perl5/blob/11ab6d3b461cdc8944e706656209dd2a34f2f01d/util.c#L5793 its own internal drand48() implementation ] on all platforms since [https://perldoc.perl.org/5.20.0/perldelta.html#rand-now-uses-a-consistent-random-number-generator v5.20.0]. Without a manual srand, Perl by default source the seed from [https://github.com/Perl/perl5/blob/11ab6d3b461cdc8944e706656209dd2a34f2f01d/util.c#L4709 "/dev/urandom" ] if it is available so there shouldn't be any prime prerequisite.

use warnings;

use GD;

 

open F, "image500.png";

[https://github.com/SqrtNegInf/Rosettacode-Perl5-Smoke/blob/master/ref/PNG-image500.png image500.png] (sample image, offsite)

 

=={{header|Phix}}==

{{libheader|Phix/pGUI}}

<span style="color: #000080;font-style:italic;">-- demo\rosetta\Pseudorandom_number_generator_image.exw</span>

<span style="color: #008080;">without</span> <span style="color: #008080;">js</span> <span style="color: #000080;font-style:italic;">-- IupSaveImage(), not possible from within a browser (though a "save" button might be?)</span>

<span style="color: #004080;">object</span> <span style="color: #000000;">res</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">IupSaveImage</span><span style="color: #0000FF;">(</span><span style="color: #000000;">image</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"bw.png"</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"PNG"</span><span style="color: #0000FF;">)</span>

<span style="color: #7060A8;">IupClose</span><span style="color: #0000FF;">()</span>

 

=={{header|PicoLisp}}==

(out "image.pbm"

(prinl "P1")

(do 500

(prin (if (rand T) 1 0)) )

 

=={{header|Raku}}==

MoarVM [https://github.com/MoarVM/MoarVM/blob/master/3rdparty/tinymt/tinymt64.c uses Mersenne Twister] as its PRNG but a prime seeder is not mandatory.

 

use Image::PNG::Portable;

}

$o.write: "image$_.png" or die;

{{out}}

<pre>file image*.png

=={{header|Sidef}}==

{{trans|Perl}}

 

var img = %O<GD::Image>.new(500, 500, 1)

}

 

 

=={{header|Wren}}==

{{libheader|DOME}}

Wren's 'random' module uses the '[https://en.wikipedia.org/wiki/Well_equidistributed_long-period_linear Well equidistributed long-period linear]' (WELL512a) PRNG which doesn't need to be seeded with a prime number. It is in fact seeded from a sequence of 16 numbers but, if less are provided, the others are generated automatically. Typically (as here) the seed is generated from the current time.

import "graphics" for Canvas, Color

import "random" for Random

 

static draw(dt) {}

 

=={{header|XPL0}}==

The PRNG is linear congruential and is built-in. It's seeded with the time-of-day.

[SetVid($11B); \VESA 1280x1024x24

for Y:= 0 to 1000-1 do

for X:= 0 to 1000-1 do

Point(X, Y, Ran($100_0000));

 

{{out}}