Subversion Repositories dashGPS

Rev

Rev 2 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
2 mjames 1
#include "ref.h"
2
 
3
void ref_rms_f32(
4
  float32_t * pSrc,
5
  uint32_t blockSize,
6
  float32_t * pResult)
7
{
8
        uint32_t i;
9
        float32_t sumsq=0;
10
 
11
        for(i=0;i<blockSize;i++)
12
        {
13
                        sumsq += pSrc[i] * pSrc[i];
14
        }
15
        *pResult = sqrtf(sumsq / (float32_t)blockSize);
16
}
17
 
18
void ref_rms_q31(
19
  q31_t * pSrc,
20
  uint32_t blockSize,
21
  q31_t * pResult)
22
{
23
        uint32_t i;
24
        q63_t sumsq=0;
25
        q63_t tmp1;
26
        q31_t tmp2;
27
 
28
  float help_float;
29
 
30
        for(i=0;i<blockSize;i++)
31
        {
32
                        sumsq += (q63_t)pSrc[i] * pSrc[i];
33
        }
34
        tmp1 = (sumsq / (q63_t)blockSize) >> 31;
35
        tmp2 = ref_sat_q31(tmp1);
36
 
37
  /* GCC M0 problem: __aeabi_f2iz(QNAN) returns not 0 */
38
  help_float = (sqrtf((float)tmp2 / 2147483648.0f) * 2147483648.0f);
39
  /* Checking for a NAN value in help_float */
40
  if (((*((int *)(&help_float))) & 0x7FC00000) == 0x7FC00000) {
41
      help_float = 0;
42
  }
43
  *pResult = (q31_t)(help_float);
44
 
45
//  *pResult = (q31_t)(sqrtf((float)tmp2 / 2147483648.0f) * 2147483648.0f);
46
}
47
 
48
void ref_rms_q15(
49
  q15_t * pSrc,
50
  uint32_t blockSize,
51
  q15_t * pResult)
52
{
53
        uint32_t i;
54
        q63_t sumsq=0;
55
        q31_t tmp1;
56
        q15_t tmp2;
57
 
58
        for(i=0;i<blockSize;i++)
59
        {
60
                        sumsq += (q63_t)pSrc[i] * pSrc[i];
61
        }
62
        tmp1 = (sumsq / (q63_t)blockSize) >> 15;
63
        tmp2 = ref_sat_q15(tmp1);
64
        *pResult = (q15_t)(sqrtf((float)tmp2 / 32768.0f) * 32768.0f);
65
}