function P4()
% Checks out HaarThreshApprox
% Make sure the image file, e.g., Moon.jpg', is a black and white image with
% power of two dimensions. It should sit in the current working directory.
Y = imread('Moon.jpg');
tau = 0.05; % Play with this.
[Ytilde,CF] = HaarThreshApprox(double(Y),tau);
imshow(uint8(Ytilde))
title(sprintf('tau = %4.2f CF = %4.2f',tau,CF),'fontsize',16)
shg