File: hh.m

package info (click to toggle)
ufsparse 1.2-7
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 27,536 kB
  • ctags: 5,848
  • sloc: ansic: 89,328; makefile: 4,721; fortran: 1,991; csh: 207; sed: 162; awk: 33; java: 30; sh: 8
file content (31 lines) | stat: -rw-r--r-- 672 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 

h = jet (64) ;
h = h (64:-1:1,:) ;
h = h (20:end,:) ;

% h = h (17:128,:) ;

% s = sum (jet,2) ;
% h (:,1) = h (:,1) ./ s ;
% h (:,2) = h (:,2) ./ s ;
% h (:,3) = h (:,3) ./ s ;

h (1,:) = [1 1 1] ;	% white
h (2,:) = [1 1 .8] ;	% light yellow

h
colormap (h) ;

clf
subplot (5,1,1) ;
image (1:size(h,1)) ;

h = rgb2hsv (h) ;
% h (:,3) = linspace (1,0,64) ;
% h= hsv2rgb (h) ;

subplot (5,1,2)  ; plot (h(:,1)) ; axis ([1 64 0 1]) ; ylabel ('red') ;
subplot (5,1,3)  ; plot (h(:,2)) ; axis ([1 64 0 1]) ; ylabel ('green') ;
subplot (5,1,4)  ; plot (h(:,3)) ; axis ([1 64 0 1]) ; ylabel ('blue') ;
subplot (5,1,5)  ; plot (sum(h,2)) ; axis ([1 64 0 3]) ; ylabel ('sum') ;