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

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 function demo9retrieval(query)
Daniel@0 2
Daniel@0 3 if nargin<1
Daniel@0 4 query = 'vivaldi';
Daniel@0 5 end
Daniel@0 6
Daniel@0 7 %%
Daniel@0 8 % 1. Timbre
Daniel@0 9
Daniel@0 10 cc0 = mirmfcc(query,'frame',.025,'s',.01,'s','Rank',8:30)
Daniel@0 11 cl0 = mircluster(cc0,16)
Daniel@0 12
Daniel@0 13 cc = mirmfcc('Folder','frame',.025,'s',.01,'s','Rank',8:30);
Daniel@0 14 cl = mircluster(cc,16);
Daniel@0 15
Daniel@0 16 d1 = mirdist(cl0,cl)
Daniel@0 17 mirquery(cl0,cl)
Daniel@0 18 mirplay(ans,'Sequence',1:6)
Daniel@0 19
Daniel@0 20 pause
Daniel@0 21
Daniel@0 22 %%
Daniel@0 23 % 2. Rhythm
Daniel@0 24
Daniel@0 25 [bs0 sm0] = mirbeatspectrum(query)
Daniel@0 26 bs = mirbeatspectrum('Folder');
Daniel@0 27
Daniel@0 28 d2 = mirdist(bs0,bs)
Daniel@0 29 mirquery(bs0,bs)
Daniel@0 30 mirplay(ans,'Sequence',1:6)
Daniel@0 31
Daniel@0 32 % Variant
Daniel@0 33
Daniel@0 34 [tp0,ac0] = mirtempo(query)
Daniel@0 35 [tp,ac] = mirtempo('Folder');
Daniel@0 36 ac0 = purgedata(ac0);
Daniel@0 37 ac = purgedata(ac);
Daniel@0 38 d2bis = mirdist(ac0,ac)
Daniel@0 39 mirquery(ac0,ac)
Daniel@0 40 mirplay(ans,'Sequence',1:6)
Daniel@0 41
Daniel@0 42 pause
Daniel@0 43
Daniel@0 44 %%
Daniel@0 45 % 3. Structure
Daniel@0 46
Daniel@0 47 pk0 = mirpeaks(mirnovelty(query))
Daniel@0 48 pk = mirpeaks(mirnovelty('Folder'));
Daniel@0 49
Daniel@0 50 d3 = mirdist(pk0,pk)
Daniel@0 51 mirquery(pk0,pk)
Daniel@0 52 mirplay(ans,'Sequence',1:6)
Daniel@0 53
Daniel@0 54 pause
Daniel@0 55
Daniel@0 56 %%
Daniel@0 57 % 4. Combination
Daniel@0 58
Daniel@0 59 d = d1*.6 + d2*.3 + d3*.1
Daniel@0 60 mirquery(d)
Daniel@0 61 mirplay(ans,'Sequence',1:6)
Daniel@0 62
Daniel@0 63 dbis = d1*.6 + d2bis*.3+ d3*.1
Daniel@0 64 mirquery(dbis)
Daniel@0 65 mirplay(ans,'Sequence',1:6)