Bart Vaart / Mbed 2 deprecated EMGfilter

Dependencies:   HIDScope mbed MODSERIAL

Committer:
Bartvaart
Date:
Thu Oct 08 13:55:30 2015 +0000
Revision:
11:17b1d5f5370b
Nieuw filter toegevoegd

Who changed what in which revision?

UserRevisionLine numberNew contents of line
Bartvaart 11:17b1d5f5370b 1 #include "Filterdesign2.h"
Bartvaart 11:17b1d5f5370b 2 #include "Filter.h"
Bartvaart 11:17b1d5f5370b 3 #include "Meanvalue.h"
Bartvaart 11:17b1d5f5370b 4
Bartvaart 11:17b1d5f5370b 5 // Inputwaardes
Bartvaart 11:17b1d5f5370b 6
Bartvaart 11:17b1d5f5370b 7
Bartvaart 11:17b1d5f5370b 8 //Notch 50Hz
Bartvaart 11:17b1d5f5370b 9
Bartvaart 11:17b1d5f5370b 10 // Filter1a: 50Hz Notch
Bartvaart 11:17b1d5f5370b 11 double v1_50a = 0, v2_50a = 0;
Bartvaart 11:17b1d5f5370b 12 const double a1_50a = -4.45738754850584, a2_50a = 0.0;
Bartvaart 11:17b1d5f5370b 13 const double b0_50a = 1.00000000000, b1_50a = -4.45738754850584, b2_50a = 0.0;
Bartvaart 11:17b1d5f5370b 14 const double gain_50a = 1.000000;
Bartvaart 11:17b1d5f5370b 15
Bartvaart 11:17b1d5f5370b 16 // Filter1b: 50Hz Notch
Bartvaart 11:17b1d5f5370b 17 double v1_50b = 0, v2_50b = 0;
Bartvaart 11:17b1d5f5370b 18 const double a1_50b = 6.24687974012662, a2_50b = 9.7558766219011;
Bartvaart 11:17b1d5f5370b 19 const double b0_50b = 1.00000000000, b1_50b = 6.24687974012659, b2_50b = 9.75279168287705;
Bartvaart 11:17b1d5f5370b 20 const double gain_50b = 1.0;
Bartvaart 11:17b1d5f5370b 21
Bartvaart 11:17b1d5f5370b 22 // Filter1c: 50Hz Notch
Bartvaart 11:17b1d5f5370b 23 double v1_50c = 0, v2_50c = 0;
Bartvaart 11:17b1d5f5370b 24 const double a1_50c = -1.93013451976033, a2_50c = 0.931354816092608;
Bartvaart 11:17b1d5f5370b 25 const double b0_50c = 1.00000000000, b1_50c = -1.9313551886007, b2_50c = 0.931355188600704;
Bartvaart 11:17b1d5f5370b 26 const double gain_50c = 1.0;
Bartvaart 11:17b1d5f5370b 27
Bartvaart 11:17b1d5f5370b 28
Bartvaart 11:17b1d5f5370b 29 //HighPass 20Hz
Bartvaart 11:17b1d5f5370b 30
Bartvaart 11:17b1d5f5370b 31 // Filter2a: 20Hz HighPass
Bartvaart 11:17b1d5f5370b 32 double v1_HPa = 0, v2_HPa = 0;
Bartvaart 11:17b1d5f5370b 33 const double a1_HPa = 1.67405904258534, a2_HPa = 0.0;
Bartvaart 11:17b1d5f5370b 34 const double b0_HPa = 1.00000000000, b1_HPa = 1.64732093404315, b2_HPa = 0.00000000000;
Bartvaart 11:17b1d5f5370b 35 const double gain_HPa = 0.510419;
Bartvaart 11:17b1d5f5370b 36
Bartvaart 11:17b1d5f5370b 37 // Filter2b: 20Hz HighPass
Bartvaart 11:17b1d5f5370b 38 double v1_HPb = 0, v2_HPb = 0;
Bartvaart 11:17b1d5f5370b 39 const double a1_HPb = -1.67405904258534, a2_HPb = 0.70061841951544;
Bartvaart 11:17b1d5f5370b 40 const double b0_HPb = 1.00000000000, b1_HPb = -1.70079715112754, b2_HPb = 0.700797151127544;
Bartvaart 11:17b1d5f5370b 41 const double gain_HPb = 1.0;
Bartvaart 11:17b1d5f5370b 42
Bartvaart 11:17b1d5f5370b 43
Bartvaart 11:17b1d5f5370b 44 //LowPass 3Hz
Bartvaart 11:17b1d5f5370b 45
Bartvaart 11:17b1d5f5370b 46 // Filter3a: 3Hz LowPass
Bartvaart 11:17b1d5f5370b 47 double v1_LPa = 0, v2_LPa = 0;
Bartvaart 11:17b1d5f5370b 48 const double a1_LPa = -0.000346314708316864, a2_LPa = 0.0;
Bartvaart 11:17b1d5f5370b 49 const double b0_LPa = 1.00000000000, b1_LPa = 1.94667622076668, b2_LPa = 0.00000000000;
Bartvaart 11:17b1d5f5370b 50 const double gain_LPa = 1.0;
Bartvaart 11:17b1d5f5370b 51
Bartvaart 11:17b1d5f5370b 52 // Filter3b: 3Hz LowPass
Bartvaart 11:17b1d5f5370b 53 double v1_LPb = 0, v2_LPb = 0;
Bartvaart 11:17b1d5f5370b 54 const double a1_LPb = -0.00103894412495059, a2_LPb = 2.39867754393189e-07;
Bartvaart 11:17b1d5f5370b 55 const double b0_LPb = 1.00000000000, b1_LPb = -1.94806147959995, b2_LPb = 0.94806147959995;
Bartvaart 11:17b1d5f5370b 56 const double gain_LPb = 1.0;
Bartvaart 11:17b1d5f5370b 57
Bartvaart 11:17b1d5f5370b 58
Bartvaart 11:17b1d5f5370b 59
Bartvaart 11:17b1d5f5370b 60 // constante variabelen:
Bartvaart 11:17b1d5f5370b 61
Bartvaart 11:17b1d5f5370b 62 double gem = 0.4557; // gemiddelde waarde emgsignaal
Bartvaart 11:17b1d5f5370b 63
Bartvaart 11:17b1d5f5370b 64 //gemiddelde bepalen
Bartvaart 11:17b1d5f5370b 65 double sum = 0;
Bartvaart 11:17b1d5f5370b 66 int a = 0;
Bartvaart 11:17b1d5f5370b 67 int delay = 40;
Bartvaart 11:17b1d5f5370b 68 int samples_length = 10;
Bartvaart 11:17b1d5f5370b 69
Bartvaart 11:17b1d5f5370b 70
Bartvaart 11:17b1d5f5370b 71 void Filterdesign1(double u, double &y, double &ymean)
Bartvaart 11:17b1d5f5370b 72 {
Bartvaart 11:17b1d5f5370b 73 //u = input waarde
Bartvaart 11:17b1d5f5370b 74 //y = output waarde
Bartvaart 11:17b1d5f5370b 75
Bartvaart 11:17b1d5f5370b 76 u = u - gem; // lees waarde van emg signaal uit
Bartvaart 11:17b1d5f5370b 77
Bartvaart 11:17b1d5f5370b 78 // Op deze manier worden de waardes ingelezen in Filter. Zorg dus voor dezelfde volgorde, zodat de waardes goed uitgelezen worden!:
Bartvaart 11:17b1d5f5370b 79 // Filter(double u, double &v1, double &v2, const double a1, const double a2, const double b0, const double b1, const double b2, const double gain)
Bartvaart 11:17b1d5f5370b 80
Bartvaart 11:17b1d5f5370b 81 // 50Hz Notch filter
Bartvaart 11:17b1d5f5370b 82 double y50a = Filter(u, v1_50a, v2_50a, a1_50a, a2_50a, b0_50a, b1_50a, b2_50a, gain_50a);
Bartvaart 11:17b1d5f5370b 83 double y50b = Filter(y50a, v1_50b, v2_50b, a1_50b, a2_50b, b0_50b, b1_50b, b2_50b, gain_50b);
Bartvaart 11:17b1d5f5370b 84 double y50c = Filter(y50b, v1_50c, v2_50c, a1_50c, a2_50c, b0_50c, b1_50c, b2_50c, gain_50c);
Bartvaart 11:17b1d5f5370b 85
Bartvaart 11:17b1d5f5370b 86 // High Pass filter. Tot 20Hz wordt weggefliterd
Bartvaart 11:17b1d5f5370b 87 double yHPa = Filter(y50c, v1_HPa, v2_HPa, a1_HPa, a2_HPa, b0_HPa, b1_HPa, b2_HPa, gain_HPa);
Bartvaart 11:17b1d5f5370b 88 double yHPb = Filter(yHPa, v1_HPb, v2_HPb, a1_HPb, a2_HPb, b0_HPb, b1_HPb, b2_HPb, gain_HPb);
Bartvaart 11:17b1d5f5370b 89
Bartvaart 11:17b1d5f5370b 90 // Absolute waarde wordt genomen.
Bartvaart 11:17b1d5f5370b 91 double y1 = fabs(yHPb);
Bartvaart 11:17b1d5f5370b 92
Bartvaart 11:17b1d5f5370b 93 // Low Pass filter. Alles vanaf 5Hz wordt weggefilterd
Bartvaart 11:17b1d5f5370b 94 double yLPa = Filter(y1, v1_LPa, v2_LPa, a1_LPa, a2_LPa, b0_LPa, b1_LPa, b2_LPa, gain_LPa);
Bartvaart 11:17b1d5f5370b 95 double yLPb = Filter(yLPa, v1_LPb, v2_LPb, a1_LPb, a2_LPb, b0_LPb, b1_LPb, b2_LPb, gain_LPb);
Bartvaart 11:17b1d5f5370b 96
Bartvaart 11:17b1d5f5370b 97 y = yLPb;
Bartvaart 11:17b1d5f5370b 98
Bartvaart 11:17b1d5f5370b 99 //ymean = Meanvalue(y, sum, a, ymean, delay);
Bartvaart 11:17b1d5f5370b 100 ymean = Meansmooth(y, samples_length, ymean);
Bartvaart 11:17b1d5f5370b 101
Bartvaart 11:17b1d5f5370b 102 }