src/utils/hist.c

   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
  31 struct _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  */
  41 aubio_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
  64 void 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  */
  74 void 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
  90 void 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
 107 void 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
 137 void 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
 144 smpl_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