home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
octa21fs.zip
/
octave
/
pnm
/
SImage
/
simagesc.m
< prev
Wrap
Text File
|
2000-01-15
|
323b
|
15 lines
#written by Stefan Mueller stm@fgan.de 1996
function x = simagesc (x)
[ high, wide ] = size (x);
maxval = max (max (x));
minval = min (min (x));
if (maxval == minval)
x = ones (high, wide);
else
x = fix ((x - minval) / (maxval - minval) * (length (colormap) - 1)) + 1;
endif
simage (x);
endfunction