登 录
註 冊
论坛
微波仿真网
注册
登录论坛可查看更多信息
微波仿真论坛
>
时域有限差分法 FDTD
>
为什么一有sigma,结果就非常非常小,正常吗 ..
发帖
回复
951
阅读
3
回复
[
求助
]
为什么一有sigma,结果就非常非常小,正常吗?
离线
xiaoyuan
UID :53338
注册:
2010-02-28
登录:
2015-12-05
发帖:
156
等级:
仿真二级
0楼
发表于: 2010-09-04 04:26:45
这个程序是DENNIS M.SULLIVAN中的真空三维程序,我把它改为matlab语言写的。我在真空的基础上改了频率,给sigma赋了值,相应的波长网格划分也改了,程序如下,很简单的程序。
c0 WFlj9b
(}:C+p 'I
clear all;
&gc`<kLu
clc;
Vdn.)ir~P
ie=60;
&D#+6M&LK{
je=60;
G*\h\@
ke=60;
:o"8MZp
~@8+hnE]
ib=ie+1;
yW.COWL=)
jb=je+1;
K<v:-TjQZ:
kb=ke+1;
FXo2Y]K3`L
P.sgRsL
cc=3*10^8;
J`#`fX
x:t<ZG&Xwg
ex=zeros(ie,jb,kb);
s T3p>8n
ey=zeros(ib,je,kb);
0W>9'Rw
ez=zeros(ib,jb,ke);
NfE.N&vI_c
hx=zeros(ib,je,ke);
dZ:r&Qa
hy=zeros(ie,jb,ke);
%McO6.M@
hz=zeros(ie,je,kb);
^^(<c,NX#M
Ak~4|w-
dx=5.995849160000000e+006; %2.5hz对应的波长的20分之一
W>spz~w%j
dt=0.9/sqrt(3.0./dx/dx)/cc;
fn9#>~vrD
uG>nV
ic=ie/2;
V)D-pV V
jc=je/2;
@<_`2eW'/R
kc=ke/2;
83.E0@$
w5]l1}rl
epsz=8.85e-12;
g$j6n{Yl
eps=1.0;
AH.9A_dG
sig=1.0;
KIL18$3J
freq=2.5;
wUi(3g|A
muz=4.0*pi*1.0e-7; %permeability of free space
3z{S}~
p-GT`D
%specify the dipole
FoPginZ]J
U '[?9/T
ca=(1.0-(dt*sig)/(2.0*epsz*eps))/(1.0+(dt*sig)/(2.0*epsz*eps));
bO49GEUT _
cb=(dt/epsz/eps/dx)/(1.0+(dt*sig)/(2.0*epsz*eps));
jiIST^Zq#t
da=1.0;
uC~g#[I QM
db=dt/muz/dx;
)%du@a8
.F0]6#(
tau= 0.2; %高斯波的脉宽,经过计算后的值(不是随便取的)
H]&!'\aUz
t0=4.5*tau/dt; %t0也是计算后的值
W'_/6_c$!
spread=tau/dt;
.V%*{eHLL
T=0;
hbuZaxo<
nsteps=150;
c!&Qj
R V!o4"\]
for n=1:1:nsteps
C]`eH*z~8
T=T+1
DM3B]Yl
GH'O!}
ex(1:ie,2:je,2:ke)=ca*ex(1:ie,2:je,2:ke)+...
!v!N>f4S$
cb*(hz(1:ie,2:je,2:ke)-hz(1:ie,1:je-1,2:ke)+...
SZVV40w
hy(1:ie,2:je,1:ke-1)-hy(1:ie,2:je,2:ke));
b2h":G|s
LD+f'^>>Z
ey(2:ie,1:je,2:ke)=ca*ey(2:ie,1:je,2:ke)+...
|0{ i9.=
cb*(hx(2:ie,1:je,2:ke)-hx(2:ie,1:je,1:ke-1)+...
za,2r^
hz(1:ie-1,1:je,2:ke)-hz(2:ie,1:je,2:ke));
M@?"t_e1
pH9HK
ez(2:ie,2:je,1:ke)=ca*ez(2:ie,2:je,1:ke)+...
NMjnL&P`
cb*(hx(2:ie,1:je-1,1:ke)-hx(2:ie,2:je,1:ke)+...
ZHy><=2
hy(2:ie,2:je,1:ke)-hy(1:ie-1,2:je,1:ke));
g=A$<