clc
clear all
close all

%% Electrocardiograma
Name_ECG = 'rec_6m';
Name_Fetal = 'r01_edfm';

[t_h, ecg_h] = abrir(Name_ECG);
[t_f, ecg_f] = abrir(Name_Fetal);

figure()
ax = [];
ax(1) = subplot(2,1,1);
plot(t_h, ecg_h)

ax(2) = subplot(2,1,2);
plot(t_f, ecg_f(1,:))



%% Electromyograma
Name_h = 'emg_healthym';
Name_n = 'emg_neuropathym';
Name_m = 'emg_myopathym';

[t_h, emg_h] = abrir(Name_h);
[t_n, emg_n] = abrir(Name_n);
[t_m, emg_m] = abrir(Name_m);

figure()
ax = [];
ax(1) = subplot(3,1,1);
plot(t_h, emg_h)

ax(2) = subplot(3,1,2);
plot(t_n, emg_n)

ax(3) = subplot(3,1,3);
plot(t_m, emg_m)

linkaxes(ax,'x')

%% ElectroOculoGrama
Name_o = 'SC4742E0-PSG_edfm';
[t_o, eog_o] = abrir(Name_o);
figure()
plot(t_o, eog_o(3,:))