www.pudn.com > MATLAB.rar > my_Gabor_Win_2.m, change:2012-08-30,size:1182b


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
% 
%   Archivo: my_Gabor_Win_2.m 
% 
%   function my_Gabor_Win_2 
% 
%   Autor: ROUX, Federico G. (rouxfederico@gmail.com) 
% 
%   Profesor: PESSANA, Franco 
%   Procesamiento Digital de Señales(PDS) 
%   Departamento de Ing.Electrónica. 
%   Facultad Buenos Aires 
%   Universidad Tecnológica Nacional 
% 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
 
 
function [w tw] = my_Gabor_Win_2(alfa, a, t0, N, Fs) 
 
    Ts = 1 / Fs;                                            % Frecuencia de muestreo 
 
    t = 0:(N - 1);                                          % Array de número de muestras 
    t = t * Ts;         
    t = t - t0; 
     
    tw = t; 
    t = t / a; 
 
    k0 = 1 / (2 * (pi * alfa)^(1/2)); 
    t2 = t.^2; 
     
    w = k0 * exp(-t2/(4 * alfa)); 
         
    w_sum = sum(w);                                         % Sumatoria de los valores de w 
    w = w/w_sum;                                            % Normalizo para el valor 1 
 
end