www.gusucode.com > matlab通信工程仿真源码（张德丰等编著）程序书籍 > matlab_code/matlab通信工程仿真源码（张德丰等编著）/第9章/li9_7.m

    %生成400*400彩条图像
clear;
r=[1 1 0 0 1 1 0 0];
g=[1 1 1 1 0 0 0 0];
b=[1 0 1 0 1 0 1 0];
n=60; %n*8列
s=ones(n,1);
r=s*r;
r=reshape(r,1,n*8);
g=s*g;
g=reshape(g,1,n*8);
b=s*b;
b=reshape(b,1,n*8);
m=400; %行数
s=ones(m,1);
%得出三基色矩阵
r=s*r;
g=s*g;
b=s*b;
%合成矩阵
I(:,:,1)=r;
I(:,:,2)=g;
I(:,:,3)=b;
I=uint8(I*255); %类型转换
imshow(I);
imwrite(I,'colorbar.tif','tif');