f_addzero.m

compression with rle algorithm

function [H]=f_addzero(I,n)
[nl,nc]=size(I);

%pentru linii
nl_1=nl/n; nl_1=floor(nl_1);
nl_2=nl_1*n;
nl_3=nl-nl_2;
nl_4=n-nl_3;

% pentru coloane
nc_1=nc/n;
nc_1=floor(nc_1);
nc_2=nc_1*n;
nc_3=nc-nc_2;
nc_4=n-nc_3;
% pentru linii
L=[];
for i=1:nc,    L=[L 0]; end

H=I;

if nl_4~=n,
    for i=1:nl_4,    H=[H;L];end
end

 C=[];
 for i=1:n, C=[C;0]; end

 nc_4
 if nc_4~=n,
     for i=1:nc_4, H=[H C];end
 end