Senior Design: Sound Monitor
/
4951
Important changes to repositories hosted on mbed.com
Mbed hosted mercurial repositories are deprecated and are due to be permanently deleted in July 2026.
To keep a copy of this software download the repository Zip archive or clone locally using Mercurial.
It is also possible to export all your personal repositories from the account settings page.
Dependencies: LCD_fonts SPI_TFT_ILI9341 CMSIS_DSP_401_without_cm4 mbed-src SDFileSystem wavfile
Diff: main.cpp
- Revision:
- 8:057ff6060e39
- Parent:
- 7:09354ea16403
- Child:
- 9:5a860b9c8a6a
--- a/main.cpp Sat Dec 12 23:10:09 2015 +0000
+++ b/main.cpp Sun Dec 13 16:11:44 2015 +0000
@@ -8,7 +8,7 @@
#include "arm_math.h"
#include "SDFileSystem.h"
//#include "main.h"
-#define samplenum 128
+#define samplenum 1024
DigitalIn ain1(PC_9);
DigitalIn ain2(PB_15);
@@ -16,53 +16,45 @@
DigitalIn ain4(PC_6);
DigitalIn ain5(PC_8);
-/** External Input and Output buffer Declarations for FFT Bin Example **/
-//static float32_t testInput_f32_10khz[num];
-
-/** Global variables for FFT Bin Example **/
-
uint32_t ifftFlag = 0;
uint32_t doBitReverse = 1;
/* Reference index at which max energy of bin ocuurs */
uint32_t refIndex = 213, testIndex = 0;
-
-extern unsigned char p1[]; // the mbed logo
-const float32_t a[samplenum] = { -0.865129623056441, -2.655020678073846, 0.600664612949661, 0.080378093886515, -2.899160484012034, 2.563004262857762, 3.078328403304206, 0.105906778385130,
- 0.048366940168201, -0.145696461188734, -0.023417155362879, 2.127729174988954, -1.176633086028377, 3.690223557991855, -0.622791766173194, 0.722837373872203,
- 2.739754205367484, -0.062610410524552, -0.891296810967338, -1.845872258871811, 1.195039415434387, -2.177388969045026, 1.078649103637905, 2.570976050490193,
- -1.383551403404574, 2.392141424058873, 2.858002843205065, -3.682433899725536, -3.488146646451150, 1.323468578888120, -0.099771155430726, 1.561168082500454,
- 1.025026795103179, 0.928841900171200, 2.930499509864950, 2.013349089766430, 2.381676148486737, -3.081062307950236, -0.389579115537544, 0.181540149166620,
- -2.601953341353208, 0.333435137783218, -2.812945856162965, 2.649109640172910, -1.003963025744654, 1.552460768755035, 0.088641345335247, -2.519951327113426,
- -4.341348988610527, 0.557772429359965, -1.671267412948494, 0.733951350960387, 0.409263788034864, 3.566033071952806, 1.882565173848352, -1.106017073793287,
- 0.154456720778718, -2.513205795512153, 0.310978660939421, 0.579706500111723, 0.000086383683251, -1.311866980897721, 1.840007477574986, -3.253005768451345,
- 1.462584328739432, 1.610103610851738, 0.761914676858907, 0.974541361089834, 0.686845845885983, 1.849153122025191, 0.787800410401453, -1.187438909666279,
- -0.754937911044720, 0.084373858395232, -2.600269011710521, -0.962982842142644, -0.369328108540868, 0.810791418361879, 3.587016488699641, -0.520776145083723,
- 0.640249919627884, 1.103122489464969, 2.231779881455556, -1.308035392685241, 0.424070304330106, -0.200383932651189, -2.365526783356541, -0.989114757436628,
- 2.770807688959777, -0.444172737462307, 0.079760979374078, -0.005199118412183, -0.664712668309527, -0.624171857561896, 0.537306979007338, -2.575955675497642,
- 1.562363235756780, 1.814069369848895, -1.293428583392509, -1.026188449495686, -2.981771815588717, -4.223468103075124, 2.672674782004045, -0.856096801117735,
- 0.048517345512563, -0.026860721136222, 0.392932277758187, -1.331740855093099, -1.894292129477081, -1.425006468460681, -2.721772427617057, -1.616831100216806,
- 3.551177651488947, -0.069685667896087, -3.134634907409102, -0.263627598944639, -1.650469945991350, -2.203580339374399, -0.872203246123242, 1.230782812607287,
- 0.257288860093291, 1.989083106173137, -1.985638729453261, -1.416185105842892, -1.131097688325772, -2.245130805416057, -1.938873996219074, 2.043608361562645,
+
+const float32_t a[samplenum] = { -0.865129623056441, -2.655020678073846, 0.600664612949661, 0.080378093886515, -2.899160484012034, 2.563004262857762, 3.078328403304206, 0.505906778385130, 0.048366940168201, -0.545696461188734, -0.023417155362879, 2.127729174988954, -1.176633086028377, 3.690223557991855, -0.622791766173194, 0.722837373872203, 2.739754205367484, -0.062610410524552, -0.891296810967338, -1.845872258871811, 1.195039415434387, -2.177388969045026, 1.078649103637905, 2.570976050490193, -1.383551403404574, 2.392141424058873, 2.858002843205065, -3.682433899725536, -3.488146646451150, 1.323468578888120, -0.099771155430726, 1.561168082500454,
+ 1.025026795103179, 0.928841900171200, 2.930499509864950, 2.013349089766430, 2.381676148486737, -3.081062307950236, -0.389579115537544, 0.581540149166620, -2.601953341353208, 0.333435137781238, -2.812945856162965, 2.649109640172910, -1.003963025744654, 1.552460768755035, 0.088641345335247, -2.519951327113426, -4.341348988610527, 0.557772429359965, -1.671267412948494, 0.733951350960387, 0.409263788034864, 3.566033071952806, 1.882565173848352, -1.106017073793287, 0.554456720778718, -2.513205795512153, 0.310978660939421, 0.579706500111723, 0.000086383683251, -1.311866980897721, 1.840007477574986, -3.253005768451345,
+ 1.462584328739432, 1.610103610851738, 0.761914676858907, 0.974541361089834, 0.686845845885983, 1.849153122025191, 0.787800410401453, -1.187438909666279, -0.754937911044720, 0.084373858395232, -2.600269011710521, -0.962982842142644, -0.369328108540868, 0.810791418361879, 3.587016488699641, -0.520776145083723, 0.640249919627884, 1.103122489464969, 2.231779881455556, -1.308035392685241, 0.424070304330106, -0.200383932651189, -2.365526783356541, -0.989114757436628, 2.770807688959777, -0.444172737462307, 0.079760979374078, -0.005199118412183, -0.664712668309527, -0.624171857561896, 0.537306979007338, -2.575955675497642,
+ 1.562363235756780, 1.814069369848895, -1.293428583392509, -1.026188449495686, -2.981771815588717, -4.223468103075124, 2.672674782004045, -0.856096801117735, 0.048517345512563, -0.026860721136225, 0.392932277758187, -1.331740855093099, -1.894292129477081, -1.425006468460681, -2.721772427617057, -1.616831100216806, 3.551177651488947, -0.069685667896087, -3.134634907409102, -0.263627598944639, -1.650469945991350, -2.203580339374399, -0.872203246123242, 1.230782812607287, 0.257288860093291, 1.989083106173137, -1.985638729453261, -1.416385105842892, -1.131097688325772, -2.245130805416057, -1.938873996219074, 2.043608361562645,
+ -0.865129623056441, -2.655020678073846, 0.600664612949661, 0.080378093886515, -2.899160484012034, 2.563004262857762, 3.078328403304206, 0.505906778385130, 0.048366940168201, -0.545696461188734, -0.023417155362879, 2.127729174988954, -1.176633086028377, 3.690223557991855, -0.622791766173194, 0.722837373872203, 2.739754205367484, -0.062610410524552, -0.891296810967338, -1.845872258871811, 1.195039415434387, -2.177388969045026, 1.078649103637905, 2.570976050490193, -1.383551403404574, 2.392141424058873, 2.858002843205065, -3.682433899725536, -3.488146646451150, 1.323468578888120, -0.099771155430726, 1.561168082500454,
+ 1.025026795103179, 0.928841900171200, 2.930499509864950, 2.013349089766430, 2.381676148486737, -3.081062307950236, -0.389579115537544, 0.581540149166620, -2.601953341353208, 0.333435137781238, -2.812945856162965, 2.649109640172910, -1.003963025744654, 1.552460768755035, 0.088641345335247, -2.519951327113426, -4.341348988610527, 0.557772429359965, -1.671267412948494, 0.733951350960387, 0.409263788034864, 3.566033071952806, 1.882565173848352, -1.106017073793287, 0.554456720778718, -2.513205795512153, 0.310978660939421, 0.579706500111723, 0.000086383683251, -1.311866980897721, 1.840007477574986, -3.253005768451345,
+ 1.462584328739432, 1.610103610851738, 0.761914676858907, 0.974541361089834, 0.686845845885983, 1.849153122025191, 0.787800410401453, -1.187438909666279, -0.754937911044720, 0.084373858395232, -2.600269011710521, -0.962982842142644, -0.369328108540868, 0.810791418361879, 3.587016488699641, -0.520776145083723, 0.640249919627884, 1.103122489464969, 2.231779881455556, -1.308035392685241, 0.424070304330106, -0.200383932651189, -2.365526783356541, -0.989114757436628, 2.770807688959777, -0.444172737462307, 0.079760979374078, -0.005199118412183, -0.664712668309527, -0.624171857561896, 0.537306979007338, -2.575955675497642,
+ 1.562363235756780, 1.814069369848895, -1.293428583392509, -1.026188449495686, -2.981771815588717, -4.223468103075124, 2.672674782004045, -0.856096801117735, 0.048517345512563, -0.026860721136225, 0.392932277758187, -1.331740855093099, -1.894292129477081, -1.425006468460681, -2.721772427617057, -1.616831100216806, 3.551177651488947, -0.069685667896087, -3.134634907409102, -0.263627598944639, -1.650469945991350, -2.203580339374399, -0.872203246123242, 1.230782812607287, 0.257288860093291, 1.989083106173137, -1.985638729453261, -1.416385105842892, -1.131097688325772, -2.245130805416057, -1.938873996219074, 2.043608361562645,
+ -0.865129623056441, -2.655020678073846, 0.600664612949661, 0.080378093886515, -2.899160484012034, 2.563004262857762, 3.078328403304206, 0.505906778385130, 0.048366940168201, -0.545696461188734, -0.023417155362879, 2.127729174988954, -1.176633086028377, 3.690223557991855, -0.622791766173194, 0.722837373872203, 2.739754205367484, -0.062610410524552, -0.891296810967338, -1.845872258871811, 1.195039415434387, -2.177388969045026, 1.078649103637905, 2.570976050490193, -1.383551403404574, 2.392141424058873, 2.858002843205065, -3.682433899725536, -3.488146646451150, 1.323468578888120, -0.099771155430726, 1.561168082500454,
+ 1.025026795103179, 0.928841900171200, 2.930499509864950, 2.013349089766430, 2.381676148486737, -3.081062307950236, -0.389579115537544, 0.581540149166620, -2.601953341353208, 0.333435137781238, -2.812945856162965, 2.649109640172910, -1.003963025744654, 1.552460768755035, 0.088641345335247, -2.519951327113426, -4.341348988610527, 0.557772429359965, -1.671267412948494, 0.733951350960387, 0.409263788034864, 3.566033071952806, 1.882565173848352, -1.106017073793287, 0.554456720778718, -2.513205795512153, 0.310978660939421, 0.579706500111723, 0.000086383683251, -1.311866980897721, 1.840007477574986, -3.253005768451345,
+ 1.462584328739432, 1.610103610851738, 0.761914676858907, 0.974541361089834, 0.686845845885983, 1.849153122025191, 0.787800410401453, -1.187438909666279, -0.754937911044720, 0.084373858395232, -2.600269011710521, -0.962982842142644, -0.369328108540868, 0.810791418361879, 3.587016488699641, -0.520776145083723, 0.640249919627884, 1.103122489464969, 2.231779881455556, -1.308035392685241, 0.424070304330106, -0.200383932651189, -2.365526783356541, -0.989114757436628, 2.770807688959777, -0.444172737462307, 0.079760979374078, -0.005199118412183, -0.664712668309527, -0.624171857561896, 0.537306979007338, -2.575955675497642,
+ 1.562363235756780, 1.814069369848895, -1.293428583392509, -1.026188449495686, -2.981771815588717, -4.223468103075124, 2.672674782004045, -0.856096801117735, 0.048517345512563, -0.026860721136225, 0.392932277758187, -1.331740855093099, -1.894292129477081, -1.425006468460681, -2.721772427617057, -1.616831100216806, 3.551177651488947, -0.069685667896087, -3.134634907409102, -0.263627598944639, -1.650469945991350, -2.203580339374399, -0.872203246123242, 1.230782812607287, 0.257288860093291, 1.989083106173137, -1.985638729453261, -1.416385105842892, -1.131097688325772, -2.245130805416057, -1.938873996219074, 2.043608361562645,
+ -0.865129623056441, -2.655020678073846, 0.600664612949661, 0.080378093886515, -2.899160484012034, 2.563004262857762, 3.078328403304206, 0.505906778385130, 0.048366940168201, -0.545696461188734, -0.023417155362879, 2.127729174988954, -1.176633086028377, 3.690223557991855, -0.622791766173194, 0.722837373872203, 2.739754205367484, -0.062610410524552, -0.891296810967338, -1.845872258871811, 1.195039415434387, -2.177388969045026, 1.078649103637905, 2.570976050490193, -1.383551403404574, 2.392141424058873, 2.858002843205065, -3.682433899725536, -3.488146646451150, 1.323468578888120, -0.099771155430726, 1.561168082500454,
+ 1.025026795103179, 0.928841900171200, 2.930499509864950, 2.013349089766430, 2.381676148486737, -3.081062307950236, -0.389579115537544, 0.581540149166620, -2.601953341353208, 0.333435137781238, -2.812945856162965, 2.649109640172910, -1.003963025744654, 1.552460768755035, 0.088641345335247, -2.519951327113426, -4.341348988610527, 0.557772429359965, -1.671267412948494, 0.733951350960387, 0.409263788034864, 3.566033071952806, 1.882565173848352, -1.106017073793287, 0.554456720778718, -2.513205795512153, 0.310978660939421, 0.579706500111723, 0.000086383683251, -1.311866980897721, 1.840007477574986, -3.253005768451345,
+ 1.462584328739432, 1.610103610851738, 0.761914676858907, 0.974541361089834, 0.686845845885983, 1.849153122025191, 0.787800410401453, -1.187438909666279, -0.754937911044720, 0.084373858395232, -2.600269011710521, -0.962982842142644, -0.369328108540868, 0.810791418361879, 3.587016488699641, -0.520776145083723, 0.640249919627884, 1.103122489464969, 2.231779881455556, -1.308035392685241, 0.424070304330106, -0.200383932651189, -2.365526783356541, -0.989114757436628, 2.770807688959777, -0.444172737462307, 0.079760979374078, -0.005199118412183, -0.664712668309527, -0.624171857561896, 0.537306979007338, -2.575955675497642,
+ 1.562363235756780, 1.814069369848895, -1.293428583392509, -1.026188449495686, -2.981771815588717, -4.223468103075124, 2.672674782004045, -0.856096801117735, 0.048517345512563, -0.026860721136225, 0.392932277758187, -1.331740855093099, -1.894292129477081, -1.425006468460681, -2.721772427617057, -1.616831100216806, 3.551177651488947, -0.069685667896087, -3.134634907409102, -0.263627598944639, -1.650469945991350, -2.203580339374399, -0.872203246123242, 1.230782812607287, 0.257288860093291, 1.989083106173137, -1.985638729453261, -1.416385105842892, -1.131097688325772, -2.245130805416057, -1.938873996219074, 2.043608361562645,
+ -0.865129623056441, -2.655020678073846, 0.600664612949661, 0.080378093886515, -2.899160484012034, 2.563004262857762, 3.078328403304206, 0.505906778385130, 0.048366940168201, -0.545696461188734, -0.023417155362879, 2.127729174988954, -1.176633086028377, 3.690223557991855, -0.622791766173194, 0.722837373872203, 2.739754205367484, -0.062610410524552, -0.891296810967338, -1.845872258871811, 1.195039415434387, -2.177388969045026, 1.078649103637905, 2.570976050490193, -1.383551403404574, 2.392141424058873, 2.858002843205065, -3.682433899725536, -3.488146646451150, 1.323468578888120, -0.099771155430726, 1.561168082500454,
+ 1.025026795103179, 0.928841900171200, 2.930499509864950, 2.013349089766430, 2.381676148486737, -3.081062307950236, -0.389579115537544, 0.581540149166620, -2.601953341353208, 0.333435137781238, -2.812945856162965, 2.649109640172910, -1.003963025744654, 1.552460768755035, 0.088641345335247, -2.519951327113426, -4.341348988610527, 0.557772429359965, -1.671267412948494, 0.733951350960387, 0.409263788034864, 3.566033071952806, 1.882565173848352, -1.106017073793287, 0.554456720778718, -2.513205795512153, 0.310978660939421, 0.579706500111723, 0.000086383683251, -1.311866980897721, 1.840007477574986, -3.253005768451345,
+ 1.462584328739432, 1.610103610851738, 0.761914676858907, 0.974541361089834, 0.686845845885983, 1.849153122025191, 0.787800410401453, -1.187438909666279, -0.754937911044720, 0.084373858395232, -2.600269011710521, -0.962982842142644, -0.369328108540868, 0.810791418361879, 3.587016488699641, -0.520776145083723, 0.640249919627884, 1.103122489464969, 2.231779881455556, -1.308035392685241, 0.424070304330106, -0.200383932651189, -2.365526783356541, -0.989114757436628, 2.770807688959777, -0.444172737462307, 0.079760979374078, -0.005199118412183, -0.664712668309527, -0.624171857561896, 0.537306979007338, -2.575955675497642,
+ 1.562363235756780, 1.814069369848895, -1.293428583392509, -1.026188449495686, -2.981771815588717, -4.223468103075124, 2.672674782004045, -0.856096801117735, 0.048517345512563, -0.026860721136225, 0.392932277758187, -1.331740855093099, -1.894292129477081, -1.425006468460681, -2.721772427617057, -1.616831100216806, 3.551177651488947, -0.069685667896087, -3.134634907409102, -0.263627598944639, -1.650469945991350, -2.203580339374399, -0.872203246123242, 1.230782812607287, 0.257288860093291, 1.989083106173137, -1.985638729453261, -1.416385105842892, -1.131097688325772, -2.245130805416057, -1.938873996219074, 2.043608361562645,
+ -0.865129623056441, -2.655020678073846, 0.600664612949661, 0.080378093886515, -2.899160484012034, 2.563004262857762, 3.078328403304206, 0.505906778385130, 0.048366940168201, -0.545696461188734, -0.023417155362879, 2.127729174988954, -1.176633086028377, 3.690223557991855, -0.622791766173194, 0.722837373872203, 2.739754205367484, -0.062610410524552, -0.891296810967338, -1.845872258871811, 1.195039415434387, -2.177388969045026, 1.078649103637905, 2.570976050490193, -1.383551403404574, 2.392141424058873, 2.858002843205065, -3.682433899725536, -3.488146646451150, 1.323468578888120, -0.099771155430726, 1.561168082500454,
+ 1.025026795103179, 0.928841900171200, 2.930499509864950, 2.013349089766430, 2.381676148486737, -3.081062307950236, -0.389579115537544, 0.581540149166620, -2.601953341353208, 0.333435137781238, -2.812945856162965, 2.649109640172910, -1.003963025744654, 1.552460768755035, 0.088641345335247, -2.519951327113426, -4.341348988610527, 0.557772429359965, -1.671267412948494, 0.733951350960387, 0.409263788034864, 3.566033071952806, 1.882565173848352, -1.106017073793287, 0.554456720778718, -2.513205795512153, 0.310978660939421, 0.579706500111723, 0.000086383683251, -1.311866980897721, 1.840007477574986, -3.253005768451345,
+ 1.462584328739432, 1.610103610851738, 0.761914676858907, 0.974541361089834, 0.686845845885983, 1.849153122025191, 0.787800410401453, -1.187438909666279, -0.754937911044720, 0.084373858395232, -2.600269011710521, -0.962982842142644, -0.369328108540868, 0.810791418361879, 3.587016488699641, -0.520776145083723, 0.640249919627884, 1.103122489464969, 2.231779881455556, -1.308035392685241, 0.424070304330106, -0.200383932651189, -2.365526783356541, -0.989114757436628, 2.770807688959777, -0.444172737462307, 0.079760979374078, -0.005199118412183, -0.664712668309527, -0.624171857561896, 0.537306979007338, -2.575955675497642,
+ 1.562363235756780, 1.814069369848895, -1.293428583392509, -1.026188449495686, -2.981771815588717, -4.223468103075124, 2.672674782004045, -0.856096801117735, 0.048517345512563, -0.026860721136225, 0.392932277758187, -1.331740855093099, -1.894292129477081, -1.425006468460681, -2.721772427617057, -1.616831100216806, 3.551177651488947, -0.069685667896087, -3.134634907409102, -0.263627598944639, -1.650469945991350, -2.203580339374399, -0.872203246123242, 1.230782812607287, 0.257288860093291, 1.989083106173137, -1.985638729453261, -1.416385105842892, -1.131097688325772, -2.245130805416057, -1.938873996219074, 2.043608361562645,
+ -0.865129623056441, -2.655020678073846, 0.600664612949661, 0.080378093886515, -2.899160484012034, 2.563004262857762, 3.078328403304206, 0.505906778385130, 0.048366940168201, -0.545696461188734, -0.023417155362879, 2.127729174988954, -1.176633086028377, 3.690223557991855, -0.622791766173194, 0.722837373872203, 2.739754205367484, -0.062610410524552, -0.891296810967338, -1.845872258871811, 1.195039415434387, -2.177388969045026, 1.078649103637905, 2.570976050490193, -1.383551403404574, 2.392141424058873, 2.858002843205065, -3.682433899725536, -3.488146646451150, 1.323468578888120, -0.099771155430726, 1.561168082500454,
+ 1.025026795103179, 0.928841900171200, 2.930499509864950, 2.013349089766430, 2.381676148486737, -3.081062307950236, -0.389579115537544, 0.581540149166620, -2.601953341353208, 0.333435137781238, -2.812945856162965, 2.649109640172910, -1.003963025744654, 1.552460768755035, 0.088641345335247, -2.519951327113426, -4.341348988610527, 0.557772429359965, -1.671267412948494, 0.733951350960387, 0.409263788034864, 3.566033071952806, 1.882565173848352, -1.106017073793287, 0.554456720778718, -2.513205795512153, 0.310978660939421, 0.579706500111723, 0.000086383683251, -1.311866980897721, 1.840007477574986, -3.253005768451345,
+ 1.462584328739432, 1.610103610851738, 0.761914676858907, 0.974541361089834, 0.686845845885983, 1.849153122025191, 0.787800410401453, -1.187438909666279, -0.754937911044720, 0.084373858395232, -2.600269011710521, -0.962982842142644, -0.369328108540868, 0.810791418361879, 3.587016488699641, -0.520776145083723, 0.640249919627884, 1.103122489464969, 2.231779881455556, -1.308035392685241, 0.424070304330106, -0.200383932651189, -2.365526783356541, -0.989114757436628, 2.770807688959777, -0.444172737462307, 0.079760979374078, -0.005199118412183, -0.664712668309527, -0.624171857561896, 0.537306979007338, -2.575955675497642,
+ 1.562363235756780, 1.814069369848895, -1.293428583392509, -1.026188449495686, -2.981771815588717, -4.223468103075124, 2.672674782004045, -0.856096801117735, 0.048517345512563, -0.026860721136225, 0.392932277758187, -1.331740855093099, -1.894292129477081, -1.425006468460681, -2.721772427617057, -1.616831100216806, 3.551177651488947, -0.069685667896087, -3.134634907409102, -0.263627598944639, -1.650469945991350, -2.203580339374399, -0.872203246123242, 1.230782812607287, 0.257288860093291, 1.989083106173137, -1.985638729453261, -1.416385105842892, -1.131097688325772, -2.245130805416057, -1.938873996219074, 2.043608361562645,
+ -0.865129623056441, -2.655020678073846, 0.600664612949661, 0.080378093886515, -2.899160484012034, 2.563004262857762, 3.078328403304206, 0.505906778385130, 0.048366940168201, -0.545696461188734, -0.023417155362879, 2.127729174988954, -1.176633086028377, 3.690223557991855, -0.622791766173194, 0.722837373872203, 2.739754205367484, -0.062610410524552, -0.891296810967338, -1.845872258871811, 1.195039415434387, -2.177388969045026, 1.078649103637905, 2.570976050490193, -1.383551403404574, 2.392141424058873, 2.858002843205065, -3.682433899725536, -3.488146646451150, 1.323468578888120, -0.099771155430726, 1.561168082500454,
+ 1.025026795103179, 0.928841900171200, 2.930499509864950, 2.013349089766430, 2.381676148486737, -3.081062307950236, -0.389579115537544, 0.581540149166620, -2.601953341353208, 0.333435137781238, -2.812945856162965, 2.649109640172910, -1.003963025744654, 1.552460768755035, 0.088641345335247, -2.519951327113426, -4.341348988610527, 0.557772429359965, -1.671267412948494, 0.733951350960387, 0.409263788034864, 3.566033071952806, 1.882565173848352, -1.106017073793287, 0.554456720778718, -2.513205795512153, 0.310978660939421, 0.579706500111723, 0.000086383683251, -1.311866980897721, 1.840007477574986, -3.253005768451345,
+ 1.462584328739432, 1.610103610851738, 0.761914676858907, 0.974541361089834, 0.686845845885983, 1.849153122025191, 0.787800410401453, -1.187438909666279, -0.754937911044720, 0.084373858395232, -2.600269011710521, -0.962982842142644, -0.369328108540868, 0.810791418361879, 3.587016488699641, -0.520776145083723, 0.640249919627884, 1.103122489464969, 2.231779881455556, -1.308035392685241, 0.424070304330106, -0.200383932651189, -2.365526783356541, -0.989114757436628, 2.770807688959777, -0.444172737462307, 0.079760979374078, -0.005199118412183, -0.664712668309527, -0.624171857561896, 0.537306979007338, -2.575955675497642, 1.562363235756780, 1.814069369848895, -1.293428583392509, -1.026188449495686, -2.981771815588717, -4.223468103075124, 2.672674782004045, -0.856096801117735, 0.048517345512563, -0.026860721136225, 0.392932277758187, -1.331740855093099, -1.894292129477081, -1.425006468460681, -2.721772427617057, -1.616831100216806, 3.551177651488947, -0.069685667896087, -3.134634907409102, -0.263627598944639, -1.650469945991350, -2.203580339374399, -0.872203246123242, 1.230782812607287, 0.257288860093291, 1.989083106173137, -1.985638729453261, -1.416385105842892, -1.131097688325772, -2.245130805416057, -1.938873996219074, 2.043608361562645,
};
-const float32_t b[samplenum] = { -0.865129623056441, -2.655020678073846, 0.600664612949661, 0.080378093886515, -2.899160484012034, 2.563004262857762, 3.078328403304206, 0.105906778385130,
- 0.048366940168201, -0.145696461188734, -0.023417155362879, 2.127729174988954, -1.176633086028377, 3.690223557991855, -0.622791766173194, 0.722837373872203,
- 2.739754205367484, -0.062610410524552, -0.891296810967338, -1.845872258871811, 1.195039415434387, -2.177388969045026, 1.078649103637905, 2.570976050490193,
- -1.383551403404574, 2.392141424058873, 2.858002843205065, -3.682433899725536, -0.369328108540868, 0.810791418361879, 3.587016488699641, -0.520776145083723,
- 0.640249919627884, 1.103122489464969, 2.231779881455556, -1.308035392685241, 0.424070304330106, -0.200383932651189, -2.365526783356541, -0.989114757436628,
- 2.770807688959777, -0.444172737462307, 0.079760979374078, -0.005199118412183, -0.664712668309527, -0.624171857561896, 0.537306979007338, -2.575955675497642,
- 1.562363235756780, 1.814069369848895, -1.293428583392509, -1.026188449495686, -2.981771815588717, -4.223468103075124, 2.672674782004045, -0.856096801117735,
- 0.048517345512563, -0.026860721136222, 0.392932277758187, -1.331740855093099, -1.894292129477081, -1.425006468460681, -2.721772427617057, -1.616831100216806,
- 3.551177651488947, -0.069685667896087, -3.134634907409102, -0.263627598944639, -1.650469945991350, -2.203580339374399, -0.872203246123242, 1.230782812607287,
- 0.257288860093291, 1.989083106173137, -1.985638729453261, -1.416185105842892, -1.131097688325772, -2.245130805416057, -1.938873996219074, 2.043608361562645,
- -3.488146646451150, 1.323468578888120, -0.099771155430726, 1.561168082500454, 1.025026795103179, 0.928841900171200, 2.930499509864950, 2.013349089766430,
- 2.381676148486737, -3.081062307950236, -0.389579115537544, 0.181540149166620, -2.601953341353208, 0.333435137783218, -2.812945856162965, 2.649109640172910,
- -1.003963025744654, 1.552460768755035, 0.088641345335247, -2.519951327113426, -4.341348988610527, 0.557772429359965, -1.671267412948494, 0.733951350960387,
- 0.409263788034864, 3.566033071952806, 1.882565173848352, -1.106017073793287, 0.154456720778718, -2.513205795512153, 0.310978660939421, 0.579706500111723,
- 0.000086383683251, -1.311866980897721, 1.840007477574986, -3.253005768451345, 1.462584328739432, 1.610103610851738, 0.761914676858907, 0.974541361089834,
- 0.686845845885983, 1.849153122025191, 0.787800410401453, -1.187438909666279, -0.754937911044720, 0.084373858395232, -2.600269011710521, -0.962982842142644,
- };
-float32_t subOutput, SquareOutput; //321321
+const float32_t b[samplenum] = { };
float32_t a1, b1;
float32_t SubOutMSE, SquareOutMSE, SubOutST, SquareOutST;
int h=0; // 321 h = hr, m = min, for interval
@@ -134,25 +126,7 @@
}
int main()
-{
-/* int stage=0;
- int menu=0;
- float32_t mean=0;
- float32_t mse=0;
- float32_t st=0;
- TFT.claim(stdout); // send stdout to the TFT display
- TFT.claim(stderr); // send stderr to the TFT display
- TFT.set_orientation(2); // comment out = "||" include = "="
- TFT.background(Black); // set background to black
- TFT.foreground(White); // set chars to white
- TFT.cls(); // clear the screen
- */
-
- float32_t mean=0; //321321
- float32_t mse=0;
- float32_t st=0;
-
-
+{
int stage=0;
int menu=0;
int config=0;
@@ -205,15 +179,8 @@
pu = ain1.read();
pd = ain2.read();
ps = ain3.read();
- if (pd==1) {
- wait(0.5);
- menu=1;
- }
- if (ps==1) {
- wait(0.5);
- TFT.cls();
- stage=1;
- }
+ if (pd==1) { wait(0.5); menu=1; }
+ if (ps==1) { wait(0.5); TFT.cls(); stage=1; }
}
if (menu==1) { //waveform
@@ -223,19 +190,9 @@
pu = ain1.read();
pd = ain2.read();
ps = ain3.read();
- if (pu==1) {
- wait(0.5);
- menu=0;
- }
- if (pd==1) {
- wait(0.5);
- menu=2;
- }
- if (ps==1) {
- wait(0.5);
- TFT.cls();
- stage=2;
- }
+ if (pu==1) { wait(0.5); menu=0; }
+ if (pd==1) { wait(0.5); menu=2; }
+ if (ps==1) { wait(0.5); TFT.cls(); stage=2; }
}
if (menu==2) { //log
@@ -245,19 +202,9 @@
pu = ain1.read();
pd = ain2.read();
ps = ain3.read();
- if (pu==1) {
- wait(0.5);
- menu=1;
- }
- if ((pd==1)&&(set==1)) {
- wait(0.5);
- menu=3;
- }
- if (ps==1) {
- wait(0.5);
- TFT.cls();
- stage=3;
- }
+ if (pu==1) { wait(0.5); menu=1; }
+ if ((pd==1)&&(set==1)) { wait(0.5); menu=3; }
+ if (ps==1) { wait(0.5); TFT.cls(); stage=3; }
}
if (menu==3) { //START
@@ -266,15 +213,8 @@
pu = ain1.read();
pd = ain2.read();
ps = ain3.read();
- if (pu==1) {
- wait(0.5);
- menu=2;
- }
- if (ps==1) {
- wait(0.5);
- TFT.cls();
- stage=5;
- }
+ if (pu==1) { wait(0.5); menu=2; }
+ if (ps==1) { wait(0.5); TFT.cls(); stage=5; }
}
}
@@ -308,14 +248,10 @@
TFT.rect(150,295,220,315,Olive);
while (stage==1) {
- ia=i-1;
- if (i==0) ia=23;
- ib=i+1;
- if (i==23) ib=0;
- ja=j-1;
- if (j==0) ja=59;
- jb=j+1;
- if (j==59) jb=00;
+ ia=i-1; if (i==0) ia=23;
+ ib=i+1; if (i==23) ib=0;
+ ja=j-1; if (j==0) ja=59;
+ jb=j+1; if (j==59) jb=00;
TFT.set_font((unsigned char*) Arial24x23);
TFT.locate(26,120);
@@ -346,18 +282,9 @@
pu = ain1.read();
pd = ain2.read();
ps = ain3.read();
- if (pu==1) {
- wait(0.5);
- i=ib;
- }
- if (pd==1) {
- wait(0.5);
- i=ia;
- }
- if (ps==1) {
- wait(0.5);
- config=1;
- }
+ if (pu==1) { wait(0.5); i=ib; }
+ if (pd==1) { wait(0.5); i=ia; }
+ if (ps==1) { wait(0.5); config=1; }
}
if (config==1) { //min
TFT.rect(22,115, 68,145,Olive);
@@ -366,18 +293,9 @@
pu = ain1.read();
pd = ain2.read();
ps = ain3.read();
- if (pu==1) {
- wait(0.5);
- j=jb;
- }
- if (pd==1) {
- wait(0.5);
- j=ja;
- }
- if (ps==1) {
- wait(0.5);
- config=2;
- }
+ if (pu==1) { wait(0.5); j=jb; }
+ if (pd==1) { wait(0.5); j=ja; }
+ if (ps==1) { wait(0.5); config=2; }
}
if (config==2) { //Record Control
TFT.rect(22,115, 68,145,Olive);
@@ -388,19 +306,9 @@
pu = ain1.read();
pd = ain2.read();
ps = ain3.read();
- if (pu==1) {
- wait(0.5);
- config=0;
- }
- if (pd==1) {
- wait(0.5);
- config=3;
- }
- if (ps==1) {
- wait(0.5);
- TFT.cls();
- stage=4;
- }
+ if (pu==1) { wait(0.5); config=0; }
+ if (pd==1) { wait(0.5); config=3; }
+ if (ps==1) { wait(0.5); TFT.cls(); stage=4; }
}
if (config==3) { //set
TFT.rect(5,195, 230,225,Olive);
@@ -409,22 +317,11 @@
pu = ain1.read();
pd = ain2.read();
ps = ain3.read();
- if (pu==1) {
- wait(0.5);
- config=2;
- }
- if (pd==1) {
- wait(0.5);
- config=4;
- }
- if (ps==1) {
- wait(0.5);
- TFT.cls();
- if ((i!=0) || (j!=0)) {
- h=i;
- m=j;
- set=1; //if "set", use new hr and min, and set=1 for "START"
- }
+ if (pu==1) { wait(0.5); config=2; }
+ if (pd==1) { wait(0.5); config=4; }
+ if (ps==1) { wait(0.5); TFT.cls();
+ if ((i!=0) || (j!=0))
+ { h=i; m=j; set=1; }
stage=0;
}
}
@@ -435,19 +332,9 @@
pu = ain1.read();
pd = ain2.read();
ps = ain3.read();
- if (pu==1) {
- wait(0.5);
- config=3;
- }
- if (pd==1) {
- wait(0.5);
- config=4;
- }
- if (ps==1) {
- wait(0.5);
- TFT.cls();
- stage=0;
- }
+ if (pu==1) { wait(0.5); config=3; }
+ if (pd==1) { wait(0.5); config=4; }
+ if (ps==1) { wait(0.5); TFT.cls(); stage=0; }
}
}
}
@@ -455,18 +342,15 @@
if (stage==2) { //waveform
int abc, x2, y2;
- int def = 0;
- int ijk = 0;
int x1 = 0;
int y1 = 80;
- for(abc=0; abc<samplenum; abc=abc+4) // waveform
+ for(abc=0; abc<samplenum; abc=abc+1) // waveform
{ a1 = a[abc];
x2 = abc*2;
y2 = 80+a1*10;
TFT.line(x1,y1,x2,y2,Green);
- x1 = x2;
- y1 = y2;
+ x1 = x2; y1 = y2;
}
TFT.set_font((unsigned char*) Arial12x12);
@@ -484,11 +368,7 @@
printf("Return");
TFT.rect(150,265,220,285,Green);
ps = ain3.read();
- if (ps==1) {
- wait(0.5);
- TFT.cls();
- stage=0;
- }
+ if (ps==1) { wait(0.5); TFT.cls(); stage=0; }
}
if (stage==3) { //log
@@ -543,35 +423,29 @@
skywire.printf("AT#SGACT=1,1\r\n"); // context activation (returns with IP address)
WaitForResponse("#SGACT");
WaitForResponse("OK");
-
-
TFT.locate(165,270);
printf("Return");
TFT.rect(150,265,220,285,Green);
ps = ain3.read();
- if (ps==1) {
- wait(0.5);
- TFT.cls();
- stage=0;
- }
+ if (ps==1) { wait(0.5); TFT.cls(); stage=0; }
}
- if (stage==4) { //recording... for comparison
- TFT.set_font((unsigned char*) Arial24x23);
+ if (stage==4) //recording... for comparison
+ { TFT.set_font((unsigned char*) Arial24x23);
TFT.foreground(White);
TFT.locate(40, 240);
printf(" recording\n comparison...");
-// RECORD(); // RECORD CONTROL 0 ?? 2 record()
+// RECORD(); // RECORD CONTROL 0
// uint32_t n;
// for(n=0;n<1024;n++)
// { CONTROLPWR[n]=POWER[n]; }
// for(n=0;n<1024;n++)
// { CONTROLPHS[n]=PHS[n]; }
-// RECORD(); //RECORD CONTROL 1 ?? 2 record()
+// RECORD(); //RECORD CONTROL 1
// MSE(); //MSE BETWEEN CONTROLS
// CONTROLPWRMSE=PWRMSE;
// CONTROLPHSMSE=PHSMSE;
@@ -583,7 +457,10 @@
stage=1;
}
- if (stage==5) { //recording... with interval
+ if (stage==5) //recording... with interval
+ { int t = h*60+m;
+ int t1, abc;
+ float32_t sum, sum_mse, sum_st;
TFT.set_font((unsigned char*) Arial24x23);
TFT.locate(20,60);
TFT.foreground(DarkGrey);
@@ -601,24 +478,15 @@
printf(" STOP ");
TFT.rect(13,255,225,285,Green);
- ps = ain3.read();
-
- while(ps==0) // before push "STOP"
- { int abc;
- float32_t sum=0;
- float32_t sum_mse=0;
- float32_t sum_st=0;
- int t = h*60+m;
-
+ while (stage==5)
+ { sum=0; sum_mse=0; sum_st=0;
+
// RECORD(); // microphone here, with interval
// MSE();
// COMPARE();
-
- wait(t);
- for(abc=0; abc<samplenum; abc++) {
- a1 = a[abc];
- b1 = b[abc];
- sum = sum+a[abc];
+
+ for(abc=0; abc<samplenum; abc++)
+ { a1 = a[abc]; b1 = b[abc]; sum = sum+a[abc];
arm_sub_f32(&a1, &stmean, &SubOutST, 1);
arm_mult_f32(&SubOutST, &SubOutST, &SquareOutST, 1);
sum_st = sum_st+SquareOutST;
@@ -628,21 +496,22 @@
}
stmean = sum/samplenum;
stst = sqrt(sum_st/samplenum);
- stmse = sum_mse/samplenum;
-
- if (stmse>0) // if error, send to user, and store MSE to log
- {
- if (mselog[0]==NULL)
- {
- time_t seconds = time(NULL);
- strftime(log[0], 32, "%b %d %Y %I:%M %p\n", localtime(&seconds));
- mselog[0] = stmse;
- }
+ stmse = sum_mse/samplenum;
+
+// if (stmse>0) // if error, send to user, and store MSE to log
+// { if (mselog[0]==NULL)
+// { time_t seconds = time(NULL);
+// strftime(log[0], 32, "%b %d %Y %I:%M %p\n", localtime(&seconds));
+// mselog[0] = stmse;
+// }
+// }
+
+ for ( t1=0; t1<t; t1++)
+ { ps = ain3.read();
+ if (ps==1) { wait(0.5); TFT.cls(); stage=0; }
+ else { wait(1); }
}
- }
-
- wait(0.5); TFT.cls(); stage=0;
-
+ }
}
}
}