%STFT de una señal estacionaria con contenido de 10,25,50 y 100 Hz
%Se emplea una ventana del tipo gaussiana con diferentes valores de 
%amplitud a
%
%Subrutinas empleadas: 
%          - WindowFT
%
%Nota: el parámetro a se introduce en la subrutina Makewindow, 
%que es parte de la subrutina WindowFT

close all; 
clear all;

npuntos=512;
t=0:1/npuntos:1;
w=2*pi;
tiempo=1000*t;
x=cos(w*10*t)+cos(w*25*t)+cos(w*50*t)+cos(w*100*t);
specgm = WindowFT(x,npuntos/2,32,'Gaussian');
z=abs(specgm);
mesh(z);


