算法效果：

 

波峰和起点检测效果： 

function [r,pk] = wabp(Araw, Offset,Scale, Fs)
% r = wabp(Araw,Offset,Scale, Fs);
% Input: Araw (125Hz sampled) waveform in wfdb-MIT format,
%        Offset, Scale
% Araw = 血压波形
% Offset=偏移（信号减去或者加上偏移恢复成原始物理0值）
% Output: The onset times of the input ABP waveform
% 输出动脉血压波形的起点位置
% Defaults are Offset = 1600; Scale=20; Fs=125;
% 默认 偏移1600， 增益20， 采样率125点/秒
% If you pass 0 as the scale then above defaults are invoked
% 如果增益输入0，使用全部的默认值。
% Default Fs=125Hz unless you pass a fourth argument.
%采样率默认125点/秒
% Gnu Public License Applies
%
% James Sun Feb 09 2005 with some changes from Gari Cliff