Description Usage Arguments Value Author(s) See Also Examples
Interpolates permittivity against wavelength values using cubic splines
1 | fineEps(lambda, eps, size = 100, deb = 3e-07, fin = 9e-07)
|
lambda |
wavelength [m] |
eps |
epsilon values (real vector) |
size |
number of interpolated points |
deb |
starting wavelength [m] |
fin |
ending wavelength [m] |
list
lambdaFine |
|
epsFine |
baptiste
1 2 3 4 5 6 7 8 9 10 11 12 | # data(AuJChristy)
# attach(AuJChristy)
#
# ls()
#
# epsrf<-fineEps(lambda,epsr)
# epsif<-fineEps(lambda,epsi)
# par(mfrow=c(2,1))
# plot(lambda,epsr,type="p",pch=1)
# lines(epsrf$lambda.fine,epsrf$eps.fine)
# plot(lambda,epsi,type="p",pch=1)
# lines(epsif$lambda.fine,epsif$eps.fine)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.