In[]:=
Row[Flatten[Table[SeedRandom[4242];(RandomImage[CategoricalDistribution[{0,1},{.1,.99}],28]First[#])->Text[Last[#]]&/@RandomSample[Cases[ResourceData["MNIST"],x:(_->digit)->x],5],{digit,{0,1}}]],Spacer[5]]
Out[]=
0
0
0
0
0
1
1
1
1
1
In[]:=
Row[Flatten[Table[SeedRandom[4242];(RandomImage[CategoricalDistribution[{0,1},{.05,.99}],28]First[#])->Text[Last[#]]&/@RandomSample[Cases[ResourceData["MNIST"],x:(_->digit)->x],5],{digit,{0,1}}]],Spacer[5]]
Out[]=
0
0
0
0
0
1
1
1
1
1
In[]:=
NetModel["LeNet Trained on MNIST Data"][First[#]]&/@First[%]
Out[]=
{0,0,0,0,0,1,1,1,1,1}
ImageApply
In[]:=
RandomImage[CategoricalDistribution[{0,1},{.01,.99}],32]
Out[]=
NetModel["LeNet Trained on MNIST Data"]
In[]:=
ImageDimensions
Out[]=
{28,28}
In[]:=
With[{init1=(SeedRandom[3424];RandomInteger[1,100])},ArrayPlot[CellularAutomaton[164,#,30]]&/@{init1,MapAt[1-#&,init1,{{56}}],RandomInteger[1,100]}]
Out[]=
,
,
In[]:=
SeedRandom[34535];ArrayPlot[CellularAutomaton[164,RandomInteger[1,100],30]]
Out[]=
In[]:=
GraphicsGrid[Table[ArrayPlot[CellularAutomaton[<|"Dimension"->2,"TotalisticCode"->10210,"Neighborhood"->5,"Colors"->3|>,BlockRandom[SeedRandom[seed];RandomInteger[1,{40,40}]],{{{#}}}]]&/@Prepend[Range[1,11,2],0],{seed,{63453,5353}}]]
Out[]=
NetGraph
In[]:=
ImageAssemble[Import["catplane-1024.wxf"]]
Out[]=
In[]:=
ImageAssemble[Import["catplane-1027.wxf"]]
Out[]=
Contents cannot be rendered at this time; please try again later