心电信号R峰检测

function [R_feng t_out]=RFtiqu（data_X）
dim=length（data_X）;
data_max=[];   data_min=[]; data_max1=[];data_min1=[];
 th1=[];data_out=[];  data_R=[]; t_out=[];  data_R2=[];
 th=mean（data_X（1:200））+2*std（data_X（1:200））;
 %%
 [max_1min_1 max_t1min_t1]=MJZ（data_X（1:250））; %确定前一部分的R峰
 t_in=max_t1（find（max_1>=th））;
 t_out=[t_outt_in]; 
 %%   %确定中间部分的R峰
[max_1min_1 max_t1min_t1]=MJZ（data_X（251:dim-250））;
for j=1:length（max_1）
    th=mean（data_X（max_t1