24小时热门版块排行榜

返回列表

里欧小贝

新虫 (初入文坛)

应助: 0 (幼儿园)
金币: 106
帖子: 2
在线: 8.6小时
虫号: 5051446
注册: 2016-09-23
专业: 粉末冶金与粉体工程

[求助] meep 自己写的程序（写在正文，最后一句出现了错误），想尽办法怎么改都不对，求助。

备注：新手自己写的程序，应该是在设置flux-region处出了问题。求高手相助。

(define-param xcen 0)
(define-param ycen 0)
(define-param yihou 2)
(define-param erhou 2)
(define-param zhouqi 3)
(define zhongxinju (/ (+ yihou erhou) 2))

(define-param xjisuanquyu 20)
(define-param yjisuanquyu 8)

(define-param yijiedian 2)
(define-param erjiedian 3)

(set! geometry-lattice (make lattice (size xjisuanquyu yjisuanquyu no-size)))
(set! geometry
   (append
      (list
         (geometric-object-duplicates (vector3 erhou 0) 0 (- zhouqi 1)
            (make block (center xcen ycen)(size yihou infinity infinity)
                        (material (make dielectric (epsilon yijiedian)))))
         (geometric-object-duplicates (vector3 yihou 0) 0 (- zhouqi 1)
            (make block (center (+ xcen zhongxinju) ycen)(size erhou infinity infinity)
                        (material (make dielectric (epsilon erjiedian))))))))

(define-param dpml 1)

(set! pml-layers (list (make pml (thickness dpml))))

(set! resolution 20)

(define-param fcen 1.3)
(define-param df 2.5)
(define-param nfreq 500)
(define yuanchang yjisuanquyu)

(set! sources (list
            (make source
               (src (make gaussian-src (frequency fcen) (fwidth df)))
               (component Ey)
               (center (- xcen yihou) 0)
               (size 0 yuanchang))))

(set! symmetries (list (make mirror-sym (direction Y) (phase -1))))

(define trans
      (add-flux fcen df nfreq
               (make flux-region (center (+ (* zhouqi zhongxinju) xcen) 0) (size 0 yuanchang)(direction Y))))

错误提示如下：
ERROR: In procedure make-structure:
ERROR: In procedure vector-ref: Wrong type argument in position 1 (expecting vector): #f

回复此楼