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

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----

?????文件????????453??2012-03-04?13:35??suanshu_code\suanshubianma.m

?????文件????????573??2012-03-04?13:35??suanshu_code\suanshujiema.m

?????文件????????197??2012-03-04?13:35??suanshu_code\suanshu_main.m

?????目錄??????????0??2014-09-23?00:13??suanshu_code

-----------?---------??----------?-----??----

?????????????????1223????????????????????4