materialSpectra: compute standard material spectra

Description Usage Arguments Value References See Also Examples

Description

Compute hypothetical neutral gray material reflectance/transmittance, and absorbance of the human lens, as a function of age.

Usage

1
2
neutralMaterial( gray=1, wavelength=380:780 )
lensAbsorbance( age=32, wavelength=400:700 )

Arguments

gray

a vector of gray levels, in the interval [0,1]. gray=1 represents the Perfect Reflecting Diffuser.

age

a vector of ages in years; all ages must be 20.

wavelength

a vector of wavelengths for the returned object

Value

neutralMaterial() returns a colorSpec object with quantity equal to 'reflectance'. The reflectance of each spectrum is constant and taken from gray. The number of spectra in the object is the number of gray levels = length(gray).

lensAbsorbance() returns a colorSpec object with quantity equal to 'absorbance'. The absorbance model for the human lens is taken from Pokorny. The number of spectra in the object is the number of ages = length(age).

References

Pokorny, Joel, Vivianne C. Smith, and Margaret Lutze. Aging of the Human Lens. Applied Optics. Vol. 26, No. 8. 15 April 1987. Table I. Page 1439.

See Also

lightSpectra, quantity

Examples

1
2
3
4
5
6
7
8
9
#   make a perfect reflecting diffuser (PRD)
prd = neutralMaterial( 1 )

#   make a perfect transmitting filter (PTF)
ptf = prd
quantity(ptf) = 'transmittance'

#   compare transmittance at 3 ages: 20, 32, and 80 years
plot( linearize(lensAbsorbance( c(20,32,80) )), col='black', lty=1:3 )

colorSpec documentation built on April 2, 2018, 5:05 p.m.