Лаба 4 / Lab4_2

%ЭКГ
clc;
clear all;
close all;

X0=50;
Y0=80;
W0=1200;
H0=610;
figure('Position',[X0,Y0,W0,H0])
x1=50;
y1=430;
dx=30;
dy=30;
w1=270;
w2=40;
h1=150;
h2=15;
hAxes1=axes('Units','pixels','Position',[x1,y1,2*w1,h1]);
hAxes4=axes('Units','pixels','Position',[x1,y1-h1-dy,2*w1,h1]);
hAxes7=axes('Units','pixels','Position',[x1,y1-2*h1-2*dy,2*w1,h1]);
hAxes2=axes('Units','pixels','Position',[x1+2*w1+dx,y1,w1,h1]);
hAxes5=axes('Units','pixels','Position',[x1+2*w1+dx,y1-h1-dy,w1,h1]);
hAxes8=axes('Units','pixels','Position',[x1+2*w1+dx,y1-2*h1-2*dy,w1,h1]);
hAxes3=axes('Units','pixels','Position',[x1+3*w1+2*dx,y1,w1,h1]);
hAxes6=axes('Units','pixels','Position',[x1+3*w1+2*dx,y1-h1-dy,w1,h1]);
hAxes9=axes('Units','pixels','Position',[x1+3*w1+2*dx,y1-2*h1-2*dy,w1,h1]);

ECG=load('R4_07.txt');
Fs=250;
tmax=4;
T=1/Fs;
t=0:T:tmax-T;
Norma=ECG(:,1);
VTach=ECG(:,2);
VFibr=ECG(:,3);

ft=fft(Norma);
N=tmax*Fs;
for j=1:N
if (j==1)
as(j)=sqrt(real(ft(j))^2+imag(ft(j))^2)/N;
else
as(j)=sqrt(real(ft(j))^2+imag(ft(j))^2)/N*2;
end;
end;
df=Fs/N;
for j=1:(N/2)
f(j)=df*(j-1);
end;

for j=1:N
if (j==1)
psd(j)=1/N*(real(ft(j))^2+imag(ft(j))^2)/Fs;
else
psd(j)=2/N*(real(ft(j))^2+imag(ft(j))^2)/Fs;
end;
end;

m=mean(Norma);
Norma0=Norma-m;

ft0=fft(Norma0);
for j=1:N
if (j==1)
as0(j)=sqrt(real(ft0(j))^2+imag(ft0(j))^2)/N;
else
as0(j)=sqrt(real(ft0(j))^2+imag(ft0(j))^2)/N*2;
end;
end;

for j=1:N
if (j==1)
psd0(j)=1/N*(real(ft0(j))^2+imag(ft0(j))^2)/Fs;
else
psd0(j)=2/N*(real(ft0(j))^2+imag(ft0(j))^2)/Fs;
end;
end;

w=hamming(N);
for j=1:N
Normaw(j)=Norma0(j)*w(j);
end;

ftT=fft(VTach);
N=tmax*Fs;
for j=1:N
if (j==1)
asT(j)=sqrt(real(ftT(j))^2+imag(ftT(j))^2)/N;
else
asT(j)=sqrt(real(ftT(j))^2+imag(ftT(j))^2)/N*2;
end;
end;

for j=1:N
if (j==1)
psdT(j)=1/N*(real(ftT(j))^2+imag(ftT(j))^2)/Fs;
else
psdT(j)=2/N*(real(ftT(j))^2+imag(ftT(j))^2)/Fs;
end;
end;

mT=mean(VTach);
VTach0=VTach-mT;

ftT0=fft(VTach0);

for j=1:N
VTachw(j)=VTach0(j)*w(j);
end;

ftF=fft(VFibr);
for j=1:N
if (j==1)
asF(j)=sqrt(real(ftF(j))^2+imag(ftF(j))^2)/N;
else
asF(j)=sqrt(real(ftF(j))^2+imag(ftF(j))^2)/N*2;
end;
end;

for j=1:N
if (j==1)
psdF(j)=1/N*(real(ftF(j))^2+imag(ftF(j))^2)/Fs;
else
psdF(j)=2/N*(real(ftF(j))^2+imag(ftF(j))^2)/Fs;
end;
end;

mF=mean(VFibr);
VFibr0=VFibr-mF;

ftF0=fft(VFibr0);

for j=1:N
VFibrw(j)=VFibr0(j)*w(j);
end;

axes(hAxes1)
plot(t,Norma)
hold on
plot(t,Normaw)
grid on
axes(hAxes2)
stem(f,as(1:N/2),'.')
grid on
set(hAxes2,'Xlim',[0 20])
axes(hAxes3)
plot(f,psd(1:(N/2)))
grid on
set(hAxes3,'Xlim',[0 20])
axes(hAxes4)
plot(t,VTach)
hold on
plot(t,VTachw)
grid on
axes(hAxes5)
stem(f,asT(1:N/2),'.')
grid on
set(hAxes5,'Xlim',[0 20])
axes(hAxes6)
plot(f,psdT(1:(N/2)))
grid on
set(hAxes6,'Xlim',[0 20])
axes(hAxes7)
plot(t,VFibr)
hold on
plot(t,VFibrw)
grid on
axes(hAxes8)
stem(f,asF(1:N/2),'.')
grid on
set(hAxes8,'Xlim',[0 20])
axes(hAxes9)
plot(f,psdF(1:(N/2)))
grid on
set(hAxes9,'Xlim',[0 20])