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