%Brad Nelson
%2/17/12
%math 126 hw 6
%helmholtz kernel visualization

m=200; %number of nodes

k=0; %wavenumber

[ker, z, dzdx, w, n]=hlker(m,k);% %for visualizing kernel
figure;
imagesc(real(ker));
colorbar
print -depsc 1a0.eps;

k=1; %wavenumber

[ker, z, dzdx, w, n]=hlker(m,k);% %for visualizing kernel
figure;
imagesc(real(ker));
colorbar
print -depsc 1a1.eps;

k=2; %wavenumber

[ker, z, dzdx, w, n]=hlker(m,k);% %for visualizing kernel
figure;
imagesc(real(ker));
colorbar
print -depsc 1a2.eps;

k=3; %wavenumber

[ker, z, dzdx, w, n]=hlker(m,k);% %for visualizing kernel
figure;
imagesc(real(ker));
colorbar
print -depsc 1a3.eps;

k=4; %wavenumber

[ker, z, dzdx, w, n]=hlker(m,k);% %for visualizing kernel
figure;
imagesc(real(ker));
colorbar
print -depsc 1a4.eps;

k=5; %wavenumber

[ker, z, dzdx, w, n]=hlker(m,k);% %for visualizing kernel
figure;
imagesc(real(ker));
colorbar
print -depsc 1a5.eps;

k=6; %wavenumber

[ker, z, dzdx, w, n]=hlker(m,k);% %for visualizing kernel
figure;
imagesc(real(ker));
colorbar
print -depsc 1a6.eps;


