www.pudn.com > MATLAB.rar > my_Wavelet.asv, change:2012-08-27,size:1310b

```%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
%   Archivo: my_Wavelet.m
%
%   function my_Wavelet
%
%   Autor: ROUX, Federico G. (rouxfederico@gmail.com)
%
%   Profesor: PESSANA, Franco
%   Procesamiento Digital de Señales(PDS)
%   Departamento de Ing.Electrónica.
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

function [w t] = my_Wavelet(a, f, f0, t0, N, Fs)

Ts = 1/Fs;                                                          % Frecuencia de muestreo

t = 0:(N - 1);                                                      % Array de nro. de muestras
t = t * Ts;                                                         % Escalo el array en tiempo
t = t - t0;                                                         % Inicio el array en t0
t = t / a;

fmod = mySin(1, f0, 0, N, Fs);                                      % Señal modulante

wc = 2*pi*fc;

kc = wc / (pi * Fs);

w = mySinc(kc, fc, t0, N, Fs * a);
w = w .* fmod;
w_sum = sum(w);
w = w/w_sum;
end```