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
|
function [psi,x] = morlet (lb,ub,n)
// Generates Morlet wavelets
// Calling Sequence
// [psi,x]= morlet(lb,ub,n)
// Parameters
// lb: Real or complex valued vector or matrix
// ub: Real or complex valued vector or matrix
// n: Real strictly positive scalar number
// Description
// This is an Octave function
// This function returns values of the Morlet wavelet in the specified interval for all the sample points.
// Examples
// 1. [a,b]=morlet(1,2,3)
// a = [0.17205 0.11254 -0.11356]
// b = [1.0000 1.5000 2.0000]
// 2. [a,b]=morlet([1 2 3],[1 2 3],1)
// a = [0.1720498; -0.1135560; -0.0084394]
// b = [1; 2; 3]
funcprot(0);
rhs=argn(2);
if (rhs<3) then
error ("Wrong number of input arguments.")
else [psi,x] = callOctave("morlet",lb,ub,n)
end
endfunction
|