Mercurial > hg > camir-ismir2012

annotate toolboxes/MIRtoolbox1.3.2/MIRToolboxDemos/mirdemo.m @ 0:cc4b1211e677 tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
initial commit to HG from Changeset: 646 (e263d8a21543) added further path and more save "camirversion.m"
author Daniel Wolff
date Fri, 19 Aug 2016 13:07:06 +0200
parents
children
rev   line source
Daniel@0 1 %%%% SEGMENTATION
Daniel@0 2
Daniel@0 3 m = mirmfcc('valse_triste_happy','Rank',2:10,'Frame',0.05,1)
Daniel@0 4 sim = mirsimatrix(m)
Daniel@0 5 n = mirnovelty(sim,'KernelSize',150)
Daniel@0 6 p = mirpeaks(n,'Contrast',.1,'Total',Inf,'NoBegin','NoEnd')
Daniel@0 7 seg = mirsegment('valse_triste_happy',p)
Daniel@0 8 mirplay(seg)
Daniel@0 9
Daniel@0 10 display('Strike any key to continue...');
Daniel@0 11 pause
Daniel@0 12 close all
Daniel@0 13
Daniel@0 14 [seg p m a] = mirsegment('valse_triste_happy','MFCC',2:10,...
Daniel@0 15 'KernelSize',150,'Contrast',.1)
Daniel@0 16
Daniel@0 17 display('Strike any key to continue...');
Daniel@0 18 pause
Daniel@0 19 close all
Daniel@0 20
Daniel@0 21 %%%% TEMPO
Daniel@0 22
Daniel@0 23 fb = mirfilterbank('czardas')
Daniel@0 24 %mirplay(fb)
Daniel@0 25 e = mirenvelope(fb)
Daniel@0 26 de = mirenvelope(e,'Diff','Halfwave')
Daniel@0 27 s = mirsum(de,'Centered')
Daniel@0 28 f = mirframe(s,3,.2);
Daniel@0 29 ac = mirautocor(s,'Resonance','Enhanced')
Daniel@0 30 p = mirpeaks(ac,'Total',1)
Daniel@0 31 t = mirtempo(p)
Daniel@0 32
Daniel@0 33 display('Strike any key to continue...');
Daniel@0 34 pause
Daniel@0 35 close all
Daniel@0 36
Daniel@0 37 [t,p] = mirtempo('czardas','Periodicity','Frame')
Daniel@0 38 h = mirhisto(t)
Daniel@0 39
Daniel@0 40 display('Strike any key to continue...');
Daniel@0 41 pause
Daniel@0 42 close all
Daniel@0 43
Daniel@0 44 %%%% TONALITY
Daniel@0 45
Daniel@0 46 c = mirchromagram('vivaldi','Frame',2)
Daniel@0 47 k = mirkeystrength(c)
Daniel@0 48 p = mirpeaks(k,'Total',1)
Daniel@0 49
Daniel@0 50 [k,p] = mirkey('vivaldi','Frame',1)