clc
clear
?%導(dǎo)入pages.txt文件，獲取文章中的字符串
fid?=?fopen（‘a(chǎn).txt‘）;???????????????
tline?=?fgetl（fid）;
%變量初始化
i?=?1;
test?=?[];
j?=?1;
str1?=?‘‘;

while?ischar（tline）
????disp（tline）;????????????????????%顯示每一行
????pages{i}?=?tline;???????????????%將文章中的每一行的字符串存在數(shù)據(jù)類型為元包（cell）變量中
????tline?=?fgetl（fid）;
????i=i+1;
end
fclose（fid）;

%for循環(huán)?實(shí)現(xiàn)pages中的所有行字符串存儲(chǔ)在同一個(gè)名為：str的字符串變量中
for?i=1:length（pages）
????str?=?strcat（str1pages{i}）;
????str1?=?str;
end
str;???????????????????????????????%拿str字符串，自行與文章全文進(jìn)行校對(duì)
a?=?lower（str）;????????????????????%大寫字母轉(zhuǎn)小寫
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%
%濾除其他字符，只計(jì)算英文字符
for?i=1:length（a）
????if（a（i）>=‘a(chǎn)‘）
????????if（a（i）<=‘z‘）
????????test（j）?=?a（i）;
????????j?=?j?+?1;
????????end
????end
end
st=sprintf（‘%c‘test）??????????????%顯示最終要統(tǒng)計(jì)的英文字符
%%
char?=?unique（st）;?????????????????%計(jì)算有多少個(gè)不重復(fù)的字符串

for?i?=?1:length（char）
????char（i）;
????number（i）?=?length（strfind（stchar（i）））;?%統(tǒng)計(jì)字符的數(shù)目
end
char???????????????????????????????%顯示字符
number?????????????????????????????%顯示個(gè)數(shù)

%計(jì)算頻率frequency
frequency?=?number/sum（number）?????%這里進(jìn)行一個(gè)計(jì)算只為了與上面的number現(xiàn)實(shí)的個(gè)數(shù)相對(duì)應(yīng)（這個(gè)frequency與下面那個(gè)frequency只是順序不同）
%分別將所有出現(xiàn)過的字符：char每個(gè)char出現(xiàn)的次數(shù)：number每個(gè)char出現(xiàn)的頻率：frequency
number?=?sort（number2‘descend‘）?;?%做一個(gè)降序，方便下面進(jìn)行編碼
frequency?=?number/sum（number）;?????%再次計(jì)算頻率
%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%哈夫曼編碼%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%
%哈夫曼編碼主程序????
disp（‘%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%哈夫曼編碼%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%‘）
r=2;????????????????????????????????%r代表r元碼
Huffman_CLQ（frequencyr）
disp（‘%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%香農(nóng)編碼%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%‘）
%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%香農(nóng)編碼%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
shannon_result?=?shannon（frequency）

?屬性????????????大小?????日期????時(shí)間???名稱
-----------?---------??----------?-----??----

?????文件????????145??2018-01-11?14:55??上傳文件\a.txt

?????文件???????2265??2018-01-12?01:15??上傳文件\CalculateLetters_Number.m

?????文件????????276??2018-01-11?15:25??上傳文件\check.m

?????文件????????253??2018-01-11?15:27??上傳文件\first_S.m

?????文件???????2407??2018-01-11?15:58??上傳文件\Huffman_CLQ.m

?????文件???????1661??2018-01-12?01:16??上傳文件\shannon.m

?????文件????????919??2018-01-11?15:46??上傳文件\yasuo_pp.m

?????目錄??????????0??2018-01-11?15:58??上傳文件

-----------?---------??----------?-----??----

?????????????????7926????????????????????8