From 2fae7df017b52b83d5616a22528db189844e986c Mon Sep 17 00:00:00 2001
From: NuarkNoir <mrcluster@ya.ru>
Date: Sat, 11 Jan 2020 19:50:41 +0700
Subject: [PATCH] Fixed 08 octave

---
 1sem/octave/08/code.txt    | 32 ++++++++++++++++----------------
 1sem/octave/08/main.m      |  4 +++-
 1sem/octave/08/results.txt |  2 +-
 3 files changed, 20 insertions(+), 18 deletions(-)

diff --git a/1sem/octave/08/code.txt b/1sem/octave/08/code.txt
index 26e6de7..34f50a4 100644
--- a/1sem/octave/08/code.txt
+++ b/1sem/octave/08/code.txt
@@ -1,16 +1,16 @@
-0000
-0001
-0010
-0011
-0100
-0101
-0110
-0111
-1000
-1001
-1010
-1011
-1100
-1101
-1110
-1111
+1001  
+0111  
+0011  
+000000
+0100  
+0010  
+0001  
+000001
+0101  
+1000  
+1011  
+110   
+1010  
+00001 
+111   
+0110  
diff --git a/1sem/octave/08/main.m b/1sem/octave/08/main.m
index 3c874bf..b64d14b 100644
--- a/1sem/octave/08/main.m
+++ b/1sem/octave/08/main.m
@@ -1,3 +1,5 @@
+pkg load communications;
+
 #stage 6
 V=33;
 rand("state", V);
@@ -9,7 +11,7 @@ ralph = r./sum(r);
 save -ascii "hex.txt" ralph;
 
 #stage 8
-code = arrayfun(@(n)dec2bin(n, 4), 0:15, "UniformOutput", false);
+code = cellfun(@(c)char('0' + c), huffmandict(alph, ralph), 'UniformOutput', false);
 dlmwrite('code.txt', char(code), '');
 
 #stage 9
diff --git a/1sem/octave/08/results.txt b/1sem/octave/08/results.txt
index 2eaa2b7..1343cfc 100644
--- a/1sem/octave/08/results.txt
+++ b/1sem/octave/08/results.txt
@@ -1 +1 @@
- 4.00000000e+00 3.90563513e+00 4.00000000e+00 9.76408783e-01
+ 3.94749678e+00 3.90563513e+00 4.00000000e+00 9.89395393e-01