clc; clear; 

% load the results of the differential codding
load data_input.mat         % a da

% load Hufman table..
load HuffmanTable.mat % S y

% Compress
code = dec2bin(double(da(1)),8);
for i = 2:length(da),
    gata = 0; j = 1;
    while ~gata,
        if da(i) == S(j),
            code = [code y{j}];
            gata = 1;
        else
            j = j + 1;
        end;
        if j > length(S), 
            disp('error_1');
            code = [code y{j-1}];
            break;
        end;    
    end;
end;

% estimate compression ratio...
RC = (16 * length(a)) / length(code)
        
save data_output code
disp('Finished..');