main.asv

自适应编码 本发明的目标是生成一种方法：对数组压缩和解压缩编码

[nf,gai,pin]=gailv(f,n);  
%调用函数gailv是计算数组f中每个字符的概率gai和频率pin
[mode,low,high]=area(nf,gai);
%调用函数area是计算数组f中每个字符的子区间[low,high]
[final,mn]=encode(n,f,nf,low,high);
%调用函数code对原文件进行压缩,输出压缩流final，final是个小数数组
m=length(final);%定义m是数组final的长度
result=decode(final,m,nf,low,high,mn);
%调用函数decode对压缩流final实行解压缩得到result
time2=fix(clock);
time=time2-time1;
h1=find(double(f)-double(result)>0);
h2=find(double(f)-double(result)<0);
l=length(h1)+length(h2);

% fprintf('概率模型：\n');
% fprintf('  字符       下限       上限      概率区间'); 
% mode
fprintf('没有解码成功的字符个数:%4.0f\n',l);
fprintf('耗时(年 月 日 小时 分 秒):\n');
fprintf('%4.0f',time);
% save ceshi final; 
% final=final*1e+15;
% fprintf('要压缩的文件：');
% char(f);
% fprintf('概率模型：');
% mode;
% fprintf('解压后的文件：');
% char(result);