登 录
註 冊
论坛
微波仿真网
注册
登录论坛可查看更多信息
微波仿真论坛
>
时域有限差分法 FDTD
>
这个 程序的边界吸收不好,能否指点一下, ..
发帖
回复
643
阅读
0
回复
[
求助
]
这个 程序的边界吸收不好,能否指点一下,如何设置PML边界
离线
王璇
I do
UID :91162
注册:
2012-03-29
登录:
2013-03-15
发帖:
19
等级:
仿真新人
0楼
发表于: 2012-04-30 17:29:21
关键词:
设置
for (n=1;n<=NSTEPS;n++)
:sK4mR F
{
raOuD3
T++;
lijTL-3
)N~ p4kp
ChUE,)
for (k=1;k<KE; k++)
xx1l Ecj
{
KwMt@1Z
dx[k]=dx[k]+0.5*(hy[k-1]-hy[k]);
2 <OU)rVE4
}
"(W;rl
6Q>:vQ+E
pulse=exp(-.5*(pow((t0-T)/spread,2.0))); /* put a Gassian pulse at the low end */
`peR ,E
dx[5]=dx[5]+pulse;
!%}n9vr!}\
printf("%5.1f %6.2f %6.2f \n",T,pulse,dx[5]);
'OTZ&;7{
^Os }sJ*5S
Qp[ Jw?a
for (k=0;k<KE-1; k++)
4Zu1G#(zP
{
p*g)-/mA
ex[k]=ga[k]*(dx[k]-ix[k]);
/N%i6t<xU
}
JW><&hY$"
wmVb0~[
for (k=0;k<KE-1; k++)
<]%6x[
{
S?`0,F
ix[k]=ix[k]+gb[k]*ex[k];
r)-{~JA!
}
Jb$G
aY,Bt
*p9)5
/* Boundary conditions */
B%u[gNZ
ex[0]=ex_low_m2;
G na%|tUz|
ex_low_m2=ex_low_m1;
u/|@iWK:
ex_low_m1=ex[1];
?5ZvvAi
3^&`E}r
ex[KE-1]=ex_high_m2;
`Rq|*:LV
ex_high_m2=ex_high_m1;
h]~FYY
ex_high_m1=ex[KE-2];
/* calculate the hy field */
GTfM *b
for (k ..
vOCaru?~h
E(6P%(yt8
未注册仅能浏览
部分内容
,查看
全部内容及附件
请先
登录
或
注册
共
条评分
发帖
回复