function?[kl]?=?KL（pqChk_q）
%?KL?returns?the?Kullbac-Leibler?divergence?where:
%???KL（pq）?=?p*log（p/q）?
p=0.6;
q=0.6;
Chk_q=0.5;
inds?=?find（p）;
p?=?p（inds）;
q?=?q（inds）;

if?Chk_q?%?not?necessary?when?called?from?JS
????if?min（q）==0
??????kl=inf;
??????return
????end
end

kl?=?sum（p.*log（p./q））;

return

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----
?????文件?????????311??2013-07-23?17:30??KLw.m