功能 [daughter,fourier_factor,coi,dofmin] = wave_bases(mother,k,scale,param); mother = upper(mother); n = length(k); 如果 (strcmp(mother,'MORLET')) %----- Morlet 如果 (param == -1), param = 6.;, end k0 = param; expnt = -(scale.k - k0).^2/2.(k > 0.); norm = sqrt(scalek(2))(pi^(-0.25))sqrt(n); % 总能量=N [Eqn(7)] daughter = normexp(expnt); daughter = daughter.(k > 0.); % Heaviside step function fourier_factor = (4pi)/(k0 + sqrt(2 + k0^2)); % 尺度-->Fourier [Sec.3h] coi = fourier_factor/sqrt(2); % 影响圆锥 [Sec.3g] dofmin = 2; % 自由度