Daniel@0: function demo5export
Daniel@0: % Example of use of the export function.
Daniel@0: % For more examples, cf. mirfeatures.
Daniel@0: 
Daniel@0: s = mirspectrum('Folder');
Daniel@0: if not(isempty(get(s,'Data')))
Daniel@0:     ch = mirchromagram(s);
Daniel@0:     k = mirkeystrength(ch);
Daniel@0:     %h = mirhisto(k);
Daniel@0:     e = mirenvelope('Folder');
Daniel@0:     d = mirenvelope(e,'Diff');
Daniel@0:     mirexport('NoFrameNoPeaks.txt',ch,k);
Daniel@0: 
Daniel@0:     ch = mirpeaks(ch,'Total',1);
Daniel@0:     k = mirpeaks(k,'Total',1);
Daniel@0:     %h = mirpeaks(h);
Daniel@0:     e = mirpeaks(e,'Total',1);
Daniel@0:     d = mirpeaks(d,'Total',1);
Daniel@0:     mirexport('NoFrameButPeaks.txt',ch,k,e,d);
Daniel@0:     clear ch k e d
Daniel@0:     
Daniel@0:     ac = mirautocor('Folder','Frame',.5,.2);
Daniel@0:     s = mirspectrum('Folder','Frame',.5,.2);
Daniel@0:     sf = mirflux(s);
Daniel@0:     ms = mirspectrum(s,'Mel');
Daniel@0:     m = mirmfcc(ms);
Daniel@0:     ch = mirchromagram(s);
Daniel@0:     k = mirkeystrength(ch);
Daniel@0:     %h = mirhisto(k);
Daniel@0:     e = mirenvelope('Folder','Frame',.5,.2);
Daniel@0:     d = mirenvelope(e,'Diff');
Daniel@0:     mirexport('FrameNoPeaks.txt',ms,m,ch,k);
Daniel@0:     
Daniel@0:     ac = mirpeaks(ac,'Total',1,'NoBegin');
Daniel@0:     s = mirpeaks(s,'Total',1);
Daniel@0:     sf = mirpeaks(sf,'Total',1);
Daniel@0:     ms = mirpeaks(ms,'Total',1);
Daniel@0:     m = mirpeaks(m,'Total',1,'Interpol',0);
Daniel@0:     ch = mirpeaks(ch,'Total',1);
Daniel@0:     k = mirpeaks(k,'Total',1);
Daniel@0:     %h = mirpeaks(h)
Daniel@0:     e = mirpeaks(e,'Total',1);
Daniel@0:     d = mirpeaks(d,'Total',1);
Daniel@0:     mirexport('FrameAndPeaks.txt',ac,s,sf,ms,m,ch,k,e,d);
Daniel@0: end