% script: testing.m
% description: file for some miscelleneous experiments.
% programmer: t. shores
% last rev.: 2/14/16

% construct some DFT matrices
N = 8
zeta = exp(-2*pi*i/N);
z = zeta.^(0:N-1);
% some random vector
y = 2*(rand(N,1) - 0.5)
F = fliplr(vander(z))/N;
Y = F*y
norm(y - N*conj(F)*Y)
Z = FFTransform(y)
norm(Y - Z)
z = real(FFTransform(Z,1))
norm(y - z)
 