Mercurial > hg > aimmat
annotate aim-mat/tools/getmusicaltone.m @ 4:537f939baef0 tip
various bug fixes and changed copyright message
| author | Stefan Bleeck <bleeck@gmail.com> |
|---|---|
| date | Tue, 16 Aug 2011 14:37:17 +0100 |
| parents | 20ada0af3d7d |
| children |
| rev | line source |
|---|---|
| tomwalters@0 | 1 % tool |
| tomwalters@0 | 2 % |
| tomwalters@0 | 3 % INPUT VALUES: |
| tomwalters@0 | 4 % |
| tomwalters@0 | 5 % RETURN VALUE: |
| tomwalters@0 | 6 % |
| tomwalters@0 | 7 % |
| bleeck@3 | 8 % (c) 2011, University of Southampton |
| bleeck@3 | 9 % Maintained by Stefan Bleeck (bleeck@gmail.com) |
| bleeck@3 | 10 % download of current version is on the soundsoftware site: |
| bleeck@3 | 11 % http://code.soundsoftware.ac.uk/projects/aimmat |
| bleeck@3 | 12 % documentation and everything is on http://www.acousticscale.org |
| bleeck@3 | 13 |
| tomwalters@0 | 14 |
| tomwalters@0 | 15 function [cent,oct,relcent]=getmusicaltone(fre) |
| tomwalters@0 | 16 % usage: [cent,oct]=getmusicaltone(fre) |
| tomwalters@0 | 17 % gives back the cent of this tone and in which octave above 27.5 Hz it is |
| tomwalters@0 | 18 % and the relative cent above the last octave - redundant, but useful |
| tomwalters@0 | 19 |
| tomwalters@0 | 20 min_fre=27.5; % the frequency, that defines the smallest frequency (A2) |
| tomwalters@0 | 21 |
| tomwalters@0 | 22 oct=floor(log2(fre/min_fre)); |
| tomwalters@0 | 23 |
| tomwalters@0 | 24 % one octave is 1200 cent: |
| tomwalters@0 | 25 % f= f_min*power(2,oct)*power(2,cent/1200) |
| tomwalters@0 | 26 |
| tomwalters@0 | 27 cent=1200*log2(fre/min_fre); |
| tomwalters@0 | 28 |
| tomwalters@0 | 29 relcent=cent-oct*1200; |