Matlab仿真偶极子天线激励_天线matlab吸收边界条件-程序员宅基地
%文件描述：三维偶极子源激励，PML吸收边界，采用矩阵赋值
%激励描述：高斯脉冲
%激励位置：空间中心位置
%介质描述：自由空间
clear all;close all;clc;
%设置初始条件
NSTEPS=80;%时间步
IE=40;JE=40;KE=40;%仿真空间大小
ic=IE/2;jc=JE/2;kc=KE/2;%观察点位置
ra_y=1.0;ra_x=1.0;%方向比例系数
nx=IE;ny=JE;nz=KE;
%PML边界空间大小
ia=7;ib=IE-ia-1;
ja=7;jb=JE-ja-1;
ka=7;kb=KE-ka-1;
epsz=8.85419e-12;%真空中的介电常数
muz=4*pi*1e-7;%真空中的磁导率
c0=3e8;%自由空间中的光速
ddx=0.01;%空间步长，单个波长中取20个网格
dt=ddx/(2*c0);%时间步长
t0=20;spread=6;%高斯脉冲参数
%场量初始化
gax=ones(IE,JE,KE);gay=gax;gaz=gax;
gbx=zeros(IE,JE,KE);gby=gbx;gbz=gbx;
disp_x=zeros(IE,JE,KE);disp_y=disp_x;disp_z=disp_x;
ex=zeros(IE,JE,KE);ey=ex;ez=ex;
ix=zeros(IE,JE,KE);iy=ix;iz=ix;
hx=zeros(IE,JE,KE);hy=hx;hz=hx;
curl_h=zeros(IE,JE,KE);curl_e=zeros(IE,JE,KE);
idxl=zeros(IE,JE,KE);idyl=idxl;idzl=idxl;
idxh=zeros(IE,JE,KE);idyh=idxh;idzh=idxh;
ihxl=zeros(IE,JE,KE);ihyl=ihxl;ihzl=ihxl;
ihxh=zeros(IE,JE,KE);ihyh=ihxh;ihzh=ihxh;
ez_inc(1:JE)=0.0;hx_inc(1:JE)=0.0;
ez_inc_low_m1=0.0;ez_inc_low_m2=0.0;
ez_inc_high_m1=0.0;ez_inc_hgh_m2=0.0;
gi1(1:IE)=0.0;gi2(1:IE)=1.0;gi3(1:IE)=1.0;
gj1(1:JE)=0.0;gj2(1:JE)=1.0;gj3(1:JE)=1.0;
gk1(1:KE)=0.0;gk2(1:KE)=1.0;gk3(1:KE)=1.0;
fi1(1:IE)=0.0;fi2(1:IE)=1.0;fi3(1:IE)=1.0;
fj1(1:JE)=0.0;fj2(1:JE)=1.0;fj3(1:JE)=1.0;
fk1(1:KE)=0.0;fk2(1:KE)=1.0;fk3(1:KE)=1.0;
%设置dipole位置
gaz(ic,jc,12:30)=0;
gaz(ic,jc,kc)=1;
%PML边界设置
npml=7;
i=1:npml;
xxn=(npml-i+1)/npml;
xn1=0.33*(xxn.^3);
xn(1:nx)=1.0;
xn(1:npml)=xn1;
xn(nx-npml+1:nx)=xn1(end:-1:1);
fi1(1:npml)=xn(1:npml);
fi1(nx-npml+1:nx)=xn(nx-npml+1:nx);
gi2(1:npml)=1.0./(1.0+xn(1:npml));
gi2(nx-npml+1:nx)=1.0./(1.0+xn(nx-npml+1:nx));
gi3(1:npml)=(1.0-xn(1:npml))./(1.0+xn(1:npml));
gi3(nx-npml+1:nx)=(1.0-xn(nx-npml+1:nx))./(1.0+xn(nx-npml+1:nx));
xxn=(npml-i-0.5+1)/npml;
xn1=0.33*(xxn.^3);
xn(nx)=1.0;
xn(1:npml)=xn1;
xn(nx-npml:nx-1)=xn1(end:-1:1);
gi1(1:npml)=xn(1:npml);
gi1(nx-npml:nx-1)=xn(nx-npml:nx-1);
fi2(1:npml)=1.0./(1.0+xn(1:npml));
fi2(nx-npml:nx-1)=1.0./(1.0+xn(nx-npml:nx-1));
fi3(1:npml)=(1.0-xn(1:npml))./(1.0+xn(1:npml));
fi3(nx-npml:nx-1)=(1.0-xn(nx-npml:nx-1))./(1.0+xn(nx-npml:nx-1));
j=1:npml;
xxn=(npml-j+1)/npml;
xn1=0.33*(xxn.^3);
xn(ny)=1.0;
xn(1:npml)=xn1;
xn(ny-npml+1:ny)=xn1(end:-1:1);
fj1(1:npml)=xn(1:npml);
fj1(ny-npml+1:nx)=xn(ny-npml+1:ny);
gj2(1:npml)=1.0./(1.0+xn(1:npml));
gj2(ny-npml+1:ny)=1.0./(1.0+xn(ny-npml+1:ny));
gj3(1:npml)=(1.0-xn(1:npml))./(1.0+xn(1:npml));
gj3(ny-npml+1:nx)=(1.0-xn(ny-npml+1:ny))./(1.0+xn(ny-npml+1:ny));
xxn=(npml-j-0.5+1)/npml;
xn1=0.33*(xxn.^3);
xn(ny)=1.0;
xn(1:npml)=xn1;
xn(ny-npml:ny-1)=xn1(end:-1:1);
gj1(1:npml)=xn(1:npml);
gj1(ny-npml:ny-1)=xn(ny-npml:ny-1);
fj2(1:npml)=1.0./(1.0+xn(1:npml));
fj2(ny-npml:ny-1)=1.0./(1.0+xn(ny-npml:ny-1));
fj3(1:npml)=(1.0-xn(1:npml))./(1.0+xn(1:npml));
fj3(ny-npml:ny-1)=(1.0-xn(ny-npml:ny-1))./(1.0+xn(ny-npml:ny-1));
k=1:npml;
xxn=(npml-k+1)/npml;
xn1=0.33*(xxn.^3);
xn(nz)=1.0;
xn(1:npml)=xn1;
xn(nz-npml+1:nz)=xn1(end:-1:1);
fk1(1:npml)=xn(1:npml);
fk1(nz-npml+1:nz)=xn(nz-npml+1:nz);
gk2(1:npml)=1.0./(1.0+xn(1:npml));
gk2(nz-npml+1:nz)=1.0./(1.0+xn(nz-npml+1:nz));
gk3(1:npml)=(1.0-xn(1:npml))./(1.0+xn(1:npml));
gk3(nz-npml+1:nz)=(1.0-xn(nz-npml+1:nz))./(1.0+xn(nz-npml+1:nz));
xxn=(npml-k-0.5+1)/npml;
xn1=0.33*(xxn.^3);
xn(nz)=1.0;
xn(1:npml)=xn1;
xn(nz-npml:nz-1)=xn1(end:-1:1);
gk1(1:npml)=xn(1:npml);
gk1(nz-npml:nz-1)=xn(nz-npml:nz-1);
fk2(1:npml)=1.0./(1.0+xn(1:npml));
fk2(nz-npml:nz-1)=1.0./(1.0+xn(nz-npml:nz-1));
fk3(1:npml)=(1.0-xn(1:npml))./(1.0+xn(1:npml));
fk3(nz-npml:nz-1)=(1.0-xn(nz-npml:nz-1))./(1.0+xn(nz-npml:nz-1));
%数组变换
gj1_3w=repmat(gj1,[IE 1 KE]);
gj2_3w=repmat(gj2,[IE 1 KE]);
gj3_3w=repmat(gj3,[IE 1 KE]);
gk1_3w=shiftdim(repmat(gk1,[JE 1 IE]),2);
gk2_3w=shiftdim(repmat(gk2,[JE 1 IE]),2);
gk3_3w=shiftdim(repmat(gk3,[JE 1 IE]),2);
gi1_3w=shiftdim(repmat(gi1,[KE 1 IE]),1);
gi2_3w=shiftdim(repmat(gi2,[KE 1 IE]),1);
gi3_3w=shiftdim(repmat(gi3,[KE 1 IE]),1);
fj1_3w=repmat(fj1,[IE 1 KE]);
fj2_3w=repmat(fj2,[IE 1 KE]);
fj3_3w=repmat(fj3,[IE 1 KE]);
fk1_3w=shiftdim(repmat(fk1,[JE 1 IE]),2);
fk2_3w=shiftdim(repmat(fk2,[JE 1 IE]),2);
fk3_3w=shiftdim(repmat(fk3,[JE 1 IE]),2);
fi1_3w=shiftdim(repmat(fi1,[KE 1 IE]),1);
fi2_3w=shiftdim(repmat(fi2,[KE 1 IE]),1);
fi3_3w=shiftdim(repmat(fi3,[KE 1 IE]),1);
for n=1:NSTEPS
%计算dx
curl_h(2:ia,2:ny,2:nz)=(ra_y*(hz(2:ia,2:ny,2:nz)...
-hz(2:ia,1:ny-1,2:nz))-hy(2:ia,2:ny,2:nz)+hy(2:ia,2:ny,1:nz-1));
idxl(2:ia,2:ny,2:nz)=idxl(2:ia,2:ny,2:nz)+curl_h(2:ia,2:ny,2:nz);
disp_x(2:ia,2:ny,2:nz)=gj3_3w(2:ia,2:ny,2:nz)...
.*gk3_3w(2:ia,2:ny,2:nz).*disp_x(2:ia,2:ny,2:nz)+...
gj2_3w(2:ia,2:ny,2:nz).*gk2_3w(2:ia,2:ny,2:nz)*0.5...
.*(curl_h(2:ia,2:ny,2:nz)+gi1_3w(2:ia,2:ny,2:nz)...
.*idxl(2:ia,2:ny,2:nz));
curl_h(ia+1:ib+1,2:ny,2:nz)=(ra_y*(hz(ia+1:ib+1,2:ny,2:nz)...
-hz(ia+1:ib+1,1:ny-1,2:nz))-hy(ia+1:ib+1,2:ny,2:nz)...
+hy(ia+1:ib+1,2:ny,1:nz-1));
disp_x(ia+1:ib+1,2:ny,2:nz)=gj3_3w(ia+1:ib+1,2:ny,2:nz)...
.*gk3_3w(ia+1:ib+1,2:ny,2:nz).*disp_x(ia+1:ib+1,2:ny,2:nz)+...
gj2_3w(ia+1:ib+1,2:ny,2:nz).*gk2_3w(ia+1:ib+1,2:ny,2:nz)...
*0.5.*curl_h(ia+1:ib+1,2:ny,2:nz);
curl_h(ib+2:nx,2:ny,2:nz)=(ra_y*(hz(ib+2:nx,2:ny,2:nz)...
-hz(ib+2:nx,1:ny-1,2:nz))-hy(ib+2:nx,2:ny,2:nz)...
+hy(ib+2:nx,2:ny,1:nz-1));
idxh(1:ia,2:ny,2:nz)=idxh(1:ia,2:ny,2:nz)+curl_h(ib+2:nx,2:ny,2:nz);
disp_x(ib+2:nx,2:ny,2:nz)=gj3_3w(ib+2:nx,2:ny,2:nz)...
.*gk3_3w(ib+2:nx,2:ny,2:nz).*disp_x(ib+2:nx,2:ny,2:nz)+...
gj2_3w(ib+2:nx,2:ny,2:nz).*gk2_3w(ib+2:nx,2:ny,2:nz)*0.5...
.*(curl_h(ib+2:nx,2:ny,2:nz)+gi1_3w(ib+2:nx,2:ny,2:nz)...
.*idxl(1:ia,2:ny,2:nz));
%计算dy
curl_h(2:nx,2:ja,2:nz)=(-ra_x*(hz(2:nx,2:ja,2:nz)...
-hz(1:nx-1,2:ja,2:nz))+hx(2:nx,2:ja,2:nz)-hx(2:nx,2:ja,1:nz-1));
idyl(2:nx,2:ja,2:nz)=idyl(2:nx,2:ja,2:nz)+curl_h(2:nx,2:ja,2:nz);
disp_y(2:nx,2:ja,2:nz)=gi3_3w(2:nx,2:ja,2:nz)...
.*gk3_3w(2:nx,2:ja,2:nz).*disp_y(2:nx,2:ja,2:nz)+...
gi2_3w(2:nx,2:ja,2:nz).*gk2_3w(2:nx,2:ja,2:nz)*0.5...
.*(curl_h(2:nx,2:ja,2:nz)+gj1_3w(2:nx,2:ja,2:nz)...
.*idyl(2:nx,2:ja,2:nz));
curl_h(2:nx,ja+1:jb+1,2:nz)=(-ra_x*(hz(2:nx,ja+1:jb+1,2:nz)...
-hz(1:nx-1,ja+1:jb+1,2:nz))+hx(2:nx,ja+1:jb+1,2:nz)...
-hx(2:nx,ja+1:jb+1,1:nz-1));
disp_y(2:nx,ja+1:jb+1,2:nz)=gi3_3w(2:nx,ja+1:jb+1,2:nz)...
.*gk3_3w(2:nx,ja+1:jb+1,2:nz).*disp_y(2:nx,ja+1:jb+1,2:nz)+...
gi2_3w(2:nx,ja+1:jb+1,2:nz).*gk2_3w(2:nx,ja+1:jb+1,2:nz)...
*0.5.*curl_h(2:nx,ja+1:jb+1,2:nz);
curl_h(2:nx,jb+2:ny,2:nz)=(-ra_x*(hz(2:nx,jb+2:ny,2:nz)...
-hz(1:nx-1,jb+2:ny,2:nz))+hx(2:nx,jb+2:ny,2:nz)...
-hx(2:nx,jb+2:ny,1:nz-1));
idyh(2:nx,1:ja,2:nz)=idyh(2:nx,1:ja,2:nz)+curl_h(2:nx,jb+2:ny,2:nz);
disp_y(2:nx,jb+2:ny,2:nz)=gi3_3w(2:nx,jb+2:ny,2:nz)...
.*gk3_3w(2:nx,jb+2:ny,2:nz).*disp_y(2:nx,jb+2:ny,2:nz)+...
gi2_3w(2:nx,jb+2:ny,2:nz).*gk2_3w(2:nx,jb+2:ny,2:nz)*0.5...
.*(curl_h(2:nx,jb+2:ny,2:nz)+gj1_3w(2:nx,jb+2:ny,2:nz)...
.*idyh(2:nx,1:ja,2:nz));
%计算dz
curl_h(2:nx,2:ny,1:ka)=(ra_x*(hy(2:nx,2:ny,1:ka)...
-hy(1:nx-1,2:ny,1:ka))-ra_y*(hx(2:nx,2:ny,1:ka)-hx(2:nx,1:ny-1,1:ka)));
idzl(2:nx,2:ny,1:ka)=idzl(2:nx,2:ny,1:ka)+curl_h(2:nx,2:ny,1:ka);
disp_z(2:nx,2:ny,1:ka)=gi3_3w(2:nx,2:ny,1:ka)...
.*gj3_3w(2:nx,2:ny,1:ka).*disp_z(2:nx,2:ny,1:ka)+...
gi2_3w(2:nx,2:ny,1:ka).*gj2_3w(2:nx,2:ny,1:ka)*0.5...
.*(curl_h(2:nx,2:ny,1:ka)+gk1_3w(2:nx,2:ny,1:ka)...
.*idzl(2:nx,2:ny,1:ka));
curl_h(2:nx,2:ny,ka+1:kb+1)=(ra_x*(hy(2:nx,2:ny,ka+1:kb+1)...
-hy(1:nx-1,2:ny,ka+1:kb+1))-ra_y*(hx(2:nx,2:ny,ka+1:kb+1)...
-hx(2:nx,1:ny-1,ka+1:kb+1)));
disp_z(2:nx,2:ny,ka+1:kb+1)=gi3_3w(2:nx,2:ny,ka+1:kb+1)...
.*gj3_3w(2:nx,2:ny,ka+1:kb+1).*disp_z(2:nx,2:ny,ka+1:kb+1)+...
gi2_3w(2:nx,2:ny,ka+1:kb+1).*gj2_3w(2:nx,2:ny,ka+1:kb+1)...
*0.5.*curl_h(2:nx,2:ny,ka+1:kb+1);
curl_h(2:nx,2:ny,kb+2:nz)=(ra_x*(hy(2:nx,2:ny,kb+2:nz)...
-hy(1:nx-1,2:ny,kb+2:nz))-ra_y*(hx(2:nx,2:ny,kb+2:nz)...
-hx(2:nx,1:ny-1,kb+2:nz)));
idzh(2:nx,2:ny,1:ka)=idzh(2:nx,2:ny,1:ka)+curl_h(2:nx,2:ny,kb+2:nz);
disp_z(2:nx,2:ny,kb+2:nz)=gi3_3w(2:nx,2:ny,kb+2:nz)...
.*gj3_3w(2:nx,2:ny,kb+2:nz).*disp_z(2:nx,2:ny,kb+2:nz)+...
gi2_3w(2:nx,2:ny,kb+2:nz).*gj2_3w(2:nx,2:ny,kb+2:nz)*0.5...
.*(curl_h(2:nx,2:ny,kb+2:nz)+gk1_3w(2:nx,2:ny,kb+2:nz)...
.*idzh(2:nx,2:ny,1:ka));
%加入激励源
pulse=exp(-0.5*((t0-n)/spread)^2);
disp_z(ic,jc,kc)=pulse;
%计算ex，ey，ez
ex(2:IE-1,2:JE-1,2:KE-1)=gax(2:IE-1,2:JE-1,2:KE-1)...
.*(disp_x(2:IE-1,2:JE-1,2:KE-1)-ix(2:IE-1,2:JE-1,2:KE-1));
ix(2:IE-1,2:JE-1,2:KE-1)=ix(2:IE-1,2:JE-1,2:KE-1)...
+gbx(2:IE-1,2:JE-1,2:KE-1).*ex(2:IE-1,2:JE-1,2:KE-1);
ey(2:IE-1,2:JE-1,2:KE-1)=gay(2:IE-1,2:JE-1,2:KE-1)...
.*(disp_y(2:IE-1,2:JE-1,2:KE-1)-iy(2:IE-1,2:JE-1,2:KE-1));
iy(2:IE-1,2:JE-1,2:KE-1)=iy(2:IE-1,2:JE-1,2:KE-1)...
+gby(2:IE-1,2:JE-1,2:KE-1).*ey(2:IE-1,2:JE-1,2:KE-1);
ez(2:IE-1,2:JE-1,2:KE-1)=gaz(2:IE-1,2:JE-1,2:KE-1)...
.*(disp_z(2:IE-1,2:JE-1,2:KE-1)-iz(2:IE-1,2:JE-1,2:KE-1));
iz(2:IE-1,2:JE-1,2:KE-1)=iz(2:IE-1,2:JE-1,2:KE-1)...
+gbz(2:IE-1,2:JE-1,2:KE-1).*ez(2:IE-1,2:JE-1,2:KE-1);
%计算hx
curl_e(1:ia,1:ny-1,1:nz-1)=(ey(1:ia,1:ny-1,2:nz)...
-ey(1:ia,1:ny-1,1:nz-1)-ra_y*(ez(1:ia,2:ny,1:nz-1)...
-ez(1:ia,1:ny-1,1:nz-1)));
ihxl(1:ia,1:ny-1,1:nz-1)=ihxl(1:ia,1:ny-1,1:nz-1)...
+curl_e(1:ia,1:ny-1,1:nz-1);
hx(1:ia,1:ny-1,1:nz-1)=fj3_3w(1:ia,1:ny-1,1:nz-1)...
.*fk3_3w(1:ia,1:ny-1,1:nz-1).*hx(1:ia,1:ny-1,1:nz-1)...
+fj2_3w(1:ia,1:ny-1,1:nz-1).*fk2_3w(1:ia,1:ny-1,1:nz-1)...
*0.5.*(curl_e(1:ia,1:ny-1,1:nz-1)+fi1_3w(1:ia,1:ny-1,1:nz-1)...
.*ihxl(1:ia,1:ny-1,1:nz-1));
curl_e(ia+1:ib+1,1:ny-1,1:nz-1)=(ey(ia+1:ib+1,1:ny-1,1:nz-1)...
-ey(ia+1:ib+1,1:ny-1,1:nz-1)-ra_y*(ez(ia+1:ib+1,2:ny,1:nz-1)...
-ez(ia+1:ib+1,1:ny-1,1:nz-1)));
hx(ia+1:ib+1,1:ny-1,1:nz-1)=fj3_3w(ia+1:ib+1,1:ny-1,1:nz-1)...
.*fk3_3w(ia+1:ib+1,1:ny-1,1:nz-1).*hx(ia+1:ib+1,1:ny-1,1:nz-1)...
+fj2_3w(ia+1:ib+1,1:ny-1,1:nz-1)...
.*fk2_3w(ia+1:ib+1,1:ny-1,1:nz-1)...
*0.5.*curl_e(ia+1:ib+1,1:ny-1,1:nz-1);
curl_e(ib+2:nx,1:ny-1,1:nz-1)=(ey(ib+2:nx,1:ny-1,1:nz-1)...
-ey(ib+2:nx,1:ny-1,1:nz-1)...
-ra_y*(ez(ib+2:nx,2:ny,1:nz-1)-ez(ib+2:nx,1:ny-1,1:nz-1)));
ihxh(1:ia,1:ny-1,1:nz-1)=ihxh(1:ia,1:ny-1,1:nz-1)...
+curl_e(ib+2:nx,1:ny-1,1:nz-1);
hx(ib+2:nx,1:ny-1,1:nz-1)=fj3_3w(ib+2:nx,1:ny-1,1:nz-1)...
.*fk3_3w(ib+2:nx,1:ny-1,1:nz-1).*hx(ib+2:nx,1:ny-1,1:nz-1)...
+fj2_3w(ib+2:nx,1:ny-1,1:nz-1).*fk2_3w(ib+2:nx,1:ny-1,1:nz-1)...
*0.5.*(curl_e(ib+2:nx,1:ny-1,1:nz-1)...
+fi1_3w(ib+2:nx,1:ny-1,1:nz-1).*ihxh(1:ia,1:ny-1,1:nz-1));
%计算hy
curl_e(1:nx-1,1:ja,1:nz-1)=(-ex(1:nx-1,1:ja,2:nz)...
+ex(1:nx-1,1:ja,1:nz-1)+ra_x*(ez(2:nx,1:ja,1:nz-1)...
-ez(1:nx-1,1:ja,1:nz-1)));
ihyl(1:nx-1,1:ja,1:nz-1)=ihyl(1:nx-1,1:ja,1:nz-1)...
+curl_e(1:nx-1,1:ja,1:nz-1);
hy(1:nx-1,1:ja,1:nz-1)=fi3_3w(1:nx-1,1:ja,1:nz-1)...
.*fk3_3w(1:nx-1,1:ja,1:nz-1).*hy(1:nx-1,1:ja,1:nz-1)...
+fi2_3w(1:nx-1,1:ja,1:nz-1).*fk2_3w(1:nx-1,1:ja,1:nz-1)...
*0.5.*(curl_e(1:nx-1,1:ja,1:nz-1)+fj1_3w(1:nx-1,1:ja,1:nz-1)...
.*ihyl(1:nx-1,1:ja,1:nz-1));
curl_e(1:nx-1,ja+1:jb+1,1:nz-1)=(-ex(1:nx-1,ja+1:jb+1,2:nz)...
+ex(1:nx-1,ja+1:jb+1,1:nz-1)+ra_x*(ez(2:nx,ja+1:jb+1,1:nz-1)...
-ez(1:nx-1,ja+1:jb+1,1:nz-1)));
hy(1:nx-1,ja+1:jb+1,1:nz-1)=fi3_3w(1:nx-1,ja+1:jb+1,1:nz-1)...
.*fk3_3w(1:nx-1,ja+1:jb+1,1:nz-1).*hy(1:nx-1,ja+1:jb+1,1:nz-1)...
+fi2_3w(1:nx-1,ja+1:jb+1,1:nz-1)...
.*fk2_3w(1:nx-1,ja+1:jb+1,1:nz-1)...
*0.5.*curl_e(1:nx-1,ja+1:jb+1,1:nz-1);
curl_e(1:nx-1,jb+2:ny,1:nz-1)=(-ex(1:nx-1,jb+2:ny,2:nz)...
+ex(1:nx-1,jb+2:ny,1:nz-1)...
+ra_x*(ez(2:nx,jb+2:ny,1:nz-1)-ez(1:nx-1,jb+2:ny,1:nz-1)));
ihyh(1:nx-1,1:ja,1:nz-1)=ihyh(1:nx-1,1:ja,1:nz-1)...
+curl_e(1:nx-1,jb+2:ny,1:nz-1);
hy(1:nx-1,jb+2:ny,1:nz-1)=fi3_3w(1:nx-1,jb+2:ny,1:nz-1)...
.*fk3_3w(1:nx-1,jb+2:ny,1:nz-1).*hy(1:nx-1,jb+2:ny,1:nz-1)...
+fi2_3w(1:nx-1,jb+2:ny,1:nz-1).*fk2_3w(1:nx-1,jb+2:ny,1:nz-1)...
*0.5.*(curl_e(1:nx-1,jb+2:ny,1:nz-1)...
+fj1_3w(1:nx-1,jb+2:ny,1:nz-1).*ihyh(1:nx-1,1:ja,1:nz-1));
%计算hz
curl_e(1:nx-1,1:ny-1,1:ka)=(ra_y*(ex(1:nx-1,2:ny,1:ka)...
-ex(1:nx-1,1:ny-1,1:ka))-ra_x*(ey(2:nx,1:ny-1,1:ka)...
-ey(1:nx-1,1:ny-1,1:ka)));
ihzl(1:nx-1,1:ny-1,1:ka)=ihzl(1:nx-1,1:ny-1,1:ka)...
+curl_e(1:nx-1,1:ny-1,1:ka);
hz(1:nx-1,1:ny-1,1:ka)=fi3_3w(1:nx-1,1:ny-1,1:ka)...
.*fj3_3w(1:nx-1,1:ny-1,1:ka).*hz(1:nx-1,1:ny-1,1:ka)...
+fi2_3w(1:nx-1,1:ny-1,1:ka).*fj2_3w(1:nx-1,1:ny-1,1:ka)...
*0.5.*(curl_e(1:nx-1,1:ny-1,1:ka)+fk1_3w(1:nx-1,1:ny-1,1:ka)...
.*ihzl(1:nx-1,1:ny-1,1:ka));
curl_e(1:nx-1,1:ny-1,ka+1:kb+1)=(ra_y*(ex(1:nx-1,2:ny,ka+1:kb+1)...
-ex(1:nx-1,1:ny-1,ka+1:kb+1))-ra_x*(ey(2:nx,1:ny-1,ka+1:kb+1)...
-ey(1:nx-1,1:ny-1,ka+1:kb+1)));
hz(1:nx-1,1:ny-1,ka+1:kb+1)=fi3_3w(1:nx-1,1:ny-1,ka+1:kb+1)...
.*fj3_3w(1:nx-1,1:ny-1,ka+1:kb+1).*hz(1:nx-1,1:ny-1,ka+1:kb+1)...
+fi2_3w(1:nx-1,1:ny-1,ka+1:kb+1)...
.*fj2_3w(1:nx-1,1:ny-1,ka+1:kb+1)...
*0.5.*curl_e(1:nx-1,1:ny-1,ka+1:kb+1);
curl_e(1:nx-1,1:ny-1,kb+2:nz)=(ra_y*(ex(1:nx-1,2:ny,kb+2:nz)...
-ex(1:nx-1,1:ny-1,kb+2:nz))...
-ra_x*(ey(2:nx,1:ny-1,kb+2:nz)-ey(1:nx-1,1:ny-1,kb+2:nz)));
ihzh(1:nx-1,1:ny-1,1:ka)=ihzh(1:nx-1,1:ny-1,1:ka)...
+curl_e(1:nx-1,1:ny-1,kb+2:nz);
hz(1:nx-1,1:ny-1,kb+2:nz)=fi3_3w(1:nx-1,1:ny-1,kb+2:nz)...
.*fj3_3w(1:nx-1,1:ny-1,kb+2:nz).*hz(1:nx-1,1:ny-1,kb+2:nz)...
+fi2_3w(1:nx-1,1:ny-1,kb+2:nz).*fj2_3w(1:nx-1,1:ny-1,kb+2:nz)...
*0.5.*(curl_e(1:nx-1,1:ny-1,kb+2:nz)...
+fk1_3w(1:nx-1,1:ny-1,kb+2:nz).*ihzh(1:nx-1,1:ny-1,1:ka));
%画图
if n==50
for i=1:IE
for j=1:JE
ezkout(i,j)=ez(i,j,kc-5);
end
end
[i,j]=meshgrid(1:1:IE,1:1:KE);
subplot(2,2,1);
mesh(i,j,(ezkout))
surf(i,j,(ezkout))
axis([1,IE,1,JE,-0.02,0.03]);
title('T=50');
subplot(2,2,2);
contour(ezkout);
end
if n==80
for i=1:IE
for j=1:JE
ezkout(i,j)=ez(i,j,kc-5);
end
end
[i,j]=meshgrid(1:1:IE,1:1:KE);
subplot(2,2,3);
mesh(i,j,(ezkout))
surf(i,j,(ezkout))
axis([1,IE,1,JE,-0.02,0.03]);
title('T=80');
subplot(2,2,4);
contour(ezkout);
end
end
可以得到50和80个时间步下的偶极子天线辐射图:
智能推荐
什么是内部类？成员内部类、静态内部类、局部内部类和匿名内部类的区别及作用？_成员内部类和局部内部类的区别-程序员宅基地
文章浏览阅读3.4k次，点赞8次，收藏42次。一、什么是内部类？or 内部类的概念内部类是定义在另一个类中的类；下面类TestB是类TestA的内部类。即内部类对象引用了实例化该内部对象的外围类对象。public class TestA{ class TestB {}}二、 为什么需要内部类？or 内部类有什么作用？1、 内部类方法可以访问该类定义所在的作用域中的数据，包括私有数据。2、内部类可以对同一个包中的其他类隐藏起来。3、 当想要定义一个回调函数且不想编写大量代码时，使用匿名内部类比较便捷。三、 内部类的分类成员内部_成员内部类和局部内部类的区别
分布式系统_分布式系统运维工具-程序员宅基地
文章浏览阅读118次。分布式系统要求拆分分布式思想的实质搭配要求分布式系统要求按照某些特定的规则将项目进行拆分。如果将一个项目的所有模板功能都写到一起，当某个模块出现问题时将直接导致整个服务器出现问题。拆分按照业务拆分为不同的服务器，有效的降低系统架构的耦合性在业务拆分的基础上可按照代码层级进行拆分(view、controller、service、pojo)分布式思想的实质分布式思想的实质是为了系统的..._分布式系统运维工具
用Exce分析l数据极简入门_exce l趋势分析数据量-程序员宅基地
文章浏览阅读174次。1.数据源准备2.数据处理step1：数据表处理应用函数：①VLOOKUP函数; ② CONCATENATE函数终表：step2：数据透视表统计分析（1） 透视表汇总不同渠道用户数, 金额（2）透视表汇总不同日期购买用户数，金额（3）透视表汇总不同用户购买订单数，金额step3：讲第二步结果可视化, 比如, 柱形图（1）不同渠道用户数, 金额（2）不同日期..._exce l趋势分析数据量
宁盾堡垒机双因素认证方案_horizon宁盾双因素配置-程序员宅基地
文章浏览阅读3.3k次。堡垒机可以为企业实现服务器、网络设备、数据库、安全设备等的集中管控和安全可靠运行，帮助IT运维人员提高工作效率。通俗来说，就是用来控制哪些人可以登录哪些资产（事先防范和事中控制），以及录像记录登录资产后做了什么事情（事后溯源）。由于堡垒机内部保存着企业所有的设备资产和权限关系，是企业内部信息安全的重要一环。但目前出现的以下问题产生了很大安全隐患：密码设置过于简单，容易被暴力破解；为方便记忆，设置统一的密码，一旦单点被破，极易引发全面危机。在单一的静态密码验证机制下，登录密码是堡垒机安全的唯一_horizon宁盾双因素配置
谷歌浏览器安装（Win、Linux、离线安装）_chrome linux debian离线安装依赖-程序员宅基地
文章浏览阅读7.7k次，点赞4次，收藏16次。Chrome作为一款挺不错的浏览器，其有着诸多的优良特性，并且支持跨平台。其支持（Windows、Linux、Mac OS X、BSD、Android），在绝大多数情况下，其的安装都很简单，但有时会由于网络原因，无法安装，所以在这里总结下Chrome的安装。Windows下的安装：在线安装：离线安装：Linux下的安装：在线安装：离线安装：..._chrome linux debian离线安装依赖
烤仔TVの尚书房 | 逃离北上广？不如押宝越南“北上广”-程序员宅基地
文章浏览阅读153次。中国发达城市榜单每天都在刷新，但无非是北上广轮流坐庄。北京拥有最顶尖的文化资源，上海是“摩登”的国际化大都市，广州是活力四射的千年商都。GDP和发展潜力是衡量城市的数字指...
随便推点
java spark的使用和配置_使用java调用spark注册进去的程序-程序员宅基地
文章浏览阅读3.3k次。前言spark在java使用比较少，多是scala的用法，我这里介绍一下我在项目中使用的代码配置详细算法的使用请点击我主页列表查看版本jar版本说明spark3.0.1scala2.12这个版本注意和spark版本对应，只是为了引jar包springboot版本2.3.2.RELEASEmaven<!-- spark --> <dependency> <gro_使用java调用spark注册进去的程序
汽车零部件开发工具巨头V公司全套bootloader中UDS协议栈源代码，自己完成底层外设驱动开发后，集成即可使用_uds协议栈 源代码-程序员宅基地
文章浏览阅读4.8k次。汽车零部件开发工具巨头V公司全套bootloader中UDS协议栈源代码，自己完成底层外设驱动开发后，集成即可使用，代码精简高效，大厂出品有量产保证。:139800617636213023darcy169_uds协议栈 源代码
AUTOSAR基础篇之OS(下)_autosar 定义了 5 种多核支持类型-程序员宅基地
文章浏览阅读4.6k次，点赞20次，收藏148次。AUTOSAR基础篇之OS(下)前言首先，请问大家几个小小的问题，你清楚：你知道多核OS在什么场景下使用吗？多核系统OS又是如何协同启动或者关闭的呢？AUTOSAR OS存在哪些功能安全等方面的要求呢？多核OS之间的启动关闭与单核相比又存在哪些异同呢？。。。。。。今天，我们来一起探索并回答这些问题。为了便于大家理解，以下是本文的主题大纲：[外链图片转存失败,源站可能有防盗链机制,建议将图片保存下来直接上传(img-JCXrdI0k-1636287756923)(https://gite_autosar 定义了 5 种多核支持类型
VS报错无法打开自己写的头文件_vs2013打不开自己定义的头文件-程序员宅基地
文章浏览阅读2.2k次，点赞6次，收藏14次。原因：自己写的头文件没有被加入到方案的包含目录中去，无法被检索到，也就无法打开。将自己写的头文件都放入header files。然后在VS界面上，右键方案名，点击属性。将自己头文件夹的目录添加进去。_vs2013打不开自己定义的头文件
【Redis】Redis基础命令集详解_redis命令-程序员宅基地
文章浏览阅读3.3w次，点赞80次，收藏342次。此时，可以将系统中所有用户的 Session 数据全部保存到 Redis 中，用户在提交新的请求后，系统先从Redis 中查找相应的Session 数据，如果存在，则再进行相关操作，否则跳转到登录页面。此时，可以将系统中所有用户的 Session 数据全部保存到 Redis 中，用户在提交新的请求后，系统先从Redis 中查找相应的Session 数据，如果存在，则再进行相关操作，否则跳转到登录页面。当数据量很大时，count 的数量的指定可能会不起作用，Redis 会自动调整每次的遍历数目。_redis命令
URP渲染管线简介-程序员宅基地
文章浏览阅读449次，点赞3次，收藏3次。URP的设计目标是在保持高性能的同时，提供更多的渲染功能和自定义选项。与普通项目相比，会多出Presets文件夹，里面包含着一些设置，包括本色，声音，法线，贴图等设置。全局只有主光源和附加光源，主光源只支持平行光，附加光源数量有限制，主光源和附加光源在一次Pass中可以一起着色。URP：全局只有主光源和附加光源，主光源只支持平行光，附加光源数量有限制，一次Pass可以计算多个光源。可编程渲染管线：渲染策略是可以供程序员定制的，可以定制的有：光照计算和光源，深度测试，摄像机光照烘焙，后期处理策略等等。_urp渲染管线