Transformada De Fourier

function varargout = ecg(varargin)
gui_Singleton = 1;
gui_State = struct('gui_Name', mfilename, ...
'gui_Singleton', gui_Singleton, ...'gui_OpeningFcn', @ecg_OpeningFcn, ...
'gui_OutputFcn', @ecg_OutputFcn, ...
'gui_LayoutFcn', [] , ...
'gui_Callback', []);
if nargin &&ischar(varargin{1})
gui_State.gui_Callback = str2func(varargin{1});
end

if nargout
[varargout{1:nargout}] = gui_mainfcn(gui_State, varargin{:});
else
gui_mainfcn(gui_State,varargin{:});
end
function ecg_OpeningFcn(hObject, eventdata, handles, varargin)
clc;

axes(handles.uno)
newplot;
hold off;
axes(handles.tress)
newplot;
handles.output = hObject;guidata(hObject, handles);

function varargout = ecg_OutputFcn(hObject, eventdata, handles)

varargout{1} = handles.output;

function ondas_Callback(hObject, eventdata, handles)

axes(handles.uno)newplot;
[filename, pathname] = uigetfile({'*.ecg';'*.txt'},'Seleccionar Archivo');
if(filename~=0)
archivo=[pathname filename];
G1=load(archivo);
plot(G1,'r');
grid on;
ylabel('\bfAmplitud','Fontsize',16);
xlabel('\bf Numero de Muestras','Fontsize',12);
set(handles.autocorrelacion,'enable','on');
set(handles.transformada,'enable','on');
handles.original=G1;guidata(hObject,handles);

end;
function salir_Callback(hObject, eventdata, handles)
clear,clc,close all


function transformada_Callback(hObject, eventdata, handles)

axes(handles.tress)
newplot;
colordefblack;
s=handles.original;
s1=s(1:200);
n=length(s1);
power=abs(s1(1:floor(n/2))).^2;
stem(fft(power));
xlabel('\bf Densidad Espectral De Potencia','Fontsize',14);

% --- Executes on buttonpress in autocorrelacion.
function autocorrelacion_Callback(hObject, eventdata, handles)

figure(2)
newplot;
colordef white;
mat=handles.original;
w=xcorr(mat);
plot(w);
title('\bf...