Mercurial > hg > camir-aes2014
annotate toolboxes/MIRtoolbox1.3.2/MIRToolboxDemos/demo6curves.m @ 0:e9a9cd732c1e tip
first hg version after svn
| author | wolffd |
|---|---|
| date | Tue, 10 Feb 2015 15:05:51 +0000 |
| parents | |
| children |
| rev | line source |
|---|---|
| wolffd@0 | 1 function demo6curves(file) |
| wolffd@0 | 2 % Example of use of curve analysis tools, such as moment estimations. |
| wolffd@0 | 3 |
| wolffd@0 | 4 if nargin == 0 |
| wolffd@0 | 5 file = 'trumpet'; |
| wolffd@0 | 6 end |
| wolffd@0 | 7 |
| wolffd@0 | 8 s = mirspectrum(file) |
| wolffd@0 | 9 mircentroid(s) |
| wolffd@0 | 10 mirspread(s) |
| wolffd@0 | 11 mirskewness(s) |
| wolffd@0 | 12 mirkurtosis(s) |
| wolffd@0 | 13 mirflatness(s) |
| wolffd@0 | 14 mirregularity(s) |
| wolffd@0 | 15 mirentropy(s) |
| wolffd@0 | 16 clear s |
| wolffd@0 | 17 |
| wolffd@0 | 18 e = mirenvelope(file) |
| wolffd@0 | 19 mircentroid(e) |
| wolffd@0 | 20 mirspread(e) |
| wolffd@0 | 21 mirskewness(e) |
| wolffd@0 | 22 mirkurtosis(e) |
| wolffd@0 | 23 mirflatness(e) |
| wolffd@0 | 24 mirentropy(e) |
| wolffd@0 | 25 |
| wolffd@0 | 26 display('Strike any key to continue...'); |
| wolffd@0 | 27 pause |
| wolffd@0 | 28 close all |
| wolffd@0 | 29 |
| wolffd@0 | 30 s = mirspectrum(file,'Frame',.1,1) |
| wolffd@0 | 31 mircentroid(s) |
| wolffd@0 | 32 mirspread(s) |
| wolffd@0 | 33 mirskewness(s) |
| wolffd@0 | 34 mirkurtosis(s) |
| wolffd@0 | 35 mirflatness(s) |
| wolffd@0 | 36 mirregularity(s) |
| wolffd@0 | 37 mirentropy(s) |
| wolffd@0 | 38 clear s |
| wolffd@0 | 39 |
| wolffd@0 | 40 display('Strike any key to continue...'); |
| wolffd@0 | 41 pause |
| wolffd@0 | 42 close all |
| wolffd@0 | 43 |
| wolffd@0 | 44 fe = mirframe(e,.1,1) |
| wolffd@0 | 45 clear e |
| wolffd@0 | 46 mircentroid(fe) |
| wolffd@0 | 47 mirspread(fe) |
| wolffd@0 | 48 mirskewness(fe) |
| wolffd@0 | 49 mirkurtosis(fe) |
| wolffd@0 | 50 mirflatness(fe) |
| wolffd@0 | 51 mirentropy(fe) |
| wolffd@0 | 52 clear fe |
| wolffd@0 | 53 |
| wolffd@0 | 54 display('Strike any key to continue...'); |
| wolffd@0 | 55 pause |
| wolffd@0 | 56 close all |
| wolffd@0 | 57 |
| wolffd@0 | 58 if nargin == 0 |
| wolffd@0 | 59 file = 'czardas'; |
| wolffd@0 | 60 end |
| wolffd@0 | 61 t = mirtempo(file,'Periodicity','Frame') |
| wolffd@0 | 62 h = mirhisto(t) |
| wolffd@0 | 63 clear t |
| wolffd@0 | 64 mircentroid(h) |
| wolffd@0 | 65 mirspread(h) |
| wolffd@0 | 66 mirskewness(h) |
| wolffd@0 | 67 mirkurtosis(h) |
| wolffd@0 | 68 mirflatness(h) |