jisuan.m

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

[jisuan.m]
funciton s=jisuan(x)
J=1.25;              % 相对介电常数    %
c=3*10.^8;            % 光速    %
P=0.233;             % 开槽周期   %
L=1000;              % 电缆总长   %
f=450*10.^6;          % 工作频率    %
k0=2*pi*f/c;         % 波数    %
b=k0*J.^0.5;          % 传播常数    %
N=fix(1000/0.233);   % 开槽口总数  %
s=0;
for i=1:N
    s(i)=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);
    s=s+s(i)
end;