huffman

%% Hafmano kodavimas
clear all
clc
load('Temperature.mat');
tempOrig = Temperature;

tempValues = [];

%Sudaromas visų esamų temp. verčių masyvas (be pasikartojimų)
for i = 1:length(tempOrig)
    valueExist = 0;
    for j = 1:length(tempValues)
        if tempValues(j) == tempOrig(i)
            valueExist = 1;
        end
    end

    if valueExist == 0
        tempValues(end + 1) = tempOrig(i);
    end
end

valuesProbability = [];

%Nustatoma kiekvienos vertės atsiradimo tikimybė
for i = 1:length(tempValues)
    repeatCount = 0;

    %Tam tikros vertės pasikartojimų skaičius
    for j = 1:length(tempOrig)
        if tempValues(i) == tempOrig(j)
            repeatCount = repeatCount + 1;
        end
    end

    %Pasikartojimo tikimybė
    valuesProbability(i) = repeatCount / length(tempOrig);
end


%Haffmano žodynas
dict = huffmandict(tempValues, valuesProbability);


%Haffmano būdu užkoduota temp. verčių seka
tempEncoded = huffmanenco(tempOrig, dict);

sizeOrig = length(dec2bin(max(tempOrig))) * length(tempOrig)

sizeEncoded = length(tempEncoded)