欢迎来到天天文库
浏览记录
ID:57710249
大小:13.00 KB
页数:1页
时间:2020-09-01
《二值图像游程编码matlab代码.doc》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、>>image1=imread('D:ProgramFilesMATLABR2012abinD.jpg');%读入图像imshow(image1);%显示原图像>>%以下程序是将原图像转换为二值图像image2=image1(:);%将原始图像写成一维的数据并设为image2image2length=length(image2);%计算image2的长度fori=1:1:image2length%for循环,目的在于转换为二值图像ifimage2(i)>=127image2(i)=255;elseimage2(i)=0;endend>>imag
2、e3=reshape(image2,256,768);%重建二维数组图像,并设为image3figure,imshow(image3);>>%以下程序为对原图像进行游程编码,压缩X=image3(:);%令X为新建的二值图像的一维数据组x=1:1:length(X);%显示游程编码之前的图像数据figure,plot(x,X(x));>>j=1;image4(1)=1;forz=1:1:(length(X)-1)%游程编码程序段ifX(z)==X(z+1)image4(j)=image4(j)+1;elsedata(j)=X(z);j=j+1;image
3、4(j)=1;endend>>data(j)=X(length(X));>>image4length=length(image4);>>y=1:1:image4length;>>figure;plot(y,image4(y));>>CR=image2length/image4length;>>l=1;>>form=1:image4lengthforn=1:1:image4(m);rec_image(1)=data(m);l=l+1;endend>>u=1:1:length(rec_image);>>figure,plot(u,rec_image(u));
此文档下载收益归作者所有