residualDists.m

% =======================================================================
%  ____   ____ ____         _       _
% |  _ \ / ___/ ___|  _ __ | | ___ | |_
% | |_) | |  | |  _  | '_ \| |/ _ \| __|
% |  __/| |__| |_| | | |_) | | (_) | |_
% |_|    \____\____| | .__/|_|\___/ \__|
%                    |_|
%      _ _     _        _ _           _   _
%   __| (_)___| |_ _ __(_) |__  _   _| |_(_) ___  _ __  ___
%  / _` | / __| __| '__| | '_ \| | | | __| |/ _ \| '_ \/ __|
% | (_| | \__ \ |_| |  | | |_) | |_| | |_| | (_) | | | \__ \
%  \__,_|_|___/\__|_|  |_|_.__/ \__,_|\__|_|\___/|_| |_|___/
%========================================================================
clear 
close all 
clc
dir = addpath('/Users/Roilhi/Documents/MATLAB/ltfat/');
ltfatstart;
load('BaseResiduales.mat')
fs = 8000;
x = BaseResiduales.patologias(3).formaOndaResidual;

x = x(1:2500);
Xfft = fftshift(fft(x));
W = wignervilledist(x);

figure
sgram(x,fs,'db')

figure
imagesc(20*log10(abs(W)))



%c = dgt(x,'gauss',);