
function fs=ftx(s);
 [n,m]=size(s);
 fs=fft([s(ceil(n/2)+1:n,:);s(1:ceil(n/2),:)]);
 fs=[fs(ceil(n/2)+1:n,:);fs(1:ceil(n/2),:)];

