chapter3.2.2.m

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

clear;
clf;
J=1.25;              % 相对介电常数    %
c=3*10.^8;            % 光速    %
f=600*10.^6;          % 工作频率    %
k0=2*pi*f/c;         % 波数    %
b=k0*J.^0.5;          % 传播常数    %
s=1;
for x=-40:0.025:40;
    X(s)=x;
    d=2./sqrt(2.^2+x.^2).*exp(-j.*k0.*sqrt(2.^2+x.^2))./sqrt(2.^2+x.^2);
    y(s)=abs(d)*0.0001;
    s=s+1;
end;
plot(X,y);
grid on;
axis([-40,40,0,0.00006]);