Mercurial > hg > ishara

annotate general/numerical/array/sbitmap.m @ 35:f1ce7876346a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Updated docs.
author samer
date Mon, 21 Jan 2013 11:01:45 +0000
parents db7f4afd27c5
children
rev   line source
samer@4 1 function X=sbitmap(c,K)
samer@4 2 % sbitmap - turn sequence of integers into sparse binary bitmap
samer@4 3 %
samer@4 4 % sbitmap ::
samer@4 5 % Y:[[1,L]->[K]] ~'sequence of L natural numbers in 1..K',
samer@4 6 % K:natural ~'height of array to return'
samer@4 7 % -> X:[[K,L]->0|1] ~'X(i,j)=1 if Y(j)=i'.
samer@4 8 %
samer@4 9 % See also BITMAP
samer@4 10
samer@4 11 L=length(c);
samer@4 12 if nargin<2, K=max(c); end
samer@4 13 X=sparse(c,1:L,1,K,L);