Лабы_Вариант 4_5 сем / ЛР_3 / l_33

clc
clear
close all

S=load('W3_04.txt');
N=length(S);
s1=S(1:N,1);
s2=S(1:N,2);
s3=S(1:N,3);

X0=0; % Координата “x” (на экране) нижнего левого угла окна
Y0=0; % Координата “y” (на экране) нижнего левого угла окна
W0=1800; % Ширина окна
H0=800; % Высота окна
figure('Position',[X0,Y0,W0,H0]) % Создание окна

x1=50; % Координата "x" (в окне) нижнего левого угла 1-го поля
dx=50; % Расстояние по “x” между 1-м и 2-м полями
y1=100; % Координата "y" (в окне) нижнего левого угла 1-го поля
w=270; % Ширина 1-го и 2-го полей вывода графиков
h=167; % Высота 1-го и 2-го полей вывода графиков
hAxes=zeros(3,3);

for i=[1 2 3]
% Создание 1-го поля:
hAxes(i,1)=axes('Units','pixels','Position',[x1,y1+(i-1)*(50+h),w,h]);
% Создание 2-го поля:
hAxes(i,2)=axes('Units','pixels','Position',[x1+dx+w,y1+(i-1)*(50+h),2*w,h]);
% Создание 3-го поля:
hAxes(i,3)=axes('Units','pixels','Position',[x1+dx+dx+w+w+w,y1+(i-1)*(50+h),2*w,h]); % 1 столбец 1 строка
end

Fs=250;
tmax=N/Fs;
T=1/Fs;
t=0:T:tmax-T;

Amax(1)=max(s1);% max и min сигналов
Amax(2)=max(s2);
Amax(3)=max(s3);
Amin(1)=min(s1);
Amin(2)=min(s2);
Amin(3)=min(s3);

axes(hAxes(3,1))
set (hAxes(3,1),'YLim',[min(Amin(1)) max(Amax(1))])
set (hAxes(3,1),'XLim',[0 tmax-T])
hold on
plot(t,s1)
title('1-й канал ЭЭГ')

axes(hAxes(2,1))
set (hAxes(2,1),'YLim',[min(Amin(2)) max(Amax(2))])
set (hAxes(2,1),'XLim',[0 tmax-T])
hold on
plot(t,s2)
title('2-й канал ЭЭГ')

axes(hAxes(1,1))
set (hAxes(1,1),'YLim',[min(Amin(3)) max(Amax(3))])
set (hAxes(1,1),'XLim',[0 tmax-T])
hold on
plot(t,s3)
title('3-й канал ЭЭГ')

%Построение АКФ
tcf=-tmax+T:T:tmax-T;
acf1=xcorr(s1,'coeff');
axes(hAxes(3,2))
for j=2:3
for i=1:3
set (hAxes(i,j),'YLim',[-1 +1])
set (hAxes(i,j),'XLim',[-tmax+T tmax-T])
end
end
hold on
plot(tcf,acf1)
title('АКФ1')

acf2=xcorr(s2,'coeff');
axes(hAxes(2,2))
hold on
plot(tcf,acf2)
title('АКФ2')

acf3=xcorr(s3,'coeff');
axes(hAxes(1,2))
hold on
plot(tcf,acf3)
title('АКФ3')

%Построение ВКФ
ccf12=xcorr(s1,s2,'coeff');
axes(hAxes(3,3))
hold on
plot(tcf,ccf12)
title('ВКФ1')

ccf23=xcorr(s2,s3,'coeff');
axes(hAxes(2,3))
hold on
plot(tcf,ccf23)
title('ВКФ2')

ccf31=xcorr(s3,s1,'coeff');
axes(hAxes(1,3))
hold on
plot(tcf,ccf31)
title('ВКФ3')