稀疏定位focuss

稀疏定位focuss，对于初学稀疏进行DOA的人有参考作用

function   recover= focuss（XATmn）
tic
         p                     =0.5;
         recover               =ones（n1）;
while true
       front                   =recover;
       diamat                  =diag（abs（recover.^（2-p）））;
       tran                    =A*diamat*A‘;
       transform               =inv（tran）;
       recover                =diamat*A‘*transform*X（:）;
      if    abs（norm（front-recover）） <0.2
          break;
       end
end    
toc
% for j=1:T
% source（j）.vector=zeros（nn）;
% %source（j）.recover=S（:j）;
% for i=1:n
%       source（j）.vector（ii）=abs（S（ij）^（p-2））;
% end
% end
% index=1;REC=[];

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----
     目录           0  2015-01-17 00:17  doa_focuss\
     文件         646  2010-08-20 09:18  doa_focuss\focuss.m
     文件        1583  2014-10-03 11:59  doa_focuss\test.m