資源簡(jiǎn)介
法國(guó)國(guó)立計(jì)算機(jī)及自動(dòng)化研究院INRIA開發(fā)的稀疏表達(dá)工具包,采用了intel底層MKL,效率較高,但要求在2009b以上的matlab上運(yùn)行
代碼片段和文件信息
function?tmp?=?displayPatches(D)
V=1;
[n?K]?=?size(D);
size(D);
sizeEdge=sqrt(n/V);
if?floor(sizeEdge)?~=?sizeEdge
???V=3;
???sizeEdge=sqrt(n/V);
end
p=3.5;
????????M=max((D(:)));
????????m=min((D(:)));
????????if?(m?>=?0)
???????????me=0;
???????????sig=sqrt(mean(((D(:))).^2));
????????else
???????????me=mean(D(:));
???????????sig=sqrt(mean(((D(:)-me)).^2));
????????end
????????D=D-me;
????????D=min(max(D-p*sig)p*sig);
????????M=max((D(:)));
????????m=min((D(:)));
???????D=(D-m)/(M-m);
??%?????D=1-D;
nBins=floor(sqrt(K));
tmp?=?zeros((sizeEdge+1)*nBins+1(sizeEdge+1)*nBins+1V);
patch?=?zeros(sizeEdgesizeEdge1);
mm=sizeEdge*sizeEdge;
for?ii?=?1:nBins
???for?jj?=?1:nBins
??????patchCol=(D(1:n(ii-1)*nBins+jj));
??????patchCol=reshape(patchCol?[sizeEdgesizeEdge?V]);
??????M=max((patchCol(:)));
??????m=min((patchCol(:)));
??%????patchCol=1.0*(patchCol-m)/(M-m)+0.0;
??????tmp((ii-1)*(sizeEdge+1)+2:ii*(sizeEdge+1)...
?????????(jj-1)*(sizeEdge+1)+2:jj*(sizeEdge+1):)=patchCol;
???end
end
colormap(‘bone‘);
imagesc(tmp);
評(píng)論
共有 條評(píng)論