Mercurial > forge

changeset 2661:efc472a6e3fe octave-forge

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
removed redundancy based checks
author gnumuthu
date Tue, 10 Oct 2006 19:40:15 +0000
parents 068affeed38b
children 3a111db1fb05
files main/comm/inst/shannonfanodict.m
diffstat 1 files changed, 2 insertions(+), 8 deletions(-) [+]
line wrap: on
line diff
--- a/main/comm/inst/shannonfanodict.m	Tue Oct 10 19:24:34 2006 +0000
+++ b/main/comm/inst/shannonfanodict.m	Tue Oct 10 19:40:15 2006 +0000
@@ -81,6 +81,7 @@
   #printf("Shannon Codes\n");
   #data_table=zeros(1,DMAX);
    cw_list={};
+   
    for itr=1:DMAX
      if(P(itr)~=0)
        digits=ceil(-log2(P(itr))); #somany digits needed.
@@ -114,13 +115,6 @@
 
 %!shared CW,P
 %!test
-%!  addpath('../../info-theory/inst')
 %!  P  = [0.5 0.25 0.15 0.1];
-%!  CW = shannonfanodict(1:4,P);
+%!  assert(shannonfanodict(1:4,P),{[0],[1 0],[1 1 0],[1 1 1 0]})
 %!
-%!assert(redundancy(CW,P),0.057980,0.001)
-%!test
-%!  P =[0.5 0.25 0.15 0.1 0];
-%!  CW=shannonfanodict(1:4,[0.5 0.15 0.25 0.1]);
-%!assert(redundancy(CW,P),0.10629,1e-4);
-%!