表面波、单模、多模.m

来自「关于泄漏同轴电缆性质」· M 代码 · 共 22 行

clear;
J=1.25;              % 相对介电常数    %
c=3*10.^8;            % 光速    %
P=0.333;             % 开槽周期   %
L=1000;              % 电缆总长   %
f=600*10.^6;          % 工作频率    %
k0=2*pi*f/c;         % 波数    %
b=k0*J.^0.5;          % 传播常数    %
N=fix(L/P);   % 开槽口总数  %
s=1;
for x=400:0.5:800;
    X(s)=x;
    d=0;
for i=1:N
    d=d+2./sqrt(2.^2+(x-i.*P).^2).*exp(-j.*k0.*sqrt(2.^2+(x-i.*P).^2)-j.*b.*(i-1).*P)./sqrt(2.^2+(x-i.*P).^2);
end;
y(s)=abs(d);
s=s+1;
end
plot(X,y);