算术编码 matlab matlab

matlab 算术编码 suanshubian matlab matlab

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