ifft2.sci

小波分解源代码

function x = ifft2(f, mrows, ncols)
//  Copyright Aldo I Maalouf
[rhs,lhs]=argn();
//if ~ischar(f, 'double')
   f = double(f);
//end
f = conj(f);
    mn = size(f,1)*size(f,2);
    if lhs==1
        x = conj(mtlb_fft(mtlb_fft(f,[],2),[],1))/mn;
    else
        x = conj(mtlb_fft(mtlb_fft(f,ncols,2),mrows,1))/mn;
    end
    endfunction