第04课 matlab心电信号R波检测_第1页
第04课 matlab心电信号R波检测_第2页
第04课 matlab心电信号R波检测_第3页
第04课 matlab心电信号R波检测_第4页
第04课 matlab心电信号R波检测_第5页
已阅读5页,还剩20页未读, 继续免费阅读

付费下载

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

《生物医学信号处理》实习报告学生姓名:学号:实验室名称:到的MIT-BIH数据)波段及特征点所代表的生理学意义将在下一节中进行较为详细的"缩所算法首先对心电信号作连续小波变换并对信号按照心动周期进行具体算法实现步骤如下:面上以灰度图的形式表示。中部。极值线。EMD分解:分解得到的第一、二、三本征模函数分量直接相加重构得到一个小波基的选取算法递归计算出信号的小波变换。分小波检测算法需通过检测小波模极大值对的过零点来定位信号falsepositive)结果;另外,当心律失常或QRS波幅度变小,阈值设置falsenegative)结果。由于固定阈编写的源程序:具体程序如下:clearall;clc;z=textread('ECG.txt');input=ECG(1:256);rate=ECG(100);sig=input;lensig=length(sig);wtsig1=cwt(sig,6,'mexh');lenwtsig1=length(wtsig1);wtsig1(lenwtsig1-20:lenwtsig1)=0;y=wtsig1;yabs=abs(y);%?sigtemp=y;siglen=length(y);sigmax=[];fori=1:siglen-2if))sigmax=[sigmax;abs(sigtemp(i+1)),i+1];end;end;figure(1);subplot(2,1,1),plot(sig);title('ECG原信号');subplot(2,1,2),plot(wtsig1);title('ECG变换信号');thrtemp=sort(sigmax);thrlen=length(sigmax);thr=0;fori=(thrlen-7):thrlenthr=thr+thrtemp(i);end;值点的平均值zerotemp=sort(y);zerovalue=0;zerovalue=zerovalue+zerotemp(i);end;zerovalue=zerovalue/100;%最小幅度平均值,对消幅度,100thr=(thrmax-zerovalue)*0.3;%最大、最小幅度的差值的30%为判%定位R波rvalue=[];fori=1:thrlenifsigmax(i,1)>thrrvalue=[rvalue;sigmax(i,2)];end;end;rvalue_1=rvalue;lenvalue=length(rvalue);i=2;whilei<=lenvalueif(rvalue(i)-rvalue(i-1))*rate<0.4ifyabs(rvalue(i))>yabs(rvalue(i-1))elseend;lenvalue=length(rvalue);i=i-1;end;i=i+1;end;lenvalue=length(rvalue);fori=1:lenvalueif(wtsig1(rvalue(i))>0)k=(rvalue(i)-5):(rvalue(i)+5);[a,b]=max(sig(k));rvalue(i)=rvalue(i)-6+b;elsek=(rvalue(i)-5):(rvalue(i)+5);[a,b]=min(sig(k));rvalue(i)=rvalue(i)-6+b;end;end;figure(2);subplot(2,1,1),plot(1:lensig,wtsig1,rvalue_1,wtsig1(rtitle('ECG纠正及校准前的R波信号');subplot(2,1,2),plot(1:lensig,sig,rvalue,sig(rvalue),'title('ECG纠正及校准后的R波信号');NOISYECG-R波检测:clearall;clc;z=textread('NOISYECG.txt');input=ECG(1:256);rate=ECG(100);sig=input;lensig=length(sig);wtsig1=cwt(sig,6,'mexh');lenwtsig1=length(wtsig1);wtsig1(lenwtsig1-20:lenwtsig1)=0;y=wtsig1;yabs=abs(y);%?sigtemp=y;siglen=length(y);sigmax=[];fori=1:siglen-2if))sigmax=[sigmax;abs(sigtemp(i+1)),i+1];end;end;figure(1);subplot(2,1,1),plot(sig);title('NOISYECG原信号');subplot(2,1,2),plot(wtsig1);title('NOISYECG变换信号');thrtemp=sort(sigmax);thrlen=length(sigmax);thr=0;fori=(thrlen-7):thrlenthr=thr+thrtemp(i);end;值点的平均值zerotemp=sort(y);zerovalue=0;zerovalue=zerovalue+zerotemp(i);end;zerovalue=zerovalue/100;%最小幅度平均值,对消幅度,100thr=(thrmax-zerovalue)*0.3;%最大、最小幅度的差值的30%为判%定位R波rvalue=[];fori=1:thrlenifsigmax(i,1)>thrrvalue=[rvalue;sigmax(i,2)];end;end;rvalue_1=rvalue;lenvalue=length(rvalue);i=2;whilei<=lenvalueif(rvalue(i)-rvalue(i-1))*rate<0.4ifyabs(rvalue(i))>yabs(rvalue(i-1))elseend;lenvalue=length(rvalue);i=i-1;end;i=i+1;end;lenvalue=length(rvalue);fori=1:lenvalueif(wtsig1(rvalue(i))>0)k=(rvalue(i)-5):(rvalue(i)+5);[a,b]=max(sig(k));rvalue(i)=rvalue(i)-6+b;elsek=(rvalue(i)-5):(rvalue(i)+5);[a,b]=min(sig(k));rvalue(i)=rvalue(i)-6+b;end;end;figure(2);subplot(2,1,

温馨提示

  • 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

评论

0/150

提交评论