图像彩色增强matlab源码

图像增强，彩色图像增强，matlab源码。

function res = grs2rgb（img map）

%%Convert grayscale images to RGB using specified colormap.
%	IMG is the grayscale image. Must be specified as a name of the image 
%	including the directory or the matrix.
%	MAP is the M-by-3 matrix of colors.
%
%	RES = GRS2RGB（IMG） produces the RGB image RES from the grayscale image IMG 
%	using the colormap HOT with 64 colors.
%
%	RES = GRS2RGB（IMGMAP） produces the RGB image RES from the grayscale image 
%	IMG using the colormap matrix MAP. MAP must contain 3 columns for Red 
%	Green and Blue components.  
%
%	Example 1:
%	open ‘image.tif‘;	
%	res = grs2rgb（image）;
%
%	Example 2:
%	cmap = colormap（summer）;
% 	res = grs2rgb（‘image.tif‘cmap）;
%
% 	See also COLORMAP HOT
%
%	Written by 
%	Valeriy R. Korostyshevskiy PhD
%	Georgetown University Medical Center
%	Washington D.C.
%	December 2006
%
% 	vrk@georgetown.edu

% Check the arguments
if nargin<1
	error（‘grs2rgb:missingImage‘‘Specify the name or the matrix of the image‘）;
end;

if ~exist（‘map‘‘var‘） || isempty（map）
	map = hot（64）;
end;

[lw] = size（map）;

if w~=3
	error（‘grs2rgb:wrongColormap‘‘Colormap matrix must contain 3 columns‘）;
end;

if ischar（img）
	a = imread（img）;
elseif isnumeric（img）
	a = img;
else
	error（‘grs2rgb:wrongImageFormat‘‘Image format: must be name or matrix‘）;
end;

% Calculate the indices of the colormap matrix
a = double（a）;
a（a==0） = 1; % Needed to produce nonzero index of the colormap matrix
ci = ceil（l*a/max（a（:）））; 

% Colors in the new image
[iliw] = size（a）;
r = zeros（iliw）; 
g = zeros（iliw）;
b = zeros（iliw）;
r（:） = map（ci1）;
g（:） = map（ci2）;
b（:） = map（ci3）;

% New image
res = zeros（iliw3）;
res（::1） = r; 
res（::2） = g; 
res（::3） = b;

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----
     文件        4539  2006-12-09 19:27  grs2rgb.html
     文件        1705  2006-12-09 19:48  grs2rgb.m
     文件        5027  2006-12-09 19:27  grs2rgbh.png
     文件       78995  2006-12-09 19:27  grs2rgbh_01.png
     文件       94510  2006-12-09 19:27  grs2rgbh_02.png
     文件       81857  2006-12-09 19:27  grs2rgbh_03.png
     文件        1344  2009-07-28 15:22  license.txt