partie 2 :DeCompression :
La fonction ret_bloc
function R=ret_bloc(car,G,P)
% P est le nombre d'éléments qu'on veut par lignes, G et et le nombre d'éléments total
% si G=80 , P=8, car='a' cette fonction va retourner la chaîne suivante :
% a1,a2,a3,a4,a5,a6,a7,a8;a9,a10,.......;a73,a74,a75,a76,a77,a78,a79,a80
i=1;c=1;oo=';'; carret='A';
while i<=G
pas=i +P -1;
a=[eval(['obt_chaine(pas,car,i,0)']) oo];
eval([carret num2str(c) '=a;'])
c=c+1;i=i+P;
end % end while
save cars;
i=1;
a= eval([carret num2str(c-1)]);
eval([carret num2str(c-1) '=a(1:end-1);']);
R=obt_chaine (P,carret,1,1); //cliquez sur la fonction obt_chaine() pour afficher son code
load cars;
for i=1:c-1
a= eval([carret num2str(i)]);
a=eval([ '[' 'a' ']' ]);
end % end for
yy=obt_chaine (c-1,carret,1,0);
R=([ '[' yy ']' ]);
R=eval(R);
R=R(1:end-1);