b=‘0‘;
for?i=1:r?
????Ma（i）=;
????d（1i）=[b];
????b=setstr（b+1）;
end

if?q==0
????
else
????for?i=q:-1:1?
????????c=Ma{1};
????????Ma（1）=[];????????????????????????????????????????????%去掉數組的第一元素
????????if?i==1
????????????r=s;
????????end
????????for?n=1:r
????????????
????????????U=strcat（cd（n））;?????????????????????????%將每組的第一個元素后分別加0和1產生新元素U
????????????[f?e]=min（Ad（:i））;
????????????Ad（ei）=l;
????????????
????????????
????????????Ma（f+1:length（Ma）+1）=Ma（f:length（Ma））;???????%將U按Ad中的地址插入數組中形成新的數組
????????????Ma（f）={U};
????????end
????end
end

L=0;H=0;
for?i=1:l???????????????????????????????????????????%按公式計算編碼的平均碼長
????y=length（Ma{i}）;
????L=A（i）*y+L;
end

for?i=1:l???????????????????????????????????????????%計算碼元熵
????H=-A（i）*log10（A（i））/log10（z）+H;
end
Xiaolv=H/L;?????????????????????????????????????????%計算編碼效率

disp（‘???????計算中，請稍侯……‘）
pause（2）

result

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----

????..A.SH.??????7680??2010-04-19?10:09??信息理論與編碼\信息理論與編碼\Thumbs.db

?????文件??????22016??2009-04-17?09:25??信息理論與編碼\信息理論與編碼\一般信道容量迭代算法.doc

?????文件???????1005??2004-06-09?13:40??信息理論與編碼\信息理論與編碼\信息理論與編碼仿真實驗\Casoit\bianma.m

?????文件??????32872??2000-02-04?13:25??信息理論與編碼\信息理論與編碼\信息理論與編碼仿真實驗\Casoit\bin\FigureMenuBar.fig

?????文件??????74008??2000-02-04?13:25??信息理論與編碼\信息理論與編碼\信息理論與編碼仿真實驗\Casoit\bin\FigureToolBar.fig

?????文件???????2731??2010-04-05?20:11??信息理論與編碼\信息理論與編碼\信息理論與編碼仿真實驗\Casoit\casoit.m

?????文件???????5642??2004-05-18?01:59??信息理論與編碼\信息理論與編碼\信息理論與編碼仿真實驗\Casoit\control.m

?????文件???????1622??2003-12-29?23:57??信息理論與編碼\信息理論與編碼\信息理論與編碼仿真實驗\Casoit\fano.m

?????文件???????1645??2003-12-29?23:57??信息理論與編碼\信息理論與編碼\信息理論與編碼仿真實驗\Casoit\huffman.m

?????文件????????330??2004-06-10?04:16??信息理論與編碼\信息理論與編碼\信息理論與編碼仿真實驗\Casoit\hxxl.m

?????文件????????321??2004-06-10?00:43??信息理論與編碼\信息理論與編碼\信息理論與編碼仿真實驗\Casoit\InterInfor.m

?????文件???????2363??2003-12-29?23:57??信息理論與編碼\信息理論與編碼\信息理論與編碼仿真實驗\Casoit\jbjs.m

?????文件????????399??2004-06-04?02:08??信息理論與編碼\信息理論與編碼\信息理論與編碼仿真實驗\Casoit\jds.m

?????文件???????1313??2004-05-18?02:52??信息理論與編碼\信息理論與編碼\信息理論與編碼仿真實驗\Casoit\jdym.m

?????文件????????799??2003-12-29?23:58??信息理論與編碼\信息理論與編碼\信息理論與編碼仿真實驗\Casoit\kuozhan.m

?????文件???????3174??2004-05-13?01:38??信息理論與編碼\信息理論與編碼\信息理論與編碼仿真實驗\Casoit\lead_f.m

?????文件???????3012??2003-12-29?23:58??信息理論與編碼\信息理論與編碼\信息理論與編碼仿真實驗\Casoit\lead_k.m

?????文件????????830??2004-06-04?02:36??信息理論與編碼\信息理論與編碼\信息理論與編碼仿真實驗\Casoit\lhs.m

?????文件???????3657??2004-06-10?00:53??信息理論與編碼\信息理論與編碼\信息理論與編碼仿真實驗\Casoit\Menhu.asv

?????文件???????3622??2010-04-05?20:15??信息理論與編碼\信息理論與編碼\信息理論與編碼仿真實驗\Casoit\menhu.m

?????文件???????3019??2003-12-29?23:58??信息理論與編碼\信息理論與編碼\信息理論與編碼仿真實驗\Casoit\menu_f.m

?????文件???????2541??2003-12-29?23:59??信息理論與編碼\信息理論與編碼\信息理論與編碼仿真實驗\Casoit\menu_h.m

?????文件????????652??2004-06-08?12:32??信息理論與編碼\信息理論與編碼\信息理論與編碼仿真實驗\Casoit\px.m

?????文件???????3164??2003-12-29?23:59??信息理論與編碼\信息理論與編碼\信息理論與編碼仿真實驗\Casoit\px_f.m

?????文件???????2048??2003-12-29?23:59??信息理論與編碼\信息理論與編碼\信息理論與編碼仿真實驗\Casoit\result.m

?????文件???????2801??2004-05-13?01:31??信息理論與編碼\信息理論與編碼\信息理論與編碼仿真實驗\Casoit\shuru_f.m

?????文件???????2614??2004-06-08?13:08??信息理論與編碼\信息理論與編碼\信息理論與編碼仿真實驗\Casoit\Shuru_h.asv

?????文件???????2605??2004-05-13?01:41??信息理論與編碼\信息理論與編碼\信息理論與編碼仿真實驗\Casoit\shuru_h.m

?????文件?????????77??2003-01-15?08:08??信息理論與編碼\信息理論與編碼\信息理論與編碼仿真實驗\Casoit\sumH.m

?????文件????????834??2004-06-04?02:32??信息理論與編碼\信息理論與編碼\信息理論與編碼仿真實驗\Casoit\Tjs.asv

............此處省略52個文件信息