Mercurial > hg > smallbox
view util/sparco utils/thumbFromOp.m @ 77:62f20b91d870
add routines from sparco problems privite folder to {root}\util
some changes to ksvd vs rlsdla image denoising example
author | Ivan <ivan.damnjanovic@eecs.qmul.ac.uk> |
---|---|
date | Fri, 25 Mar 2011 14:01:50 +0000 (2011-03-25) |
parents | |
children |
line wrap: on
line source
function P = thumbFromOp(op,m,n,sm,sn,grayscale) % Output matrix P, of size m x n, sampled at % sm x sn upper top % Copyright 2008, Ewout van den Berg and Michael P. Friedlander % http://www.cs.ubc.ca/labs/scl/sparco % $Id: thumbFromOp.m 1040 2008-06-26 20:29:02Z ewout78 $ if nargin < 6, grayscale = 0; end info = op([],0); sm = min(info{1},sm); sn = min(info{2},sn); M = zeros(sm,sn); for i=1:sn v = zeros(info{2},1); v(i) = 1; w = real(op(v,1)); M(:,i) = w(1:sm); end mn = min(min(M)); mx = max(max(M)); M = (M - mn) / (mx-mn); idxm = floor(linspace(1,sm+1,m+1)); idxm = idxm(1:end-1); idxn = floor(linspace(1,sn+1,n+1)); idxn = idxn(1:end-1); if grayscale P = 1-M(idxm,idxn); else clrmap = hsv; M = 1 + round(M * (length(clrmap)-1)); P = zeros(m,n,3); for j1=1:m for j2=1:n P(j1,j2,:) = clrmap(M(idxm(j1),idxn(j2)),:); end end end