%算數編碼函數
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