partie 1 : compression :

function [code,Y_dico,CB_dico,CR_dico]=compression_jpeg(file,qualite,option)

%Fait la compression JPEG

% option ='RLE' > codage RLE sans Huffman

% option ='HUFF1' > codage RLE + HUFFMAN1

% option='HUFF2' > codage RLE + HUFFMAN2

% traite le mode nuance de gris et le mode rvb

indicateur=0;

a=imread(file); [i j zzz]=size(a) ;

% HUFFMAN 1

if strcmp(option,'HUFF1') || strcmp(option,'huff1')

indicateur=1;

if zzz~=3 %%mode nuance de gris

[code,Y_dico]=testhuff_gris (file,qualite);

else

[code,Y_dico,CB_dico,CR_dico]=testhuff_rvb(file,qualite); %%mode rvb

end % end if

return

end % end if

% HUFFMAN 2

if strcmp(option,'HUFF2') || strcmp(option,'huff2')

indicateur=1;

if zzz~=3 %%mode nuance de gris

[code,Y_dico]=testhuff2_gris(file,qualite);

else

[code,Y_dico,CB_dico,CR_dico]=testhuff2_rvb(file,qualite); %%mode rvb

end % end if

return

end % end if

%RLE

if strcmp(option,'RLE') || strcmp(option,'rle')

indicateur=1;

if zzz~=3 %%mode nuance de gris

code=testrle_gris(file,qualite);

else

code=testrle_rvb(file,qualite); %%mode rvb

end % end if

return

end

if indicateur==0

error('Type de compression invalid!');

end

IMAGE NUMERIQUE