1
function quanta = TrolandsToQuanta(wl,trolands,S_vLambda,vLambda)
b'% quanta = TrolandsToQuanta(wl,trolands,S_vLambda,vLambda)'
b'% Convert from photopic trolands to quanta (sec-1 degree-2)'
b'% for a monochromatic light.'
b'% 8/15/96 dhb, abp Wrote the header.'
b'% 8/22/96 dhb Wavelength should be in meters.'
b'wls_vLambda = MakeItWls(S_vLambda);'
b'index = find(wl == wls_vLambda);'
b'quanta = trolands*(wl*1e-9)/(vLambda(index)*4.454e-13);'
b'\\ No newline at end of file'