triadlength.m

老外写的小波变换的工具箱

function [n,J] = triadLength(x)
% triadLength -- Return length of triad
%  Usage
%    [n,J] = triadLength(x)
%
n = length(x);
m=1; J=0; while (m < n), m=3*m; J=J+1; end;
if m ~= n,
   fprintf('Warning n ~= 3^J\n')
end
    
    
 
 
%
%  Part of Wavelab Version 850
%  Built Tue Jan  3 13:20:42 EST 2006
%  This is Copyrighted Material
%  For Copying permissions see COPYING.m
%  Comments? e-mail [e-mail]