% arcodemo.m: demonstration of arithmetic coding
% (C) 2002 by Yu Hen Hu
% created: 11/14/2002
% call arenc.m, ardec.m

clear all
format long;
symbol=[' abegilst'];
pr=[1 1 1 1 1 1 2 1 1]/10;
seqin=['bill gates'];
codeword=arenc(symbol,pr,seqin)

seqout=ardec(symbol,pr,codeword,10)