%%??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;
???