annotate general/numerical/array/sbitmap.m @ 61:eff6bddf82e3
tip
Finally implemented perceptual brightness thing.
| author |
samer |
| date |
Sun, 11 Oct 2015 10:20:42 +0100 |
| 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);
|
