fracsingspect.m

来自「基于小波变换的分形学」· M 代码 · 共 42 行

function f = FracSingSpect(tau,q)
% FracSingSpect -- Calculate Spectrum of Local Scaling Exponents
%  Usage
%    f = FracSingSpect(z,q,alpha)
%  Inputs
%    tau       matrix 1 by nq of tau(q) ``Moment Gen Func''
%    q         optional list of exponents.  Default linspace(-2,5,61)'
%  Outputs
%    f         vector 1 by length(alpha) of fractal dimensions
%
%  Description
%    section 6.5.2 of Mallat's book
%
%  See Also
%    RWT, MM_RWT, FracPartition
%

	if nargin < 3,
		alpha = linspace(.1,.9,11);
	end
	
	if nargin < 2,
		q  = linspace(-2,5,61)';
	end
	
	nq = length(q);
	minq = q(1);
	maxq = q(nq);
	

	for kalpha =1:nalpha,
		f(kalpha) = min((alpha(kalpha)+.5)*q - tau);
		bogus = f(kalpha);
		if  alpha(kalpha)*maxq - tau(nq) == f(kalpha),
			bogus = -10;
		elseif alpha(kalpha)*minq - tau(1) == f(kalpha),
 			bogus = -10;
		end
%		find(alpha(kalpha)*q - tau == f(kalpha))
		f(kalpha) = bogus;
	end