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