mie_bh

Source: R/mie-bohren.r

Far-field cross-sections

mie_bh(
  wavelength,
  epsilon.core,
  epsilon.coating = medium^2,
  radius,
  thickness = 0,
  medium = 1,
  lmax = ceiling(2 + max(y) + 4 * max(y)^(1/3)),
  efficiency = TRUE
)

Arguments

wavelength

real vector

epsilon.core

complex vector

epsilon.coating

complex vector

radius

scalar

thickness

scalar

medium

scalar, refractive index of surrounding medium

lmax

truncation order (unused)

efficiency

logical, scale by geometrical cross-sections

Value

data.frame

Details

Coated sphere illuminated by a plane wave

See also

Other user: mie-package, mie_approximation(), mie_ml(), mie()

Author

Baptiste Auguie

Examples

gold <- epsAu(seq(400, 800))
coated <- with(gold, mie_bh(wavelength, epsilon, radius=50, medium=1.33, 
efficiency=FALSE))
bare <- with(gold, mie(wavelength, epsilon, radius=50, medium=1.33, 
efficiency=FALSE))
matplot(coated$wavelength, coated[, -1], type="l", lty=1,
        xlab=expression(lambda/nm), ylab=expression(sigma/nm^2))
matlines(bare$wavelength, bare[, -1], type="l", lty=2)
legend("topright", c(names(coated)[-1], "bare"), col=1:3, lty=c(1,1,1,2))