-
Notifications
You must be signed in to change notification settings - Fork 6
/
deriv5.m
49 lines (45 loc) · 2.02 KB
/
deriv5.m
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% BRAVEHEART - Open source software for electrocardiographic and vectorcardiographic analysis
% deriv2nd5.m -- Compute 5-point stencil 2nd derivative of f
% Copyright 2016-2024 Hans F. Stabenau and Jonathan W. Waks
%
% Source code/executables: https://github.com/BIVectors/BRAVEHEART
% Contact: [email protected]
%
% BRAVEHEART is free software: you can redistribute it and/or modify it under the terms of the GNU
% General Public License as published by the Free Software Foundation, either version 3 of the License,
% or (at your option) any later version.
%
% BRAVEHEART is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY;
% without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
% See the GNU General Public License for more details.
%
% You should have received a copy of the GNU General Public License along with this program.
% If not, see <https://www.gnu.org/licenses/>.
%
% This software is for research purposes only and is not intended to diagnose or treat any disease.
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
function der = deriv5(f, what)
% deriv5(f, what): compute 5-point stencil derivative of f
% Approximate derivative using the form
% f' ~ ay[k - 2] + by[k - 1] + cy[k]+ dy[k + 1] + gy[k + 2]
% ~ ay[k-2] + by[k-1] - by[k+1] - ay[k+2]
% what=t or p sets coeffs
% see Discrete derivative estimation in LISA Pathfinder data reduction
% Class. Quantum Grav. 26 (2009) 094013 for a derivation
if strcmpi(what(1), 't')
a=1/12;
elseif strcmpi(what(1), 'p')
a=-1/5;
else
error('Deriv5: expecting "t" or "p" for taylor or parabolic fit, got "%s"\n', what)
end
b=-1/2-a;
N = numel(f);
% 3:N-2
d = a*(f(1:N-4) - f(5:N)) + b*(f(2:N-3) - f(4:N-1));
der = zeros(N,1);
der(1:2) = NaN;
der(3:end-2) = d;
der(end-1:end) = NaN;
end