登 录
註 冊
论坛
微波仿真网
注册
登录论坛可查看更多信息
微波仿真论坛
>
时域有限差分法 FDTD
>
紧急求助
发帖
回复
764
阅读
0
回复
[
求助
]
紧急求助
离线
wangtao102
UID :97440
注册:
2012-07-26
登录:
2012-08-03
发帖:
12
等级:
仿真新人
0楼
发表于: 2012-07-26 23:18:35
站内有没有FDTD高手?用meep建一个正六边形模型
tX+0 GLz
B >ms`|q=l
算法可参照下面:
xV"6d{+
MX"A@p~H
(reset-meep)
od;Bb
.i1jFwOd|G
(set! geometry-lattice (make lattice (size 16 16 no-size)))
|~7+/VvI+
qn5yD!1
(set! geometry (list
>hHJ:5y
(make block (center -2 -3.5) (size 12 1 infinity)
5w]DncdQ~
(material (make dielectric (epsilon 12))))
pK-_R#
(make block (center 3.5 2) (size 1 12 infinity)
b5lk0 jA
(material (make dielectric (epsilon 12))))))
?ykVf O'
2,rY\ Nu_
(set! pml-layers (list (make pml (thickness 1.0))))
f+Pg1Q0zI
(set! resolution 10)
BERn _5gb
Tnzco
(set! sources (list
z4 GN8:~x
(make source
: ;|)/
(src (make continuous-src
MtMvpHk
(wavelength (* 2 (sqrt 12))) (width 20)))
Ry3+/]
(component Ez)
:!r9 =N9
(center -7 -3.5) (size 0 1))))
aS c#&{
(run-until 200
le "JW/BD
(at-beginning output-epsilon)
;D%$Eh&oma
..
1EKcD^U,
WZfk}To1#
未注册仅能浏览
部分内容
,查看
全部内容及附件
请先
登录
或
注册
共
条评分
发帖
回复