function PlotWaveCoeff(wc)

L=2;
wc=wc/max(abs(wc));
figure;
plot(-.1,-L+.1);
plot(-.1,-7.1);
hold on;
for k=1:2^L
    x=(k-1)*2^(-L);
    plot([x x],[-L,-L+wc(k)]);
    hold on;
end

for i=L+1:7
   for k=1:2^i
      x=(2*k-1)*2^(-(i+1));
      plot([x x],[-i,-i+wc(2^i+k)]);
      hold on;
   end
end

ylabel('Levels');
xlabel('t');
title('Frobenius norm of wavelet coefficients');

end