% Adds vertical blur to image I
% using the E from makeE.m.
% I must be defined in the workspace.

[m,n] = size(I);

J = E*I(:);
J = reshape(J,m,n);

figure('Units', 'Normalized', 'Position', [.55, .2, .4, .6])

subplot(2,1,1)
imagesc(I)
colormap(gray)
axis image
colorbar
title('Original Image I')

subplot(2,1,2)
imagesc(J)
colormap(gray)
axis image
colorbar
title('E-Blurred Image J')

clear m n