TFSF边界条件

待续

%1D FDTD simulation with a simple absorbing boundary condition
% and a TFSF boundary between hy[49] and ez[50]. 
SIZE = 500;
ez = zeros(1,SIZE);
hy = zeros(1,SIZE);
imp0=377.0;
maxTime = 10000;

for qTime = 0 : 1 : maxTime
     hy(SIZE)=hy(SIZE-1);%
    for mm = 1 : 1 : SIZE -1
        hy(mm) = hy(mm) + (ez(mm+1)- ez(mm))/imp0;
    end   
% correction for Hy adjacent to TFSF boundary */
 hy(50)=hy(50)-exp(-(qTime - 30)*(qTime - 30) / 100) / imp0;
 
    figure(1); t_hy = plot(hy);    
    title('Magnetic Field');    
    ez(1)=ez(2);%    
    for mm = 2 : 1 : SIZE 
         ez(mm) = ez(mm) + (hy(mm)- hy(mm-1))*imp0;
    end    
    figure(2); t_ez = plot(ez);
    title('Electric Field')
    ez(51) = ez(51) + exp(-(qTime+0.5-(-0.5)-30.0)*(qTime+0.5-(-0.5)-30.0)/100.0);
    
%     pause(0.01);
% %     refreshdata(t_hy);
%     refreshdata(t_ez);
%     drawnow;
end