代码22-3.txt

matlab宝典书籍源码 全部代码 希望大家喜欢

I=imread('peppers.png');                      % 读入图像
imshow(I);                                    % 显示图像
title('original image');                      % 设置图像标题
level=graythresh(I);                          % 设置黑白转换阈值
bw=im2bw(I,level);                            % 将图像转换为黑白图像
figure;                                       % 新建窗口
imshow(bw);                                   % 显示图像
title('binary image');                        % 设置图像标题
a=bw'; a=a(:); a=a';                          % 变量赋值
a=double(a);                                  % 数据转换
rle(1)=a(1); m=2; rle(m)=1;                   % 变量赋值
for i=1:length(a)-1
    if a(i)==a(i+1)
        rle(m)=rle(m)+1;
    else
        m=m+1; rle(m)=1;                      % 动态定位及初始化下一个行程编码元素
    end
end
display(rle);                                 % 显示编码结果