function?arithint（）
clc;
fid=fopen（‘seq1.txt‘‘r‘）;
seq=fread（fid‘*char‘）;
fclose（fid）;
seq=reshape（seq1length（seq））;
[alpha?cnt]=countmodel（seq）;
if?~isempty（alpha）
????btag=arithintcod（alphacntseq）;
????disp（strcat（‘Tag?=‘btag））;
????seq=arithintdecod（btagalphacntlength（seq））;
????disp（‘Sequence?=?‘）;
????disp（seq）;
else
????display（‘Empty?Sequence....‘）;
end
end

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----
?????目錄???????????0??2009-05-20?03:45??Arithmetic\
?????文件????????1360??2007-07-14?19:38??Arithmetic\arithintdecod.m
?????文件?????????391??2007-07-15?13:56??Arithmetic\arithscale.m
?????文件?????????725??2007-07-15?13:48??Arithmetic\arithscalecod.m
?????文件?????????878??2007-07-15?13:55??Arithmetic\arithscaledecod.m
?????文件??????????50??2007-04-01?01:50??Arithmetic\seq1.txt
?????文件??????????10??2007-04-01?01:50??Arithmetic\seq.txt
?????文件?????????392??2007-07-14?19:38??Arithmetic\arithint.m
?????文件????????1466??2007-07-14?19:38??Arithmetic\arithintcod.m
?????文件?????????402??2006-03-22?16:36??Arithmetic\countmodel.m
?????文件?????????426??2006-03-28?19:16??Arithmetic\probmodel.m
?????文件?????????647??2007-06-16?15:47??Arithmetic\Readme.txt
?????文件????????1335??2009-05-20?03:45??license.txt