24小时热门版块排行榜    

CyRhmU.jpeg
查看: 2279  |  回复: 5

wlwanglin

新虫 (初入文坛)

[求助] meep编程求解 大神帮助 每一行代表的意思 (新手没有太多金币)

(define-param eps (* 3.45 3.45))                     
(define-param a 1)
(define-param r1 (/ 120 420))                                                            
(define-param Ny 31)                    
(define-param Nx 21)


(define-param pad 2) ; padding between last hole and PML edge                  
(define-param dpml 1) ; PML thickness  

; The cell dimensions                                                           
(define-param sx (+ Nx (* 2 (+ pad dpml)))) ; size of cell in X direction                              
(define-param sy (+ Ny (* 2 (+ pad dpml)))); size of cell in Y direction                        

; define a couple of parameters to determine the frequency range
(define-param fcen 0.5) ; pulse center frequency
(define-param df 0.4)  ; pulse width (in frequency)
(define-param nfreq 401) ; number of frequencies at which to compute flux
(define-param Sw 10)

(set! geometry-lattice (make lattice (size sx sy no-size)))
(set! geometry
      (append ; combine lists of objects:                                       
      (list (make block (center 0 0) (size Nx Ny infinity)
                   (material (make dielectric (epsilon eps)))))
       (geometric-objects-duplicates (vector3 0 1) -15 15
       (geometric-object-duplicates (vector3 1 0) -10 10
           (make cylinder
              (material air)
              (center 0 0)           
              (radius r1)
             (height infinity)
       )))
))

(set! pml-layers (list (make pml (thickness dpml))))
(set-param! resolution 15)

; Set sources
(set! sources (list
               (make source
                 (src (make gaussian-src (frequency fcen) (fwidth df)))
                 (component Ey)
                 (center (+ dpml (* -0.5 sx)) 0)
                 (size 0 Sw))))

(define trans                                          
        (add-flux fcen df nfreq
                  (make flux-region
                    (center (- (* 0.5 sx) dpml 0.5) 0) (size 0 Ny))))
                              
(run-sources+ (stop-when-fields-decayed
               50 Ey
               (vector3 (- (* 0.5 sx) dpml 0.5) 0)
               1e-3)
              (at-beginning output-epsilon))


(display-fluxes trans)
回复此楼

» 收录本帖的淘帖专辑推荐

MEEP小木虫

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

此刻唯有拼搏才能成功
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

ytdxclf

金虫 (初入文坛)

qing wen meep zen me anzhuang de a ytdxclf@163.com
2楼2012-08-01 09:15:48
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

goodluckstf

木虫 (职业作家)

请问meep怎么在虚拟机的linux系统上安装啊ytdxclf@163.com
不胜感激
Justdoit, anythingispossible.
3楼2012-08-01 09:18:36
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

彭登

新虫 (初入文坛)

【答案】应助回帖

mit直接下下来的用不了,win7。可以去网上下一个win7版的。网上有
4楼2013-08-02 15:27:37
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

彭登

新虫 (初入文坛)

【答案】应助回帖

内容已删除
5楼2013-08-02 15:38:09
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

trrista

银虫 (小有名气)

这个程序写得真不错,解决了困扰了我很久的一个问题
6楼2014-12-24 14:00:47
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 wlwanglin 的主题更新
信息提示
请填处理意见