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