fdtd_1d.m

来自「本程序是使用有限时域差分法模拟电磁波在光学薄膜中的传输」· M 代码 · 共 13 行

close all; clear all; clc;

KE = 200;       % KE is the number of cells to be used
kc = KE / 2;    % Center of the problem space
t0 = 40;        % Center of the incident pulse
spread = 12;    % Width of the incident pulse
T = 0;          % Initial step
NSTEPS = 1;     % run step

Ex = ones(KE + 1, 1);
Hy = ones(KE, 1);