SM: Aula 09

2ano1/SM/aula09/Alfabeto1.m

@@ -0,0 +1,3 @@
+function [Simbolos] = Alfabeto1(Texto)
+    Simbolos = unique(Texto);
+end

2ano1/SM/aula09/Alfabeto2.m

@@ -0,0 +1,4 @@
+function [Simbolos, Frequencia] = Alfabeto2(Texto)
+    [Frequencia, Simbolos] = groupcounts(Texto');
+    Frequencia = Frequencia / sum(Frequencia);
+end

2ano1/SM/aula09/Entropia.m

@@ -0,0 +1,6 @@
+function [H] = Entropia(Texto)
+    [~, Frequencia] = Alfabeto2(Texto);
+
+    H = -sum(Frequencia .* log2(Frequencia));
+end
+

2ano1/SM/aula09/GeraMensagem.m

@@ -0,0 +1,12 @@
+function [NumBits, NumBPS] = GeraMensagem(f, CompMesg, nBits)
+    % Utilizamos os índices dos símbolos como o alfabeto
+    alfabeto = 1:length(f);
+    % Geramos a mensagem aleatória como uma matriz (CompMesg x 1) que
+    % utiliza as probabilidades que nos foram passadas e o alfabeto que
+    % criamos.
+    msg = randsrc(CompMesg, 1, [alfabeto; f]);
+
+    NumBits = sum(nBits(msg));
+    NumBPS = NumBits / CompMesg;
+end
+

2ano1/SM/aula09/HuffmanCoding.m

@@ -0,0 +1,5 @@
+function [SimbolosOrdenados, Codigos] = HuffmanCoding(Simbolos, Frequencia)
+    [~, idxs] = sort(Frequencia);
+    SimbolosOrdenados = Simbolos(idxs);
+end
+

2ano1/SM/aula09/MakeCodes.m

@@ -0,0 +1,11 @@
+function [Codigos] = MakeCodes(Texto)
+    [Simbolos, ~] = Alfabeto2(Texto);
+
+    N = length(Simbolos);
+
+    Codigos = cell(N, 1);
+
+    for k=1:length(Simbolos)
+        Codigos{k} = [repmat('1', 1, k - 1) '0'];
+    end
+end

2ano1/SM/aula09/NumeroBitsCodigo2.m

@@ -0,0 +1,14 @@
+function [NumBits, mensagem] = NumeroBitsCodigo2(Texto)
+    [Simbolos, ~] = Alfabeto2(Texto);
+
+    Codigos = MakeCodes(Texto);
+
+    [~, indexes] = ismember(Texto, Simbolos);
+
+    mensagem = [];
+    for idx=indexes
+        mensagem = [mensagem Codigos{idx}];
+    end
+
+    NumBits = length(mensagem);
+end