permittivity.NashSamblesAg<-function(wavelength){
# D. J. Nash and J. R. Sambles, J. Mod. Op. 43, 81–91 (1996).
data(NashSamblesAg)
epsilon.real <- splinefun(NashSamblesAg$Wavelength,NashSamblesAg$EpsilonReal)
epsilon.imag <- splinefun(NashSamblesAg$Wavelength,NashSamblesAg$EpsilonImaginary)
if(wavelength > 900 || wavelength < 450) warning("wavelength out of dataset range")
return(data.frame(wavelength=wavelength,epsilon.real=epsilon.real(wavelength),epsilon.imaginary=epsilon.imag(wavelength)))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.