source: src/utils/hist.c @ 2589ea9

feature/autosinkfeature/cnnfeature/cnn_orgfeature/constantqfeature/crepefeature/crepe_orgfeature/pitchshiftfeature/timestretchfix/ffmpeg5
Last change on this file since 2589ea9 was fb0afbb, checked in by Paul Brossier <piem@piem.org>, 5 years ago

[hist] fix potential memory leak

  • Property mode set to 100644
File size: 3.6 KB
Line 
1/*
2  Copyright (C) 2003-2009 Paul Brossier <piem@aubio.org>
3
4  This file is part of aubio.
5
6  aubio is free software: you can redistribute it and/or modify
7  it under the terms of the GNU General Public License as published by
8  the Free Software Foundation, either version 3 of the License, or
9  (at your option) any later version.
10
11  aubio is distributed in the hope that it will be useful,
12  but WITHOUT ANY WARRANTY; without even the implied warranty of
13  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
14  GNU General Public License for more details.
15
16  You should have received a copy of the GNU General Public License
17  along with aubio.  If not, see <http://www.gnu.org/licenses/>.
18
19*/
20
21#include "aubio_priv.h"
22#include "fvec.h"
23#include "utils/scale.h"
24#include "mathutils.h" //fvec_min fvec_max
25#include "utils/hist.h"
26
27/********
28 * Object Structure
29 */
30
31struct _aubio_hist_t {
32  fvec_t * hist;
33  uint_t nelems;
34  fvec_t * cent;
35  aubio_scale_t *scaler;
36};
37
38/**
39 * Object creation/deletion calls
40 */
41aubio_hist_t * new_aubio_hist (smpl_t flow, smpl_t fhig, uint_t nelems){
42  aubio_hist_t * s = AUBIO_NEW(aubio_hist_t);
43  smpl_t step = (fhig-flow)/(smpl_t)(nelems);
44  smpl_t accum = step;
45  uint_t i;
46  if ((sint_t)nelems <= 0) {
47    AUBIO_FREE(s);
48    return NULL;
49  }
50  s->nelems = nelems;
51  s->hist = new_fvec(nelems);
52  s->cent = new_fvec(nelems);
53
54  /* use scale to map flow/fhig -> 0/nelems */
55  s->scaler = new_aubio_scale(flow,fhig,0,nelems);
56  /* calculate centers now once */
57  s->cent->data[0] = flow + 0.5 * step;
58  for (i=1; i < s->nelems; i++, accum+=step )
59    s->cent->data[i] = s->cent->data[0] + accum;
60
61  return s;
62}
63
64void del_aubio_hist(aubio_hist_t *s) {
65  del_fvec(s->hist);
66  del_fvec(s->cent);
67  del_aubio_scale(s->scaler);
68  AUBIO_FREE(s);
69}
70
71/***
72 * do it
73 */
74void aubio_hist_do (aubio_hist_t *s, fvec_t *input) {
75  uint_t j;
76  sint_t tmp = 0;
77  aubio_scale_do(s->scaler, input);
78  /* reset data */
79  fvec_zeros(s->hist);
80  /* run accum */
81  for (j=0;  j < input->length; j++)
82  {
83    tmp = (sint_t)FLOOR(input->data[j]);
84    if ((tmp >= 0) && (tmp < (sint_t)s->nelems)) {
85      s->hist->data[tmp] += 1;
86    }
87  }
88}
89
90void aubio_hist_do_notnull (aubio_hist_t *s, fvec_t *input) {
91  uint_t j;
92  sint_t tmp = 0;
93  aubio_scale_do(s->scaler, input);
94  /* reset data */
95  fvec_zeros(s->hist);
96  /* run accum */
97  for (j=0;  j < input->length; j++) {
98    if (input->data[j] != 0) {
99      tmp = (sint_t)FLOOR(input->data[j]);
100      if ((tmp >= 0) && (tmp < (sint_t)s->nelems))
101        s->hist->data[tmp] += 1;
102    }
103  }
104}
105
106
107void aubio_hist_dyn_notnull (aubio_hist_t *s, fvec_t *input) {
108  uint_t i;
109  sint_t tmp = 0;
110  smpl_t ilow = fvec_min(input);
111  smpl_t ihig = fvec_max(input);
112  smpl_t step = (ihig-ilow)/(smpl_t)(s->nelems);
113
114  /* readapt */
115  aubio_scale_set_limits (s->scaler, ilow, ihig, 0, s->nelems);
116
117  /* recalculate centers */
118  s->cent->data[0] = ilow + 0.5f * step;
119  for (i=1; i < s->nelems; i++)
120    s->cent->data[i] = s->cent->data[0] + i * step;
121
122  /* scale */
123  aubio_scale_do(s->scaler, input);
124
125  /* reset data */
126  fvec_zeros(s->hist);
127  /* run accum */
128  for (i=0;  i < input->length; i++) {
129    if (input->data[i] != 0) {
130      tmp = (sint_t)FLOOR(input->data[i]);
131      if ((tmp >= 0) && (tmp < (sint_t)s->nelems))
132        s->hist->data[tmp] += 1;
133    }
134  }
135}
136
137void aubio_hist_weight (aubio_hist_t *s) {
138  uint_t j;
139  for (j=0; j < s->nelems; j++) {
140    s->hist->data[j] *= s->cent->data[j];
141  }
142}
143
144smpl_t aubio_hist_mean (const aubio_hist_t *s) {
145  uint_t j;
146  smpl_t tmp = 0.0;
147  for (j=0; j < s->nelems; j++)
148    tmp += s->hist->data[j];
149  return tmp/(smpl_t)(s->nelems);
150}
151
Note: See TracBrowser for help on using the repository browser.