Hi all,I am trying to declare an absorptive medium. This medium is a bragg grating with a non-uniform periodicity.
I use epsilon-func to declare this non-uniform function.The simulated photonic bandgap is OK but absorption is not taken into account.
I think that I have not properly used "extra-materials".
I use meep 1.1.1 on fedora 11 (x86_64)
Thanks very much for your help.
Gonzague
; my epsilon-func
(define (fbragg p) (+ 2.25 (* -0.1 (cos(+ (* (+ c0
(* c1 (vector3-x p) )
(* c2 (vector3-x p) (vector3-x
p) )
(* c3 (vector3-x p) (vector3-x
p) (vector3-x p) )
(* c4 (vector3-x p) (vector3-x
p) (vector3-x p) (vector3-x p) ))
(* (vector3-x p) ))
phi))))
(set! extra-materials
(list
(make material-function (epsilon-func f))
(E-polarizations (make polarizability (omega 0.15) (gamma 0.5)
(sigma 0.0005)))))
(set! geometry
(if no-bragg? ; without bragg grating reference
(list
(make block
(center 0 0)
(size sx sy)
(material (make dielectric (epsilon 2.25)))))
(list ; with bragg grating
(make block
(center 0 0)
(size sx sy)
(material (make dielectric (epsilon 2.25))))
(make block
(center 0 0)
(size Lx sy)
(material (make material-function (epsilon-func
fbragg)))))))
<<attachment: agez.vcf>>
_______________________________________________ meep-discuss mailing list [email protected] http://ab-initio.mit.edu/cgi-bin/mailman/listinfo/meep-discuss
