rgbimage.m

来自「beamlet变化的工具箱」· M 代码 · 共 33 行

function RGBimage(im,CMap);
% im - a real matrix
% Color map n*3 matrix
nn=size(im);
mn=mean(im(:));
sd=std(im(:));
n=length(CMap);
im=1+n*(((im-mn)/sd)+1.5)/3;
im=floor(im);
im=max(im,1);
im=min(im,n);
for i=1:nn,
   for j=1:nn,
      RGBim(i,j,:)=CMap(im(i,j),:);
   end
end
image(RGBim)


%
% Part of BeamLab Version:200
% Built:Friday,23-Aug-2002 00:00:00
% This is Copyrighted Material
% For Copying permissions see COPYING.m
% Comments? e-mail [e-mail]
%
%
% Part of BeamLab Version:200
% Built:Saturday,14-Sep-2002 00:00:00
% This is Copyrighted Material
% For Copying permissions see COPYING.m
% Comments? e-mail [e-mail]
%