partie 1 :Compression :

Ocur

function matrice_occ=ocur(codeRLE)

%Retourne une matrice d'occurences

clear fichiers_mat/matrice_occ;clear fichiers_mat/tab;

%Normalisation des types

codeRLE=normaliser_type (codeRLE);        cliquez sur la fonction "ocur()" pour afficher son contenu

 %Traitement

t=1;tab={};taille=length(codeRLE);

for i=1:taille

comp=0;

    if appartient (tab,codeRLE{i})==0     cliquez sur la fonction "appartient()" pour afficher son contenu

        tab{t}=codeRLE{i}

        for j=i:taille

        aa =codeRLE{i};bb=codeRLE{j};

        ind=0;

        if strcmp(aa,bb)==1

        comp=comp+1;        

        end % end if

        end % end for

      matrice_occ{1,t}=codeRLE{i};

      matrice_occ{2,t}=comp;

      t=t+1;

   end

end % end for