Csound Csound-dev Csound-tekno Search About

Subjective Loudness

Date1997-02-23 11:31
FromGregory Boduch
SubjectSubjective Loudness
Hello,

Is there another unit of subjective loudness besides the Sone? I've 
been unable to put it into use (earlier post attached.)

Thanks,
gb141@columbia.edu


>In "Elements of Computer Music," on page 21, example (1-2), there is a
>formula listed for subjective loudness of sine tones, L = C * (I^1/3). 
>I have implemented it in this form, 

>  IL = 10 * ( ln ( ( ( sones / Hz )^3 ) / 10^-12 ) / ln 10 )

>however I'm not getting any satisfactory results. I was expecting to be
>able to control the subjective loudness of a sine oscil by passing two
>arguments to the formula, Hz and sones. 

>Are speakers the problem? Do they need to have an absolutely flat
>frequency response for this to work? I have tried it on head-phones,
>low-end Sony speakers, and on mid-range JBLs, with no success. I'd
>appreciate any suggestions.



;-------sonetest.orc---------------------------

        sr              =               44100
        kr              =               441
        ksmps           =               100
        nchnls          =               2

instr 1

        ifq             =               cpspch(p4+4)
        isones          =               p5


        asones          expseg          .1, .1, isones, p3-.11, isones,
.01, .1

        ares1           apow            asones/ifq, 3, 1
        ires2           ipow            10, -12

        adb             =               10 * ((log((ares1) / ires2)) /
log(10))
        ampenv          =               ampdb(adb)

        amp             =               ampenv



        asig            oscili          amp, ifq, 1

                        outs            asig, asig

endin

;------------sonetest.sco-------------------------------

f1 0 1024  10  1

;                 sones  ---  !According to the equation these should
sound equally loud!
i1 0    1   1.00  2.816
i1 1.5  1   2.00  
i1 3    1   3.00  
i1 4.5  1   4.00  
i1 6    1   5.00  
i1 7.5  1   6.00  
i1 9    1   7.00  
i1 10   1   8.00  
e