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