-
大小: 1KB文件類型: .zip金幣: 1下載: 0 次發(fā)布日期: 2021-02-02
- 語(yǔ)言: Matlab
- 標(biāo)簽: 奇異值??matlab??SVD??Lorenz信號(hào)??
資源簡(jiǎn)介
對(duì)lorenz信號(hào)的(svd)奇異值分解降噪,
代碼片段和文件信息
function?jiangzao=qiyizhifenjie(datamtauEigenvaluecountK)
%相重構(gòu)Eigenvaluecount
PhaseSpacedata=r(datamtau);
Length?=?size(PhaseSpacedata2);?%相點(diǎn)的個(gè)數(shù)
%尋找領(lǐng)域?
for?i=1:Length
?????x=PhaseSpacedata(:i);
?????dist=sum((PhaseSpacedata-repmat(x[1Length])).^21);
??????[dist_sortJ]=sort(dist);
????
??????Ii=J(1:K);
??????P=PhaseSpacedata(:Ii)-repmat(mean(PhaseSpacedata(:Ii)2)[1K]);
%svd
???[U?S?V]=svd(P);?
???Temp=diag(S);
???[mn]=size(S);
???SS=zeros(mn);
???Index=1;
???for??k=1:m
???????for?j=1:n
??????????if?(k==j)
?????????????SS(kj)=SS(kj)+Temp(Index);
?????????????Index=Index+1;
??????????end;
??????end;?
?????????if(Index>Eigenvaluecount)
???????????break;
?????????end;?
???????
???end;
???pp=U*SS*V‘;
%代替
??PhaseSpacedata(:Ii)
?屬性????????????大小?????日期????時(shí)間???名稱
-----------?---------??----------?-----??----
?????文件????????1009??2020-09-21?02:28??╨┬╜?╬─╝■╝╨\qiyizhifenjie.m
?????文件????????1086??2020-09-21?02:28??╨┬╜?╬─╝■╝╨\qiyizhifenjie22.m
評(píng)論
共有 條評(píng)論