RunLengthcode for Binary-Images

% Run Length code for binary Images
clear all; close all; clc;
f = imread('circles.png');
[m,n]=size(f);
s1 =m*n;
f1 = zeros(1,s1);
co=0;
for i=1:m
for j=1:n
co=co+1;
f1(co)=f(i,j);
end
end
VLEN=size(f1,2);
I1 = 1; CO1=1; con=0;CO = 1;
while (con==0)
I2 = I1+1 ;
if (I2 <= (VLEN))
if f1(I1) == f1(I2)
CO=CO+1;
I1=I2;

elseif f1(I1) ~= f1(I2)
Run(CO1)=CO;
Imgval(CO1)=f1(I1);
CO1=CO1+1;
CO = 1;
I1=I2;
end

else
con=1;
end
end
Run(CO1)=CO; % Number of Run
Imgval(CO1)=f1(I1); %Pixel value
figure,imshow(f);
disp('Number of runs');
disp(Run);
disp('Image Pixel Values');
disp(Imgval);