mie_bh | R Documentation |
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
)
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 |
Coated sphere illuminated by a plane wave
data.frame
Baptiste Auguie
Other user:
mie-package
,
mie_approximation()
,
mie_ml()
,
mie()
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))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.