annotate aim-mat/tools/lin2log.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 logmeasure=lin2log(value,scaleinfo)
tomwalters@0 16 % usage: function logmeasure=lin2log(value,scaleinfo)
tomwalters@0 17 % wandelt einen Wert entsprechend den Angaben in scaleinfo
tomwalters@0 18 % von einem linearen in einen logarithmischen Wert um
tomwalters@0 19 % scaleinfo.from;
tomwalters@0 20 % scaleinfo.to;
tomwalters@0 21 % scaleinfo.steps;
tomwalters@0 22 %
tomwalters@0 23
tomwalters@0 24
tomwalters@0 25 from=scaleinfo.from;
tomwalters@0 26 to=scaleinfo.to;
tomwalters@0 27 steps=scaleinfo.steps;
tomwalters@0 28
tomwalters@0 29
tomwalters@0 30 if steps==1
tomwalters@0 31 logmeasure=(from+to)/2;
tomwalters@0 32 logmeasure=from;
tomwalters@0 33 return
tomwalters@0 34 end
tomwalters@0 35
tomwalters@0 36 a1=log(from);
tomwalters@0 37 a2=log(to);
tomwalters@0 38 st=(a2-a1)/(steps-1);
tomwalters@0 39
tomwalters@0 40 res=st*value;
tomwalters@0 41 res=exp(res);
tomwalters@0 42
tomwalters@0 43 logmeasure=res*from;
tomwalters@0 44