[95fe2b]: wavelets / wfreq_mexh.m  Maximize  Restore  History

Download this file

30 lines (23 with data), 568 Bytes

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
function [H] = wfreq_mexh(N,s);
if rem(N,2) == 0
% N is even
w = 2*pi*[0:N/2-1]/N; % frequency axis: [0, pi)
else
% N is odd
w = 2*pi*[0:(N-1)/2]/N; % frequency axis: [0, pi)
end
% frequency axis
%w=[0:2*pi/L:2*pi*(1-1/L)];
%w(1)=eps;
%w(L/2+1)=w(L/2+1)+1e-15;
w = linspace(-1,1,N);
sigma = 1;
Htmp = exp(-sigma^2*(s*w).^2).*(s*w).^2.*(-sqrt(8)*sigma^(5/2)*pi^(1/4)/sqrt(3));
H = Htmp;
% if rem(N,2) == 0
% % N is even
% H = [Htmp, 0, Htmp(end:-1:2)];
% else
% % N is odd
% H = [Htmp, Htmp(end:-1:2)];
% end

Get latest updates about Open Source Projects, Conferences and News.

Sign up for the SourceForge newsletter:





No, thanks