function w=ftm(N)
w=zeros(N:N);

for m=0:N-1
for n=0:N-1
   w(n+1,m+1) = (1/sqrt(N))*exp(j*2*pi*m*(n/N));
end
end