wolffd@0: function demo6curves(file)
wolffd@0: % Example of use of curve analysis tools, such as moment estimations.
wolffd@0: 
wolffd@0: if nargin == 0
wolffd@0:     file = 'trumpet';
wolffd@0: end
wolffd@0: 
wolffd@0: s = mirspectrum(file)
wolffd@0: mircentroid(s)
wolffd@0: mirspread(s)
wolffd@0: mirskewness(s)
wolffd@0: mirkurtosis(s)
wolffd@0: mirflatness(s)
wolffd@0: mirregularity(s)
wolffd@0: mirentropy(s)
wolffd@0: clear s
wolffd@0: 
wolffd@0: e = mirenvelope(file)
wolffd@0: mircentroid(e)
wolffd@0: mirspread(e)
wolffd@0: mirskewness(e)
wolffd@0: mirkurtosis(e)
wolffd@0: mirflatness(e)
wolffd@0: mirentropy(e)
wolffd@0: 
wolffd@0: display('Strike any key to continue...');
wolffd@0: pause
wolffd@0: close all
wolffd@0: 
wolffd@0: s = mirspectrum(file,'Frame',.1,1)
wolffd@0: mircentroid(s)
wolffd@0: mirspread(s)
wolffd@0: mirskewness(s)
wolffd@0: mirkurtosis(s)
wolffd@0: mirflatness(s)
wolffd@0: mirregularity(s)
wolffd@0: mirentropy(s)
wolffd@0: clear s
wolffd@0: 
wolffd@0: display('Strike any key to continue...');
wolffd@0: pause
wolffd@0: close all
wolffd@0: 
wolffd@0: fe = mirframe(e,.1,1)
wolffd@0: clear e
wolffd@0: mircentroid(fe)
wolffd@0: mirspread(fe)
wolffd@0: mirskewness(fe)
wolffd@0: mirkurtosis(fe)
wolffd@0: mirflatness(fe)
wolffd@0: mirentropy(fe)
wolffd@0: clear fe
wolffd@0: 
wolffd@0: display('Strike any key to continue...');
wolffd@0: pause
wolffd@0: close all
wolffd@0: 
wolffd@0: if nargin == 0
wolffd@0:     file = 'czardas';
wolffd@0: end
wolffd@0: t = mirtempo(file,'Periodicity','Frame')
wolffd@0: h = mirhisto(t)
wolffd@0: clear t
wolffd@0: mircentroid(h)
wolffd@0: mirspread(h)
wolffd@0: mirskewness(h)
wolffd@0: mirkurtosis(h)
wolffd@0: mirflatness(h)