MATLAB仿真在现代通信中的应用：天线.pptVIP

程序11-5

clearall

foru=1:1:480

c=u*pi/128;

fori=8:30

E=1;

lam=1.9;

r=1;t=c;ta=c+pi/4;

m1=1;m2=1;m3=1;m4=1;m5=1;m6=1;m7=1;m8=1;ps1=(pi*r*cos(t)/lam);

ps2=(pi*r*cos(t+(pi/4))/lam);

ps3=(pi*r*cos(t+(pi/2))/lam);

ps4=(pi*r*cos(t+(.75*pi))/lam);

ps5=(pi*r*cos(t+(pi))/lam);

ps6=(pi*r*cos(1.25*pi+t)/lam);

ps7=(pi*r*cos((1.5)*pi+t)/lam);

ps8=(pi*cos((pi/4)-t)/lam);

ps1a=(pi*r*cos(ta)/lam);

ps2a=(pi*cos(ta+(pi/4))/lam);ps3a=(pi*cos(ta+(pi/2))/lam);

ps4a=(pi*cos(ta+(.75*pi))/lam);

ps5a=(pi*r*cos(ta+(pi))/lam);

ps6a=(pi*r*cos(1.25*pi+ta)/lam);

ps7a=(pi*r*cos((1.5)*pi+ta)/lam);

ps8a=(pi*cos((pi/4)-ta)/lam);

aa1=m1*(exp(j*(ps1+ps1a)));

aa2=m2*(exp(j*(ps2+ps2a)));

aa3=m3*(exp(j*(ps3+ps3a)));

aa4=m4*(exp(j*(ps4+ps4a)));aa5=m5*(exp(j*(ps5+ps5a)));

aa6=m6*(exp(j*(ps6+ps6a)));

aa7=m7*(exp(j*(ps7+ps7a)));

aa8=m8*(exp(j*(ps8+ps8a)));

delta=5;

a1=0;a2=0;a3=0;a4=0;a5=0;a6=0;a7=0;a8=0;

b1=exp(j*a1);b2=exp(j*a2);b3=exp(j*a3);b4=exp(j*a4);

b5=exp(j*a5);b6=exp(j*a6);b7=exp(j*a7);b8=exp(j*a8);

B=[b1b2b3b4b5b6b7b8];

x=[aa1aa2aa3aa4aa5aa6aa7aa8];Q=t;P=ta;

d=4*(cos(t-Q));da=4*(cos(ta-P));

y(i)=E*(abs(B*x));

e(i)=d+da-y(i);

B=B+2*delta*e(i)*x;

emse(i)=e(i)^2;

end

h=1:8;

w(h)=B(h);

W=[w(1)w(2)w(3)w(4)w(5)w(6)w(7)w(8)];

t=2*pi:-.01:0;E=1;

lam=1;

r=1;

m1=1;m2=1;m3=1;m4=1;m5=1;m6=1;m7=1;m8=1;

ps1=(pi*r*cos(t)/lam);

ps2=(pi*cos(t+(pi/4))/lam);

ps3=(pi*cos(t+(pi/2))/lam);

ps4=(pi*r*cos(t+(.75*pi))/lam);

ps5=(pi*r*cos(t+(pi))/lam);

ps6=(pi*r*cos(1.25*pi+t)/lam);

ps7=(pi*r*cos((1.5)*pi+t)/lam);

ps8=(pi*cos((pi/4)-t)/lam);

aa1=m1*(exp(j*(ps1)));

aa2=m2*(exp(j*(ps2)));

aa3=m3*(exp(j*(ps3)));

aa4=m4*(exp(j*(ps4)));

aa5=m5*(exp(j*(ps5)));

aa6=m6*(exp(j*(ps6)));

aa7=m7*(exp(j*(ps7)));

aa8=m8*(exp(j*(ps8)));x1=(aa1*(w(1))+aa2*(w(2))+aa3*(w(3))+aa4*(w(4))...

+aa5*(w(5))+aa6*(w(6))+aa7*(w(7))+aa8*(w(8)));

y=E*(abs(x