算数编码、解码，Matlab程序

算数编码、解码，M文件，Matlab程序

%算数编码函数
function acode = suanshubianma（symbolpsinseq）
high_range=[];
for k=1:length（ps）
    high_range=[high_range sum（ps（1:k））];
end
low_range=[0 high_range（1:length（ps-1））];
sbidx=zeros（size（inseq））;
for i=1:length（inseq）
    sbidx（i）=find（symbol==inseq（i））;
end
low=0;
high=1;
for i=1:length（inseq）
    range=high-low;
    high=low+range*high_range（sbidx（i））;
    low=low+range*low_range（sbidx（i））;
end
acode=low;

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件        442  2013-11-20 21:10  suanshubianma.m

     文件        563  2013-11-20 21:16  suanshujiema.m

----------- ---------  ---------- -----  ----

                 1005                    2