%% wave1dDCT
%usage: wave1dDCT(m)
% show progression of 1D DCT wave forms

% s. Allen Broughton - 27 Oct 10

function Z = wave1dDCT(m) 

dt = 32/m;

for r = 1:m
    X = zeros(m,1);
      X(r) =1;
      Y = idct(X);
      subplot(2,1,1);
      stem(X,'filled');
      axis tight
      title('coefficient');
      subplot(2,1,2);
      stem(Y,'filled');
      axis tight
      title('waveform');
      pause(dt);
    end;