matlab游程编码的实现

%%  Run Length Coding 
clc
close all
clear all
soupic=imread（‘bag.png‘）;
%%  get binary data
binary_pic=im2bw（soupic）;
subplot（121）
imshow（255*binary_pic）;title（‘原始二值图像‘）;

%%  游程编码
data=reshape（binary_pic1size（binary_pic1）*size（binary_pic2））;
disp（‘原始图像的像素点个数:‘）;
len_original=length（data）
val=0;  % 约定第一个是0
m=1;n=1;
dataa=zeros（1len_original）;
for m=1:len_original
    if data（m）==val
        dataa（n）=dataa（n）+1;
    else
        val=xor（val1）;
        n=n+1;