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个时间步下的偶极子天线辐射图:
智能推荐
攻防世界_难度8_happy_puzzle_攻防世界困难模式攻略图文-程序员宅基地
文章浏览阅读645次。这个肯定是末尾的IDAT了，因为IDAT必须要满了才会开始一下个IDAT，这个明显就是末尾的IDAT了。，对应下面的create_head()代码。，对应下面的create_tail()代码。不要考虑爆破，我已经试了一下，太多情况了。题目来源：UNCTF。_攻防世界困难模式攻略图文
达梦数据库的导出（备份）、导入_达梦数据库导入导出-程序员宅基地
文章浏览阅读2.9k次，点赞3次，收藏10次。偶尔会用到，记录、分享。1. 数据库导出1.1 切换到dmdba用户su - dmdba1.2 进入达梦数据库安装路径的bin目录，执行导库操作 导出语句：./dexp cwy_init/[email protected]:5236 file=cwy_init.dmp log=cwy_init_exp.log 注释： cwy_init/init_123..._达梦数据库导入导出
js引入kindeditor富文本编辑器的使用_kindeditor.js-程序员宅基地
文章浏览阅读1.9k次。1. 在官网上下载KindEditor文件，可以删掉不需要要到的jsp，asp，asp.net和php文件夹。接着把文件夹放到项目文件目录下。2. 修改html文件，在页面引入js文件：<script type="text/javascript" src="./kindeditor/kindeditor-all.js"></script><script type="text/javascript" src="./kindeditor/lang/zh-CN.js"_kindeditor.js
STM32学习过程记录11——基于STM32G431CBU6硬件SPI+DMA的高效WS2812B控制方法-程序员宅基地
文章浏览阅读2.3k次，点赞6次，收藏14次。SPI的详情简介不必赘述。假设我们通过SPI发送0xAA，我们的数据线就会变为10101010，通过修改不同的内容，即可修改SPI中0和1的持续时间。比如0xF0即为前半周期为高电平，后半周期为低电平的状态。在SPI的通信模式中，CPHA配置会影响该实验，下图展示了不同采样位置的SPI时序图[1]。CPOL = 0，CPHA = 1：CLK空闲状态 = 低电平，数据在下降沿采样，并在上升沿移出CPOL = 0，CPHA = 0：CLK空闲状态 = 低电平，数据在上升沿采样，并在下降沿移出。_stm32g431cbu6
计算机网络-数据链路层_接收方收到链路层数据后,使用crc检验后,余数为0,说明链路层的传输时可靠传输-程序员宅基地
文章浏览阅读1.2k次，点赞2次，收藏8次。数据链路层习题自测问题1.数据链路(即逻辑链路)与链路(即物理链路)有何区别?“电路接通了”与”数据链路接通了”的区别何在?2.数据链路层中的链路控制包括哪些功能?试讨论数据链路层做成可靠的链路层有哪些优点和缺点。3.网络适配器的作用是什么?网络适配器工作在哪一层?4.数据链路层的三个基本问题(帧定界、透明传输和差错检测)为什么都必须加以解决？5.如果在数据链路层不进行帧定界，会发生什么问题？6.PPP协议的主要特点是什么？为什么PPP不使用帧的编号？PPP适用于什么情况？为什么PPP协议不_接收方收到链路层数据后,使用crc检验后,余数为0,说明链路层的传输时可靠传输
软件测试工程师移民加拿大_无证移民，未受过软件工程师的教育（第1部分）-程序员宅基地
文章浏览阅读587次。软件测试工程师移民加拿大 无证移民，未受过软件工程师的教育(第1部分) (Undocumented Immigrant With No Education to Software Engineer(Part 1))Before I start, I want you to please bear with me on the way I write, I have very little gen...
随便推点
Thinkpad X250 secure boot failed 启动失败问题解决_安装完系统提示secureboot failure-程序员宅基地
文章浏览阅读304次。Thinkpad X250笔记本电脑，装的是FreeBSD，进入BIOS修改虚拟化配置（其后可能是误设置了安全开机），保存退出后系统无法启动，显示：secure boot failed ，把自己惊出一身冷汗，因为这台笔记本刚好还没开始做备份.....根据错误提示，到bios里面去找相关配置，在Security里面找到了Secure Boot选项，发现果然被设置为Enabled，将其修改为Disabled ，再开机，终于正常启动了。_安装完系统提示secureboot failure
C++如何做字符串分割（5种方法）_c++ 字符串分割-程序员宅基地
文章浏览阅读10w+次，点赞93次，收藏352次。1、用strtok函数进行字符串分割原型： char *strtok(char *str, const char *delim);功能：分解字符串为一组字符串。参数说明：str为要分解的字符串，delim为分隔符字符串。返回值：从str开头开始的一个个被分割的串。当没有被分割的串时则返回NULL。其它：strtok函数线程不安全，可以使用strtok_r替代。示例：//借助strtok实现split#include <string.h>#include <stdio.h&_c++ 字符串分割
2013第四届蓝桥杯 C/C++本科A组 真题答案解析_2013年第四届c a组蓝桥杯省赛真题解答-程序员宅基地
文章浏览阅读2.3k次。1 .高斯日记 大数学家高斯有个好习惯：无论如何都要记日记。他的日记有个与众不同的地方，他从不注明年月日，而是用一个整数代替，比如：4210后来人们知道，那个整数就是日期，它表示那一天是高斯出生后的第几天。这或许也是个好习惯，它时时刻刻提醒着主人：日子又过去一天，还有多少时光可以用于浪费呢？高斯出生于：1777年4月30日。在高斯发现的一个重要定理的日记_2013年第四届c a组蓝桥杯省赛真题解答
基于供需算法优化的核极限学习机(KELM)分类算法-程序员宅基地
文章浏览阅读851次，点赞17次，收藏22次。摘要：本文利用供需算法对核极限学习机(KELM)进行优化，并用于分类。
metasploitable2渗透测试_metasploitable2怎么进入-程序员宅基地
文章浏览阅读1.1k次。一、系统弱密码登录1、在kali上执行命令行telnet 192.168.26.1292、Login和password都输入msfadmin3、登录成功，进入系统4、测试如下：二、MySQL弱密码登录：1、在kali上执行mysql –h 192.168.26.129 –u root2、登录成功，进入MySQL系统3、测试效果：三、PostgreSQL弱密码登录1、在Kali上执行psql -h 192.168.26.129 –U post..._metasploitable2怎么进入
Python学习之路：从入门到精通的指南_python人工智能开发从入门到精通pdf-程序员宅基地
文章浏览阅读257次。本文将为初学者提供Python学习的详细指南，从Python的历史、基础语法和数据类型到面向对象编程、模块和库的使用。通过本文，您将能够掌握Python编程的核心概念，为今后的编程学习和实践打下坚实基础。_python人工智能开发从入门到精通pdf