Matlab二值图象游程编码.docVIP

二值图像游程编码算法的Matlab实现 实验源程序以及相关结果如下： image1=imread(C:\Program Files\MATLAB71\work\1\girl.jpg); %读入图像 imshow(image1); %显示原图像 % 以下程序是将原图像转换为二值图像 image2=image1(:); %将原始图像写成一维的数据并设为 image2 image2length=length(image2); % 计算image2的长度 for i=1:1:image2length % for 循环，目的在于转换为二值图像 If image2(i)=127 image2(i)=255; else image2(i)=0; end end image3=reshape(image2,146,122); % 重建二维数组图像，并设为image3 figure,imshow(image3); % 以下程序为对原图像进行游程编码，压缩 X=image3(:); %令X为新建的二值图像的一维数据组 x=1:1:length(X); % 显示游程编码之前的图像数据 figure,plot(x,X(x)); j=1; image4(1)=1; for z=1:1:(length(X)-1) % 游程编码程序段 if X(z)==X(z+1) image4(j)=image4(j)+1; else data(j)=X(z); % data(j)代表相应的像素数据 j=j+1; image4(j)=1; end end data(j)=X(length(X)); % 最后一个像素数据赋给data image4length=length(image4); % 计算游程编码后的所占字节数，记为image4length y=1:1:image4length ; % 显示编码后数据信息 figure,plot(y,image4(y)); CR=image2length/image4length; % 比较压缩前于压缩后的大小 % 下面程序是游程编码解压 l=1; for m=1:image4length for n=1:1:image4(m); rec_image(l)=data(m); l=l+1; end end u=1:1:length(rec_image); % 查看解压后的图像数据 figure,plot(u,rec_image(u));  rec2_image=reshape(rec_image,146,122); % 重建二维二维图像数组 figure,imshow(rec2_image); % 显示解压恢复后的图像 通过matlab可以看出，程序运行过程中各个变量的值 如下图： ＣＲ＝　１２.０８４　，说明该游程编码，压缩率为 12.084