beanforing_rsl.m

来自「自适应波束形成（智能天线）的MATLAB代码仿真程序」· M 代码 · 共 24 行

function    R=beanforing_RSL(X,Y)
n_array=4;
j=sqrt(-1);

u=0.2;
z=zeros(1,length(Y));
Q=eye(n_array,n_array);
beta=0.25;
w=[1,0,0,0]';
p(1)=1;
z(1)=w'*Y(:,1);

for i=2:length(Y)
    c=w'*Y(:,i);
    h=p*c;
    g=h/(beta+c'*h);
    p=(p-g*h')/beta;
    Q=(Q-Q*X(:,i)*X(:,i)'*Q/(u+X(:,i)'*Q*X(:,i)))/u;
   
    e=Q*Y(:,1)-w*c;
    w=w+e*g';
    z(i)=w'*Y(:,i);
end
R=z(1:length(Y));