wolffd@0: %%%% SEGMENTATION
wolffd@0: 
wolffd@0: m = mirmfcc('valse_triste_happy','Rank',2:10,'Frame',0.05,1)
wolffd@0: sim = mirsimatrix(m)
wolffd@0: n = mirnovelty(sim,'KernelSize',150)
wolffd@0: p = mirpeaks(n,'Contrast',.1,'Total',Inf,'NoBegin','NoEnd')
wolffd@0: seg = mirsegment('valse_triste_happy',p)
wolffd@0: mirplay(seg)
wolffd@0: 
wolffd@0: display('Strike any key to continue...');
wolffd@0: pause
wolffd@0: close all
wolffd@0: 
wolffd@0: [seg p m a] = mirsegment('valse_triste_happy','MFCC',2:10,...
wolffd@0:                                 'KernelSize',150,'Contrast',.1)
wolffd@0:        
wolffd@0: display('Strike any key to continue...');
wolffd@0: pause
wolffd@0: close all
wolffd@0:                                 
wolffd@0: %%%% TEMPO
wolffd@0:                                 
wolffd@0: fb = mirfilterbank('czardas')
wolffd@0: %mirplay(fb)
wolffd@0: e = mirenvelope(fb) 
wolffd@0: de = mirenvelope(e,'Diff','Halfwave')
wolffd@0: s = mirsum(de,'Centered') 
wolffd@0: f = mirframe(s,3,.2);
wolffd@0: ac = mirautocor(s,'Resonance','Enhanced') 
wolffd@0: p = mirpeaks(ac,'Total',1) 
wolffd@0: t = mirtempo(p)
wolffd@0: 
wolffd@0: display('Strike any key to continue...');
wolffd@0: pause
wolffd@0: close all
wolffd@0: 
wolffd@0: [t,p] = mirtempo('czardas','Periodicity','Frame')
wolffd@0: h = mirhisto(t)
wolffd@0: 
wolffd@0: display('Strike any key to continue...');
wolffd@0: pause
wolffd@0: close all
wolffd@0: 
wolffd@0: %%%% TONALITY
wolffd@0: 
wolffd@0: c = mirchromagram('vivaldi','Frame',2) 
wolffd@0: k = mirkeystrength(c) 
wolffd@0: p = mirpeaks(k,'Total',1) 
wolffd@0: 
wolffd@0: [k,p] = mirkey('vivaldi','Frame',1)