outrgb.m

用Matlab中的Haar和Db9小波对图像进行分解和重构,并在不同阈值下用PNG格式存储重构的图像.

function []=outrgb(pic_R,pic_G,pic_B,wavename,threshold,level)
% 该函数确定了图像在各像素位置上的红、绿、蓝的强度值组合。实现了R、G、B各分量组合后所
% 成的真彩图像的文件输出
temp=size(pic_R);
 pic=zeros(temp(1),temp(2),3);
 for i=1:temp(1);
    for j=1:temp(2);
       pic(i,j,1)=pic_R(i,j);
       pic(i,j,2)=pic_G(i,j);
       pic(i,j,3)=pic_B(i,j);
   end
end

%输出RGB图像，即真彩图像。
imwrite(pic/255,strcat('pic','_',wavename,'_',threshold,level,'.png'));