fft2_arb.m

来自「beamlet变化的工具箱」· M 代码 · 共 34 行

function fhat = fft2_arb(x)
% fft_arb -- FFT for arbitrary length sequence
%	fhat = fft_arb(x)
% Input
%	x		array(p,p)
% Output
%	fhat 	FFT of length p* p
%

fhat = zeros(size(x));
p    = size(x,1);
for i=1:p,
	y(i,:) = fft_arb(x(i,:));
end
for j=1:p,
	y(:,j) = fft_arb(x(:,j));
end

% Copyright 2000 David L. Donoho

%
% Part of BeamLab Version:200
% Built:Friday,23-Aug-2002 00:00:00
% This is Copyrighted Material
% For Copying permissions see COPYING.m
% Comments? e-mail [e-mail]
%
%
% Part of BeamLab Version:200
% Built:Saturday,14-Sep-2002 00:00:00
% This is Copyrighted Material
% For Copying permissions see COPYING.m
% Comments? e-mail [e-mail]
%