> source("http://www.cs.utoronto.ca/~radford/csc120/peak.r")
> persp(1:25,1:25,peak(25),theta=20,phi=20)

> contour(peak(25))