partie 1 :Compression :
RLE
function [vec_rle] = encodage_rle(vec)
% Effectue le codage RLE du vecteur d'entrée
[l c]=size(vec);
if c==1 && l>1
vec=vec';
end % end if
if l>1 && c>1
error('Erreur! Vérifier que le vecteur input')
end % end if
i = [ find(vec(1: end -1) ~= vec (2: end )) length(vec) ];
%Retourner le dernier indice de chaque élément dans un vecteur
% exemple [0 0 0 1 1] > i =[3 5]
% retourner l'occurence : diff ([ 0 i ])
% retourner l'élément : vec(i)
occ = diff ([ 0 i ]);
%Construction de la matrice [élément;occurrence]
matrice=[vec(i);occ];
[a b]=size(matrice);
if a==2 && b==1
vec_rle=matrice'; return
end % end if
vec_rle=matrice(1:end);