The following 25 x 25 matrix encodes a well known person.
8 8 8 8 8 8 8 8 8 8 8 8 8 1 1 8 8 8 8 8 8 8 8 8 8
8 8 8 8 8 8 8 8 1 1 1 1 1 1 1 1 1 8 8 8 8 8 8 8 8
8 8 8 8 8 8 8 1 1 1 1 1 1 1 1 1 1 8 8 8 8 8 8 8 8
8 8 8 8 8 8 1 1 1 1 1 1 1 1 1 1 1 1 1 1 8 8 8 8 8
8 8 8 8 8 8 1 1 1 1 1 1 1 1 1 8 8 1 1 1 1 8 8 8 8
8 8 8 8 8 1 1 1 8 8 8 8 8 8 8 8 8 1 1 1 1 8 8 8 8
8 8 8 8 8 1 1 8 8 8 8 8 8 8 8 8 8 8 1 1 1 8 8 8 8
8 8 8 8 8 1 1 8 8 8 8 8 8 8 8 8 8 8 1 1 1 8 8 8 8
8 8 8 8 8 1 8 8 8 8 8 8 8 8 8 8 8 8 1 1 1 8 8 8 8
8 8 8 8 8 1 1 8 8 8 8 8 8 8 8 8 8 1 1 1 1 8 8 8 8
8 8 8 8 8 1 1 8 1 1 1 1 8 8 1 1 1 1 1 1 1 8 8 8 8
8 8 8 8 8 1 1 8 1 1 1 1 8 1 1 1 1 1 1 1 1 1 8 8 8
8 8 8 8 8 8 1 8 8 1 1 8 8 1 1 1 1 1 1 1 1 8 8 8 8
8 8 8 8 8 8 1 8 8 8 8 8 8 8 1 8 8 8 1 1 1 8 8 8 8
8 8 8 8 8 8 1 8 8 8 8 8 8 8 1 8 8 1 1 1 8 8 8 8 8
8 8 8 8 8 8 8 1 8 8 8 8 8 1 1 8 1 1 1 1 8 8 8 8 8
8 8 8 8 8 8 8 1 1 8 8 8 1 1 1 1 1 1 1 8 8 8 8 8 8
8 8 8 8 8 8 8 1 1 8 8 8 8 1 1 1 1 1 1 8 8 8 8 8 8
8 8 8 8 8 8 8 1 1 1 8 8 1 1 1 1 1 1 1 8 8 8 8 8 8
8 8 8 8 8 8 8 8 1 1 1 1 1 1 1 1 1 1 1 8 8 8 8 8 8
8 8 8 8 8 8 8 8 1 1 1 1 1 1 1 1 1 1 8 8 8 8 8 8 8
8 8 8 8 8 8 8 8 1 1 1 1 1 1 1 1 1 1 8 8 8 8 8 8 8
8 8 8 8 8 8 8 8 8 1 1 1 1 1 1 1 8 8 1 8 8 8 8 8 8
8 8 8 8 8 8 8 1 8 1 1 1 1 1 8 8 8 1 1 1 8 8 8 8 8
8 8 8 8 8 8 8 1 8 8 8 8 8 8 1 1 8 1 1 1 1 8 8 8 8
Here is the Mathematica code which generated the matrix:
A=Import["lincolnmatrix.gif"];
B=A[[1]]; n=Length[B]; m=Length[B[[1]]];
U=Table[ B[[i,j,1]]+B[[i,j,2]]+B[[i,j,3]],{i,n},{j,m}];
f[x_]:=If[x<200,1,If[x<400,1,8]];
V=Table[f[U[[n-i+1,j]]],{i,n},{j,m}];
S=ListDensityPlot[V,Axes->False,Frame->False]
and here is the source
|
