LZW編碼算法，嘗試使用matlab計算%encoder LZW for matlab%yu 20170503clc;clear;close all;%初始字典dic = cell(512,1);for i = 1:256dici = num2str(i);end%輸入字符串a，按空格拆分成A，注意加1對應范圍1256a = input(input:,s);a = deblank(a);A = regexp(a,s+,split);L = length(A);for j=1:LAj = num2str(str2num(Aj)+1);endA_t = A1;%可識別序列B_t = test;%待驗證詞條d = 256;%字典指針b = 1;%輸出指針B = cell(L,1);%輸出初始output = ;%輸出初始j=1;for j = 2:Lm=1;B_t =deblank(A_t, ,Aj);%合成待驗證詞條while(m = d)if strcmp(dicm,B_t)A_t = B_t;breakelsem=m+1;endendwhile(m = d+1)d = d+1;dicd = B_t;q=1;for q=1:dif strcmp(dicq,A_t)Bb = num2str(q);b = b+1;endendA_t = Aj;endendfor q=1:d%處理最后一個序列輸出if strcmp(dicq,A_t)Bb = num2str(q);b = b+1;endendfor n = 1:(b-1)Bn =num2str(str2num(Bn)-1);output=deblank(output, ,Bn);endoutput運算結果計算結果為39 39 126 126 256 258 260 259 257 126LZW解碼算法，使用matlab計算%decoder LZW for matlab%yu 20170503clc;clear;close all;%初始字典dic = cell(512,1);for i = 1:256dici = num2str(i);end%輸入字符串a，按空格拆分成A，注意加1對應范圍1256a = input(input:,s);a = deblank(a);A = regexp(a,s+,split);L = length(A);for j=1:LAj = num2str(str2num(Aj)+1);endB_t = A1;%待驗證詞條d = 256;%字典指針b = 1;%輸出指針B = cell(L,1);%輸出初始output = ;%輸出初始j=1;Bb = char(dicstr2num(Aj);b = b+1;for j = 2:LBB = char(dicstr2num(Aj);B_d = regexp(BB,s+,split);%按空格拆分L_B = length(B_d);p=1;for p=1:L_BB(b+p-1) = B_dp;m=1;B_t =deblank(char(B_t), ,char(B_dp);%合成待驗證詞條while(m = d)if strcmp(dicm,B_t)B_t = B_t;breakelsem=m+1;endendwhile(m = d+1)d = d+1;dicd = B_t;B_t = B_dp;endendb = b+L_B;end for n = 1:(b-L_B) Bn = num2str(str2num(Bn)-1); output=deblank(output, ,