The experiment using this program is introduced on "Interface" No.12, CQ publishing Co.,Ltd, 2014. 本プログラムを使った実験は,CQ出版社のインターフェース 2014年12月号で紹介しています.

Dependencies:   DSProcessingIO mbed

Committer:
CQpub0Mikami
Date:
Tue Jul 29 06:53:35 2014 +0000
Revision:
1:b0a0a1ab01be
Parent:
0:b811ec8a7e8a
ver.2

Who changed what in which revision?

UserRevisionLine numberNew contents of line
CQpub0Mikami 0:b811ec8a7e8a 1 //--------------------------------------------------------------
CQpub0Mikami 0:b811ec8a7e8a 2 // Coefficients of FIR filter, Order = 200
CQpub0Mikami 0:b811ec8a7e8a 3 //--------------------------------------------------------------
CQpub0Mikami 0:b811ec8a7e8a 4
CQpub0Mikami 0:b811ec8a7e8a 5 // Band1 Band2
CQpub0Mikami 0:b811ec8a7e8a 6 // Lower band edge frequency (kHz) 0.000000 0.600000
CQpub0Mikami 0:b811ec8a7e8a 7 // Upper band edge frequency (kHz) 0.500000 5.000000
CQpub0Mikami 0:b811ec8a7e8a 8 // Gain 1.000000 0.000000
CQpub0Mikami 0:b811ec8a7e8a 9 // Weight 1.000000 1.000000
CQpub0Mikami 0:b811ec8a7e8a 10 // Deviation 0.009734 0.009734
CQpub0Mikami 0:b811ec8a7e8a 11 // Deviation [dB] 0.084139 -40.234188
CQpub0Mikami 0:b811ec8a7e8a 12
CQpub0Mikami 0:b811ec8a7e8a 13 const int ORDER_ = 200;
CQpub0Mikami 0:b811ec8a7e8a 14 const float hm_[ORDER_+1] = {
CQpub0Mikami 0:b811ec8a7e8a 15 -3.566292E-03f, 2.335185E-03f, 1.917338E-03f, 1.681921E-03f, 1.522689E-03f,
CQpub0Mikami 0:b811ec8a7e8a 16 1.364066E-03f, 1.157961E-03f, 8.803014E-04f, 5.296940E-04f, 1.236180E-04f,
CQpub0Mikami 0:b811ec8a7e8a 17 -3.047488E-04f, -7.123405E-04f, -1.051992E-03f, -1.279654E-03f, -1.360180E-03f,
CQpub0Mikami 0:b811ec8a7e8a 18 -1.273725E-03f, -1.018960E-03f, -6.155554E-04f, -1.029986E-04f, 4.621914E-04f,
CQpub0Mikami 0:b811ec8a7e8a 19 1.013316E-03f, 1.480161E-03f, 1.798055E-03f, 1.916527E-03f, 1.805744E-03f,
CQpub0Mikami 0:b811ec8a7e8a 20 1.463100E-03f, 9.143371E-04f, 2.130115E-04f, -5.640853E-04f, -1.326518E-03f,
CQpub0Mikami 0:b811ec8a7e8a 21 -1.978121E-03f, -2.430574E-03f, -2.613837E-03f, -2.486610E-03f, -2.043447E-03f,
CQpub0Mikami 0:b811ec8a7e8a 22 -1.317959E-03f, -3.802110E-04f, 6.680631E-04f, 1.704594E-03f, 2.600376E-03f,
CQpub0Mikami 0:b811ec8a7e8a 23 3.235972E-03f, 3.515095E-03f, 3.379365E-03f, 2.817894E-03f, 1.872141E-03f,
CQpub0Mikami 0:b811ec8a7e8a 24 6.322899E-04f, -7.684087E-04f, -2.167773E-03f, -3.393601E-03f, -4.284042E-03f,
CQpub0Mikami 0:b811ec8a7e8a 25 -4.705797E-03f, -4.577073E-03f, -3.875274E-03f, -2.648668E-03f, -1.012065E-03f,
CQpub0Mikami 0:b811ec8a7e8a 26 8.616354E-04f, 2.758435E-03f, 4.447251E-03f, 5.706155E-03f, 6.350451E-03f,
CQpub0Mikami 0:b811ec8a7e8a 27 6.257734E-03f, 5.386359E-03f, 3.786968E-03f, 1.602121E-03f, -9.435526E-04f,
CQpub0Mikami 0:b811ec8a7e8a 28 -3.565645E-03f, -5.948320E-03f, -7.781761E-03f, -8.797770E-03f, -8.807067E-03f,
CQpub0Mikami 0:b811ec8a7e8a 29 -7.725336E-03f, -5.594939E-03f, -2.585050E-03f, 1.010693E-03f, 4.809328E-03f,
CQpub0Mikami 0:b811ec8a7e8a 30 8.361672E-03f, 1.121444E-02f, 1.295107E-02f, 1.324389E-02f, 1.191081E-02f,
CQpub0Mikami 0:b811ec8a7e8a 31 8.934171E-03f, 4.488148E-03f, -1.062401E-03f, -7.182842E-03f, -1.321242E-02f,
CQpub0Mikami 0:b811ec8a7e8a 32 -1.841506E-02f, -2.204769E-02f, -2.343209E-02f, -2.202840E-02f, -1.749386E-02f,
CQpub0Mikami 0:b811ec8a7e8a 33 -9.730157E-03f, 1.092382E-03f, 1.453105E-02f, 2.989524E-02f, 4.629194E-02f,
CQpub0Mikami 0:b811ec8a7e8a 34 6.269474E-02f, 7.802411E-02f, 9.123583E-02f, 1.014078E-01f, 1.078185E-01f,
CQpub0Mikami 0:b811ec8a7e8a 35 1.100078E-01f, 1.078185E-01f, 1.014078E-01f, 9.123583E-02f, 7.802411E-02f,
CQpub0Mikami 0:b811ec8a7e8a 36 6.269474E-02f, 4.629194E-02f, 2.989524E-02f, 1.453105E-02f, 1.092382E-03f,
CQpub0Mikami 0:b811ec8a7e8a 37 -9.730157E-03f, -1.749386E-02f, -2.202840E-02f, -2.343209E-02f, -2.204769E-02f,
CQpub0Mikami 0:b811ec8a7e8a 38 -1.841506E-02f, -1.321242E-02f, -7.182842E-03f, -1.062401E-03f, 4.488148E-03f,
CQpub0Mikami 0:b811ec8a7e8a 39 8.934171E-03f, 1.191081E-02f, 1.324389E-02f, 1.295107E-02f, 1.121444E-02f,
CQpub0Mikami 0:b811ec8a7e8a 40 8.361672E-03f, 4.809328E-03f, 1.010693E-03f, -2.585050E-03f, -5.594939E-03f,
CQpub0Mikami 0:b811ec8a7e8a 41 -7.725336E-03f, -8.807067E-03f, -8.797770E-03f, -7.781761E-03f, -5.948320E-03f,
CQpub0Mikami 0:b811ec8a7e8a 42 -3.565645E-03f, -9.435526E-04f, 1.602121E-03f, 3.786968E-03f, 5.386359E-03f,
CQpub0Mikami 0:b811ec8a7e8a 43 6.257734E-03f, 6.350451E-03f, 5.706155E-03f, 4.447251E-03f, 2.758435E-03f,
CQpub0Mikami 0:b811ec8a7e8a 44 8.616354E-04f, -1.012065E-03f, -2.648668E-03f, -3.875274E-03f, -4.577073E-03f,
CQpub0Mikami 0:b811ec8a7e8a 45 -4.705797E-03f, -4.284042E-03f, -3.393601E-03f, -2.167773E-03f, -7.684087E-04f,
CQpub0Mikami 0:b811ec8a7e8a 46 6.322899E-04f, 1.872141E-03f, 2.817894E-03f, 3.379365E-03f, 3.515095E-03f,
CQpub0Mikami 0:b811ec8a7e8a 47 3.235972E-03f, 2.600376E-03f, 1.704594E-03f, 6.680631E-04f, -3.802110E-04f,
CQpub0Mikami 0:b811ec8a7e8a 48 -1.317959E-03f, -2.043447E-03f, -2.486610E-03f, -2.613837E-03f, -2.430574E-03f,
CQpub0Mikami 0:b811ec8a7e8a 49 -1.978121E-03f, -1.326518E-03f, -5.640853E-04f, 2.130115E-04f, 9.143371E-04f,
CQpub0Mikami 0:b811ec8a7e8a 50 1.463100E-03f, 1.805744E-03f, 1.916527E-03f, 1.798055E-03f, 1.480161E-03f,
CQpub0Mikami 0:b811ec8a7e8a 51 1.013316E-03f, 4.621914E-04f, -1.029986E-04f, -6.155554E-04f, -1.018960E-03f,
CQpub0Mikami 0:b811ec8a7e8a 52 -1.273725E-03f, -1.360180E-03f, -1.279654E-03f, -1.051992E-03f, -7.123405E-04f,
CQpub0Mikami 0:b811ec8a7e8a 53 -3.047488E-04f, 1.236180E-04f, 5.296940E-04f, 8.803014E-04f, 1.157961E-03f,
CQpub0Mikami 0:b811ec8a7e8a 54 1.364066E-03f, 1.522689E-03f, 1.681921E-03f, 1.917338E-03f, 2.335185E-03f,
CQpub0Mikami 0:b811ec8a7e8a 55 -3.566292E-03f};
CQpub0Mikami 0:b811ec8a7e8a 56