-
Notifications
You must be signed in to change notification settings - Fork 4
dimer_cd
baptiste edited this page Jan 6, 2014
·
6 revisions
baptiste Auguié -- 06 January, 2014
In this example the optical activity of a chiral dimer of axi-symmetric nanoparticles is investigated. First, we visualise the parametrisation of such a dimer with the inter-particle separation, the dihedral angle, and one additional angle for each particle.
# dielectric function
wvl <- seq(400, 900)
gold <- epsAu(wvl)
# define a dimer with dihedral angle
cl <- cluster_dimer(d=100,
dihedral=45*pi/180, alpha1=10*pi/180, alpha2=0,
a=35, b=12)
# visualise
rgl.ellipsoids(cl$r, cl$sizes, cl$angles, col="gold")
rgl.viewpoint( theta = 0, phi = 20, fov = 70, zoom = 1)
rgl_annotate()
The optical activity is modelled with full angular averaging over incident light directions. Scattering, absorption and extinction spectra are calculated for both right- and left-handed circular polarisations, and the difference corresponds to circular dichroism.
dimer <- function(dihedral=45, ...){
cl <- cluster_dimer(dihedral = dihedral * pi/180, ...)
circular_dichroism_spectrum(cl, material = gold)
}
params <- data.frame(dihedral=c(45, 30, 10, 0, -10, -30,-45),
d=100, a=35, b=12,
alpha1=10*pi/180, alpha2=0)
comparison <- mdply(params, dimer)
p <-
ggplot(data=comparison) +
facet_grid(type~variable, scales="free") +
geom_line(aes(wavelength, value,
colour=factor(dihedral))) +
labs(y=expression(sigma*" /"*nm^2),
x=expression(wavelength*" /"*nm), colour="dihedral angle") +
scale_colour_brewer(type="div", palette=3)
p