-
Notifications
You must be signed in to change notification settings - Fork 6
/
deriv2nd5.m
54 lines (49 loc) · 2.07 KB
/
deriv2nd5.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
50
51
52
53
54
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% 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 = deriv2nd5(f, what)
% deriv2nd 5(f, what): compute 5-point stencil 2nd derivative of f
% Approximate derivative using the form
% f'' ~ ay[k ? 2] + by[k ? 1] + cy[k]+ dy[k + 1] + gy[k + 2]
% b = 1 - 4a
% c = -2(1 - 3a)
% d = b
% g = a
% 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=2/7;
else
error('Deriv5: expecting "t" or "p" for taylor or parabolic fit, got "%s"\n', what)
end
b=1-4*a;
c=-2*(1-3*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)) + c*f(3:N-2);
der = zeros(N,1);
der(1:2) = NaN;
der(3:end-2) = d;
der(end-1:end) = NaN;
end