M A T H 2 1 B
Mathematics Math21b Fall 2010
Linear Algebra and Differential Equations
Exhibit: die Lincoln Matrix
 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