neg-eps.ctl

来自「Ｍit Ｐhotonic Ｂand源文件」· CTL 代码 · 共 19 行

(set! num-bands 8)
(set! geometry-lattice (make lattice (size 1 1 no-size)
                         (basis1 (/ (sqrt 3) 2) 0.5)
                         (basis2 (/ (sqrt 3) 2) -0.5)))
(set! geometry (list (make cylinder
                        (center 0 0 0) (radius 0.40) (height infinity)
                       (material (make dielectric (epsilon -1.7689))))))
                       
(set! default-material (make dielectric (epsilon 16)))
(set! k-points (list (vector3 0 0.5 0)        ; M
       		   (vector3 0 0 0)          ; Gamma
                     (vector3 (/ -3) (/ 3) 0)))   ; K
(set! k-points (interpolate 4 k-points))
(set! resolution 32)
(allow-negative-epsilon)
(run-tm (output-at-kpoint (vector3 (/ -3) (/ 3) 0)
                          fix-efield-phase output-efield-z))
(run-te output-hfield-z)