📄 creatcolorimageli.m
字号:
function [ColorImage] = CreatColorImageli(Row1,Row2,Periods,RH,GH,BH,a1,a2,a3)
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%输入要生成图象的行与列的大小,然后输出一幅RGB上都为正弦条纹的彩色图象
%07年9月29日 qfw
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%修改后的程序用来修正实际中摄像设备对不同颜色的影响
%07-10-17 qfw
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% a1 = Row1;
% a2 = Row2;
% a = 128;
% b = 125;
f0 = 1/Periods;
X0 = meshgrid(1:Row2,1:Row1);
ColorImage = zeros(Row1,Row2,3);
ColorImage(:,:,1) = a1+(RH/2)*sin(2*pi*f0*X0+2*pi*1/3);
ColorImage(:,:,2) = a2+(GH/2)*sin(2*pi*f0*X0+2*pi*2/3);
ColorImage(:,:,3) = a3+(BH/2)*sin(2*pi*f0*X0+2*pi*3/3);
%ColorImage(:,:,i) = -(ColorImage(:,:,i)-1)*255/2;
% ma = max(max(ColorImage(:,:,i)));
% mi = min(min(ColorImage(:,:,i)));
% if (((mi < 250)&(mi >= 0)) & ((ma < 250)&(ma >= 0)))
% ColorImage(:,:,i) = ColorImage(:,:,i);
% else
% ColorImage(:,:,i) = (ColorImage(:,:,i)-mi)*ma/(ma-mi);
% end
% end
% imwrite(ColorImage,'ColorImage.bmp');
% for j = 1:3
% ColorImage(:,:,j)=(ColorImage(:,:,j)-min(min(ColorImage(:,:,j)))) ...
% ./max(max(ColorImage(:,:,j)));
% end
% image(uint8(ColorImage))
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -