Optical Imaging and Spectroscopy

David J. Brady
Duke University
www.opticalimaging.org

<<Version5`Graphics`

rect[x_]=(1+Sign[0.5-Abs[x]])/2;
triag[x_]=rect[x/2]*(1-Abs[x]);

Plot[triag[x],{x,-3,3}]

h[tx_,ty_]=triag[tx]*triag[ty];

figure 2.27

Plot3D[h[tx,ty],{tx,-1.5,1.5},{ty,-1.5,1.5},PlotRange->All,PlotPoints->50,ColorOutput->GrayLevel,AxesLabel->{Δθ,Δλ,None },MeshStyle->Gray]