LZW编码(基于MATLAB)
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
%读取编码文件和输出文件
fid_input = fopen('C:\Users\Administrator\Desktop\matlab\ssby.txt');%打开要编码的数据所在文件
fid_output = fopen('C:\Users\Administrator\Desktop\matlab\shuchu.txt','w');%打开压缩后的数据所在文件
D = fscanf(fid_input,'%c'); %读取数据
D_Length = size(D,2); %获取数据长度
zidian = ''; %字典
changdu = 1; %字典长度
zhizhen = 1; %字典位置指针
mabiao = 256;%字典码表
X1 = '';%要查找的新字符
X = '';%当前字符
weizifu = '';%尾字符
duqu = D(1);%读入一个新字符
weizifu = duqu;
X = weizifu;
for i = 2:D_Length
duqu = D(i);%读入一个新字符
weizifu = duqu;
X1=[X,weizifu];
if i > 2
for i1 = 1:changdu
if strcmp(zidian(i1),X1) == 1%字典中已有W1
Find_W1 = 1;%字典中找到W1
break;%弹出
end
Find_W1 = 0;
end
if Find_W1 == 1 || size(X1,2) == 1 %字典中找到W1,做一下W和W1的变换则返回
X = X1;
continue;
end
end
%输出W
a = dec2hex(0);
if i == 2
temp = dec2hex(abs(X));
shuchu = [a,temp];
end
if i > 2
if size(X,2) == 1 %如果得到是一个字符
temp = dec2hex(abs(X));
shuchu = [shuchu,a,temp];
else
for i2 = 1:changdu
if strcmp(zidian(i2),X) == 1%找到字典中的W
shuchu = [shuchu,dec2hex(mabiao(i2))];
break;%弹出
end
end
end
end
%保存W1到字典里
if i == 2
zidian = [{X1}];%初始化字典
changdu = 1;
Dict_CodeTable = 256;
else
zidian = [zidian,X1];
mabiao = [mabiao,mabiao(changdu) + 1];
changdu = changdu + 1;
end
X = duqu;
end
%输出最后一个W
if size(X,2) == 1 %如果得到是一个字符
temp = dec2hex(abs(X));
shuchu = [shuchu,a,temp];
else
for i2 = 1:changdu
if strcmp(zidian(i2),X) == 1%找到字典中的W
shuchu = [shuchu,dec2hex(mabiao(i2))];
break;%弹出
end
end
end
fprintf(fid_output,shuchu);
fclose(fid_input);
fclose(fid_output);