вариант
|
Имя файла
|
8
|
R09_08. txt
|
Данная лабораторная работа была организована с помощью
четырех программ - головной и трех функциональных.
Головная программа (lab9prog1) выполняет построение графиков ЭКГ в трех
отведениях, установку маркеров, а так же вызывает на выполнение остальные три
функции.
векторкардиограмма сердце сердечный цикл
Для организации процедуры построения ВКГ используется
программа lab9prog2, которая представляет собой функцию, выполняющую построение ВКГ
для того участка ЭКГ, который в данный момент отмечен маркерами.
Две оставшиеся программы (get_t1 и get_t2) вызываются при вводе
новых значений в поле редактирования головной программы. Каждая из этих
программ выполняет следующие действия:
считывает и преобразовывает в число введенное значение;
проверяет значение на допустимость;
рисует маркер в новом положении;
строит ВКГ для нового положения маркера.
Эти программы используются для построения ВКГ для различных
фрагментов записи ЭКГ.
· lab9prog1
global hAxes3 hAxes4 hAxes5 hAxes6 hAxes7 X Y Z T
t1 t2 Lim Mark1 hEdit1 N hEdit2 Mark2
Fd=250;=8;=1/Fd;=0: T: tmax-T;=50;=70;=1200;=600;
figure ('Position', [x0,y0,w0,h0])
x1=160;=50;=80;=40;=1080;=300;=180;=180;=250;=230;=100;=55;
hAxes3=axes ('Units','pixels','Position',
[x1,y1+h4+dy+30,w3,h3])=axes ('Units','pixels','Position', [x1,y1,w4,h4])=axes
('Units','pixels','Position', [x1+w4+dx,y1,w4,h4])=axes
('Units','pixels','Position', [x1+2*w4+2*dx,y1,w4,h4])=axes ('Units','pixels','Position',
[x1+3*w4+3*dx,y1-10,w7,h7])=uicontrol ('Style', 'edit', 'Position',
[x1,y1+h4+2*dy+h3,w1,h1], 'Backgroundcolor', [1 1 1],
'HorizontalAlignment','left');=uicontrol ('Style', 'pushbutton', 'String',
'Mark1', 'Position', [x1+w1+10,y1+h4+2*dy+h3,w1, h1], 'Callback',
'get_t1');=uicontrol ('Style', 'edit', 'Position',
[x1+2*w1+20,y1+h4+2*dy+h3,w1,h1], 'Backgroundcolor', [1 1 1],
'HorizontalAlignment','left');=uicontrol ('Style', 'pushbutton', 'String',
'Mark2', 'Position', [x1+3*w1+30,y1+h4+2*dy+h3,w1, h1], 'Callback', 'get_t2');
XYZ=load ('R09_08. txt');=length (XYZ);=XYZ (:,1);=XYZ
(:,2);=XYZ (:,3);(hAxes3)(t,X);on(t,Y-1.2,'r')on(t,Z-2.2,'g')on=0;=t (N);=get
(hAxes3,'YLim')
Mark1=plot ([t1 t1], [Lim (1) Lim (2)],':
k');=plot ([t2 t2], [Lim (1) Lim (2)],': k');(hEdit1,'String',num2str
(t1));(hEdit2,'String',num2str (t2));
lab9prog2 ()
· lab9prog2
function lab9prog2 ()
global T t1 t2 hAxes4 hAxes5 hAxes6 hAxes7 X Y Z
i1=fix (t1/T) +1;=fix (t2/T);(hAxes4)
plot (X (i1: i2),Y (i1: i2))
title ('XY')on(hAxes5)
plot (X (i1: i2),Z (i1: i2))
title ('XZ')on(hAxes6)
title ('YZ')on(hAxes7)
plot3 (X (i1: i2),Y (i1: i2),Z (i1: i2))
title ('XYZ')on
· get_t1
function get_t1 ()
global hAxes3 hAxes4 hAxes5 hAxes6 hAxes7 X Y Z T
t1 t2 Lim Mark1 hEdit1 N
str=get (hEdit1,'String');=str2double
(str);t1<0=0;t1>t2=t2;(hAxes3)(Mark1);
Mark1=plot ([t1 t1], [Lim (1) Lim (2)],':
k');(hEdit1,'String',num2str (t1));
lab9prog2 ()
· get_t2
function get_t2 ()
global t1 t2 Mark2 hEdit2 hAxes3 t N Lim
str=get (hEdit2,'String');=str2double
(str);t2<0=0;t2>t2=t2;(hAxes3)(Mark2);
Mark2=plot ([t2 t2], [Lim (1) Lim (2)],':
k');(hEdit2,'String',num2str (t2));
lab9prog2 ()
ВКГ для всей записи целиком:
ВКГ для кардиоцикла фонового ритма сердца:
ВКГ для патологического кардиоцикла:
Выводы
В ходе данной лабораторной работы были построены следующие
ВКГ: для всего фрагмента записи ЭКГ, фонового ритма, а так же патологического
случая.
Анализируя полученные результаты, можно сказать, что по
графикам ВКГ отчетливо видна разница между нормальным сердечным ритмом и
патологией.