To check out this repository please hg clone the following URL, or open the URL using EasyMercurial or your preferred Mercurial client.

Statistics Download as Zip
| Branch: | Tag: | Revision:

root / PeakInterpolator.cpp @ 44:c5cd88de5809

History | View | Annotate | Download (2.12 KB)

1 39:822cf7b8e070 Chris
/* -*- c-basic-offset: 4 indent-tabs-mode: nil -*-  vi:set ts=8 sts=4 sw=4: */
2
/*
3
    This file is Copyright (c) 2012 Chris Cannam
4

5
    Permission is hereby granted, free of charge, to any person
6
    obtaining a copy of this software and associated documentation
7
    files (the "Software"), to deal in the Software without
8
    restriction, including without limitation the rights to use, copy,
9
    modify, merge, publish, distribute, sublicense, and/or sell copies
10
    of the Software, and to permit persons to whom the Software is
11
    furnished to do so, subject to the following conditions:
12

13
    The above copyright notice and this permission notice shall be
14
    included in all copies or substantial portions of the Software.
15

16
    THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
17
    EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
18
    MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
19
    NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR
20
    ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF
21
    CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
22
    WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
23
*/
24
25
#include "PeakInterpolator.h"
26
27 40:8f56ef28b0b1 Chris
#include <iostream>
28
29 39:822cf7b8e070 Chris
double
30 42:45b4401136f6 Chris
PeakInterpolator::findPeakLocation(const double *data, int size)
31
{
32
    double maxval;
33
    int maxidx = 0;
34
    int i;
35
    for (i = 0; i < size; ++i) {
36
        if (i == 0 || data[i] > maxval) {
37
            maxval = data[i];
38
            maxidx = i;
39
        }
40
    }
41
    return findPeakLocation(data, size, maxidx);
42
}
43
44
double
45 39:822cf7b8e070 Chris
PeakInterpolator::findPeakLocation(const double *data, int size, int peakIndex)
46
{
47 43:53260757fc9f Chris
    // after jos,
48
    // https://ccrma.stanford.edu/~jos/sasp/Quadratic_Interpolation_Spectral_Peaks.html
49 40:8f56ef28b0b1 Chris
50
    if (peakIndex < 1 || peakIndex > size - 2) {
51 39:822cf7b8e070 Chris
        return peakIndex;
52
    }
53
54 43:53260757fc9f Chris
    double alpha = data[peakIndex-1];
55
    double beta  = data[peakIndex];
56
    double gamma = data[peakIndex+1];
57 39:822cf7b8e070 Chris
58 43:53260757fc9f Chris
    double denom = (alpha - 2*beta + gamma);
59 39:822cf7b8e070 Chris
60 43:53260757fc9f Chris
    if (denom == 0) {
61
        // flat
62
        return peakIndex;
63 39:822cf7b8e070 Chris
    }
64
65 43:53260757fc9f Chris
    double p = ((alpha - gamma) / denom) / 2.0;
66 39:822cf7b8e070 Chris
67 43:53260757fc9f Chris
    return double(peakIndex) + p;
68 39:822cf7b8e070 Chris
}