tomwalters@0: % tool
tomwalters@0: % 
tomwalters@0: %   INPUT VALUES:
tomwalters@0: %  
tomwalters@0: %   RETURN VALUE:
tomwalters@0: %
tomwalters@0: % 
bleeck@3: % (c) 2011, University of Southampton
bleeck@3: % Maintained by Stefan Bleeck (bleeck@gmail.com)
bleeck@3: % download of current version is on the soundsoftware site: 
bleeck@3: % http://code.soundsoftware.ac.uk/projects/aimmat
bleeck@3: % documentation and everything is on http://www.acousticscale.org
bleeck@3: 
tomwalters@0: 
tomwalters@0: function scaler=getfiltervaluehighpass(cur_fre,cutoff,dbperoctave)
tomwalters@0: 
tomwalters@0: 
tomwalters@0: %feststellen, wieviel octaven ich über dem cutoff bin:
tomwalters@0: octs=log2(cur_fre/cutoff);
tomwalters@0: 
tomwalters@0: % wieviel dB sind das?
tomwalters@0: nrdB=octs*dbperoctave;
tomwalters@0: 
tomwalters@0: scaler=power(10,(-nrdB/20));
tomwalters@0: 
tomwalters@0: % gib nur die Werte > Cutoff zurück
tomwalters@0: scaler=min(1,scaler);
tomwalters@0: 
tomwalters@0: 
tomwalters@0: 
tomwalters@0: 
tomwalters@0: 
tomwalters@0: