Did I do something blatantly wrong here?  I would like my source (at the 
left end) to send a field to the right, then once it reaches the 
boundary to come back around and start at the left again.  I do not want 
the field that goes to the left to come back around and interfere with 
the field going to the right.  Any thoughts?  Please, anything will help.

--Code Starts--

(set! dimensions CYLINDRICAL)
(define-param outputdirectory "./waveguide-out/")
(set! eps-averaging? #f)
(set! geometry-lattice (make lattice (size 3 0 12)))
(set! resolution 10)
(set! k-point #f)

(set! pml-layers (list (make pml (direction R) (side High) (thickness 
1.0))))

(define-param lam 1.0)          ; pulse wavelength
(define-param fcen (/ 1 lam))   ; pulse center frequency 

(define-param df (* 0.85 fcen)) ; pulse width (in frequency)
(define-param s .75)            ; beam sigma (gaussian beam width)

(define ((my-amp sig) x)
     (exp (- (/ (vector3-dot x x) (* 2 sig sig)))))

(set! sources (list
                (make source
             (src (make gaussian-src (frequency fcen) (fwidth df)))
             (amp-func (my-amp s))
             (component Ez)
             (center 0 0 -5) (size 0 0 0))))


(define right-side (volume (center 0 0 9) (size 3 0 6)))
(define left-side (volume (center 0 0 3) (size 3 0 6)))

(define mystep (lambda () (change-k-point! (vector3 0 0 0))))

(use-output-directory)
(run-until 50
     (at-time 10 mystep)
     (to-appended "ez" (at-every 0.1 output-efield-z)))

--Code Stops--

Thanks,
AJ Cressman

_______________________________________________
meep-discuss mailing list
[email protected]
http://ab-initio.mit.edu/cgi-bin/mailman/listinfo/meep-discuss

Reply via email to