source: src/hist.c @ 274839f

feature/autosinkfeature/cnnfeature/cnn_orgfeature/constantqfeature/crepefeature/crepe_orgfeature/pitchshiftfeature/pydocstringsfeature/timestretchfix/ffmpeg5pitchshiftsamplertimestretchyinfft+
Last change on this file since 274839f was 274839f, checked in by Paul Brossier <piem@piem.org>, 16 years ago

hist.c: move hist data to a structure, rename aubio_hist_weigth to aubio_hist_weight

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