Generate Random Images

Create images by randomly sampling networks that map (x, y) pixel positions to (r, g, b) color values.

Create a net from a chain of layers that maps from pixel coordinates to a higher-dimensional feature space, and then to RGB color space.

In[1]:=

net = NetChain[{30, Tanh, 3, Tanh, 3, LogisticSigmoid}, "Input" -> 2]

Out[1]=

Make a table of randomly initialized copies of the base network.

In[2]:=

nets = Table[ NetInitialize[net, Method -> {"Random", "Weights" -> 3, "Biases" -> 2}], 25];

Use the initialized networks to produce images by applying them to dense arrays of pixel coordinates.

In[3]:=

row = Range[-2, 2, 0.04]; coords = Tuples[row, 2]; plot[net_] := Image[Partition[net[coords], Length[row]]]; Multicolumn@Table[plot[net], {net, nets}]

Out[3]=