MATH
21 B
Mathematics Math21b Fall 2010
Linear Algebra and Differential Equations
Exhibit: die Lincoln Matrix
Course Head: Oliver Knill
Office: SciCtr 434


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


Please send questions and comments to math21b@fas.harvard.edu
Math21b (Exam Group 1)| Oliver Knill | Fall 2010 | Department of Mathematics | Faculty of Art and Sciences | Harvard University