discrete antenna.m

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

clear;
J=1.25;              % 相对介电常数    %
c=3*10.^8;            % 光速    %
P=200;             % 开槽周期   %
L=1000;              % 电缆总长   %
f=200*10.^6;          % 工作频率    %
k0=2*pi*f/c;         % 波数    %
b=k0*J.^0.5;          % 传播常数    %
N=fix(L/P);   % 开槽口总数  %
E0=10        % 激励电压V  %   
s=1;
for x=300:0.5:700;
    X(s)=x;
    d=0;
for i=1:N
    d=d+E0*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);
axis([300,700,0,0.012])