登 录
註 冊
论坛
微波仿真网
注册
登录论坛可查看更多信息
微波仿真论坛
>
时域有限差分法 FDTD
>
一维FDTD问题请教
发帖
回复
1281
阅读
6
回复
一维FDTD问题请教
离线
comeback
UID :42564
注册:
2009-09-26
登录:
2010-11-19
发帖:
7
等级:
旁观者
0楼
发表于: 2009-11-13 22:47:13
我用Matlab编了一个程序,来仿真这样一个过程:一维条件,中部有个高斯脉冲激励源,其幅度最大值为1。程序运行后,有两个对称的高斯脉冲向两边传播。但我有两个问题:
m<LzB_G\
一、生成的两个脉冲幅度的最大值明显比1小,但我觉得应该和1差不多,不知道正确的应该是怎样。
=<uz'\Ytv%
二、刚开始的一段时间内,源点位置有很大的负值分量,当两个脉冲分开后 ..
kT=|tQ@
' g!_Flk
未注册仅能浏览
部分内容
,查看
全部内容及附件
请先
登录
或
注册
共
条评分
离线
gwzhao
方恨少
UID :17098
注册:
2008-08-24
登录:
2019-01-09
发帖:
1374
等级:
荣誉管理员
1楼
发表于: 2009-11-14 02:43:26
1)你直接加就源就是1 了,比如Ex(center) = f(n)。
(~o+pp!
估计你写的是Ex(center) = Ex(center) + f(n)
+T;qvx6
}Ec"&
2)我觉得你看错了,不应该是负的很大值,而是exp(-number),是这个很大吧,无限接近于零。
共
条评分
逆流而上
离线
ye_jacky
Jacky
UID :46554
注册:
2009-11-13
登录:
2011-11-04
发帖:
52
等级:
仿真一级
2楼
发表于: 2009-11-14 09:35:27
(1)可以看看边界设置,这是衰减吧
共
条评分
Jacky
离线
coyoji
UID :3364
注册:
2007-06-11
登录:
2014-05-13
发帖:
201
等级:
仿真三级
3楼
发表于: 2009-11-14 10:36:05
把程序贴上来看看
共
1
条评分
gwzhao
rf币
+3
感谢您的资料,加分!
2010-01-02
我爱微波!
离线
wq_463
UID :20925
注册:
2008-11-06
登录:
2021-04-22
发帖:
227
等级:
仿真三级
4楼
发表于: 2009-11-16 09:48:38
是啊,把程序贴出来,大家帮你分析一下
共
1
条评分
gwzhao
rf币
+3
积极参与论坛交流,加分!
2010-01-02
离线
comeback
UID :42564
注册:
2009-09-26
登录:
2010-11-19
发帖:
7
等级:
旁观者
5楼
发表于: 2010-01-01 22:17:15
不好意思,我当时比较急,后来就忘了来这里看了,先谢谢给位的关心,并顺祝元旦快乐!程序我后来稍微修改了一下。
9H<:\-:
q&+GpR
%初始化光速、介电常数、磁导率等常数
HTC7fS
c=3e8;
4DNZ y2`
ep0=8.854e-12;
Og["X0j
ep=9*ep0;
F"q3p4-<>
u=pi*4e-7;
lIf Our
T=2e-11;
a'|0e]
t0=4*T;
dZm{?\^_
%初始化时间步长、空间步长和总的执行步数
=\3*;59\
dt=3e-13;
QMIQy
dz=2e-4;
3|A"CU/z@
tmax=2e-9;
mHP1.Z`
step=round(tmax/dt);
&I70veNY
%设置介质分界面的坐标
XDn$=`2
m1=[0.45 0.45];
?TXFOr]g]2
m2=[0.5 0.5];
GV9"8MZ6
m=[-3 3];
c/s'&gG33z
6x{B
N=round(0.6/dz);
2`z+_DA
n1=round(0.45/dz+1);
f7`y*9^
n2=round(0.5/dz+1);
2XE4w# [j
ns=round(0.3/dz+1);
w9 NUm
fun=@(t) exp(-((t-t0)./T).^2);
HdGy$m`
Ex=zeros(1,N+1);
ev; &$Hc
Hy=zeros(1,N);
9(C Ke,
t=0:dt:dt*step;
NzEuiI}
Z=0:dz:0.6;
l6O2B/2j
Et=fun(t);
27MgwX NQ
ca=dt/(dz*u);
`1P &
cb=zeros(1,N+1);
3 3V/<v
cb(:)=dt/(dz*ep0);
:( `Q4D~l
cb([n1 n2])=dt/(dz*(ep0+ep)/2);
U{ Y)\hR-
cb(n1+1:n2-1)=dt/(dz*ep);
{\%x{
ct=(c*dt-dz)/(c*dt+dz);
Z/0M9 Q%
%电场和磁场相互迭代
jj^CW"IB
for i=1:step
(<f[$ |%
Ex(ns)=Ex(ns)+Et(i);
(YR1ML3N
Hy(1:N)=Hy(1:N)-ca*(Ex(2:N+1)-Ex(1:N));
F2u{Wzr_@
temp1=Ex(2);
-0W;b"]+A
temp2=Ex(N);
+n0y/0Au
Ex(2:N)=Ex(2:N)-cb(2:N).*(Hy(2:N)-Hy(1:N-1));
SZgH0W("L
Ex(1)=temp1+ct*(Ex(2)-Ex(1));
|h3YL!
Ex(N+1)=temp2+ct*(Ex(N)-Ex(N+1));
| o?@Eh
^Ab|\5^3
%画图
V7&