1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
;; From the Meep tutorial: plotting permittivity and fields of a bent waveguide
(set! geometry-lattice (make lattice (size 16 16 no-size)))
(set! geometry (list
(make block (center -2 -3.5) (size 12 1 infinity)
(material (make medium (epsilon 12))))
(make block (center 3.5 2) (size 1 12 infinity)
(material (make medium (epsilon 12))))))
(set! pml-layers (list (make pml (thickness 1.0))))
(set! resolution 10)
(set! sources (list
(make source
(src (make continuous-src (wavelength (* 2 (sqrt 11))) (width 20)))
(component Ez)
(center -7 -3.5)
(size 0 1))))
(run-until 200
(at-beginning output-epsilon)
(to-appended "ez" (at-every 0.6 output-efield-z)))
|
