clc
clear
%導入pages.txt文件，獲取文章中的字符串
fid?=?fopen（‘pages.txt‘）;
tline?=?fgetl（fid）;
i?=?1
while?ischar（tline）
????disp（tline）??%顯示每一行
????pages{i}?=?tline;???%將文章中的每一行的字符串存在數據類型為元包（cell）變量中
????tline?=?fgetl（fid）;
????i=i+1
end
fclose（fid）;
%顯示出元包變量pages第一元素中的字符串，自行與文章第一行進行校對
pages{1}
%for循環?實現pages中的所有行字符串存儲在同一個名為：str的字符串變量中
str1?=?‘‘
for?i=1:length（pages）
????str?=?strcat（str1pages{i}）
????str1?=?str
end
str????%拿str字符串，自行與文章全文進行校對
a?=?lower（str）?%大寫字母轉小寫
char?=?unique（a）;%計算有多少個不重復的字符串
for?i?=?1:length（char）
????char（i）
????number（i）?=?length（strfind（achar（i）））;?%統計字符的數目
end
char?%顯示字符
number?%顯示個數
%將空格部分，用“空”漢字標出注明
char（find（char?==?‘?‘））?=?‘空‘
%計算頻率frequency
frequency?=?number/sum（number）
%分別將所有出現過的字符：char每個char出現的次數：number每個char出現的頻率：frequency
%輸出到名字分別為：（??write1.xls、write2.xls、writ