zhinengtianxian.m

来自「智能天线仿真程序与PDF说明文档」· M 代码 · 共 17 行

r=input('input one number r:');
f0=1.9*10^9;
c=3*10^8;
l=c/f0;
k=2*pi/l;
d=0.5*l;
sprintf('%f',d);
t=-pi:pi/200:pi;
t1=k*d*cos(t);
f=0.0;
w=[exp(j*r);exp(j*2*r);exp(j*3*r);exp(j*4*r);exp(j*5*r);exp(j*6*r);exp(j*7*r);exp(j*8*r)];
for i=1:8;
    f=f+exp(j*(tl-r)*i);
end
f2=abs(f)/8;
polar(t1,f2,'--r')