function?h=entropy（p）
%?H=ENTROPY（P）??返回概率矢量P的熵函數。
if?length（find（p<0））~=0
????error（‘Not?a?prob.vectornegative?component（s）‘）
end
if?abs（sum（p）-1）>10e-10
????error（‘Not?aprob.vectorcomponents?do?not?add?up?to?1‘）
end
h=sum（-p.*log2（p））;
????
????
????
????
????
????
????
???
????

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

?????文件?????236032??2010-01-08?12:35??交通信\實驗一?模擬信號調制實驗2009-10-14.doc

?????文件????????313??2005-03-20?12:31??交通信\實驗七（另加）?哈夫曼編碼\entropy.m

?????文件???????1013??2005-03-20?12:57??交通信\實驗七（另加）?哈夫曼編碼\huffman.m

?????文件????????168??2010-01-07?09:22??交通信\實驗七（另加）?哈夫曼編碼\main.m

?????文件??????63488??2010-01-11?22:31??交通信\實驗七（另加）?哈夫曼編碼\實驗七（另加）?哈夫曼編碼2010-01-05.doc

?????文件?????115712??2010-01-09?12:41??交通信\實驗三?信道均衡器實驗2009-11-04.doc

?????文件??????17286??2009-12-05?23:16??交通信\實驗二?脈沖編碼調制PCM實驗2009-10-28\PCM脈沖編碼調制.svu

?????文件?????115200??2010-01-08?12:34??交通信\實驗二?脈沖編碼調制PCM實驗2009-10-28\實驗二?脈沖編碼調制PCM實驗2009-10-28.doc

?????文件??????78336??2010-01-11?13:23??交通信\實驗五?匹配濾波器實驗200-12-16.doc

?????文件??????83456??2010-01-11?12:17??交通信\實驗六?信道編碼實驗2009-12-23.doc

?????文件??????17969??2010-01-10?22:48??交通信\實驗四?FSK調制解調實驗2009-11-25\2FSK?調制.svu

?????文件??????32835??2010-01-09?15:31??交通信\實驗四?FSK調制解調實驗2009-11-25\2FSK解調.svu

?????文件?????210432??2010-01-11?00:22??交通信\實驗四?FSK調制解調實驗2009-11-25\實驗四?FSK調制解調實驗2009-11-25.doc

?????目錄??????????0??2010-01-11?22:38??交通信\實驗七（另加）?哈夫曼編碼

?????目錄??????????0??2010-01-11?22:38??交通信\實驗二?脈沖編碼調制PCM實驗2009-10-28

?????目錄??????????0??2010-01-11?22:39??交通信\實驗四?FSK調制解調實驗2009-11-25

?????目錄??????????0??2010-01-11?22:38??交通信

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

???????????????972240????????????????????17