??%px_w1:（-2，0.25）??px_w2（24）
function?[result]=bayes（xpw1pw2）
m=size（x2）
pw1_x=zeros（1m）
pw2_x=zeros（1m）
result=zeros（1m）
for?ki=1:m
????pw1_x（ki）=（pw1*normpdf（x（ki）-20.5））/（pw1*normpdf（x（ki）-20.5）+pw2*normpdf（x（ki）22））
%????pw2_x（ki）=1-pw1_x（ki）
????pw2_x（ki）=（pw2*normpdf（x（ki）22））/（pw1*normpdf（x（ki）-20.5）+pw2*normpdf（x（ki）22））
end

for?ki=1:m
????if?pw1_x（ki）>pw2_x（ki）
????????result（ki）=1
????else
????????result（ki）=2
????end?
end
%semilogy（xpw1_x‘*‘）;
%semilogy（xpw2_x）;

a=[-5:0.1:5]
n=size（a2）
pw1_x_plot=zeros（1n）
pw2_x_plot=zeros（1n）
for?kj=1:n
????pw1_x_plot（kj）=（pw1*normpdf（a（kj）-20.5））/（pw1*normpdf（a（kj）-20.5）+pw2*normpdf（a（kj）22））
%????pw2_x（ki）=1-pw1_x（ki）
????pw2_x_plot（kj）=（pw2*normpdf（a（kj）22））/（pw1*normpdf（a（kj）

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----
?????目錄???????????0??2009-05-31?21:26??貝葉斯\最小錯誤率\
?????文件????????1102??2008-12-18?21:36??貝葉斯\最小錯誤率\bayes.m
?????文件?????????341??2008-12-03?20:53??貝葉斯\最小錯誤率\bayestest.m
?????目錄???????????0??2009-05-31?21:26??貝葉斯\最小風險\
?????文件?????????963??2008-12-18?21:54??貝葉斯\最小風險\bayes_danger.m
?????文件?????????341??2008-12-03?21:05??貝葉斯\最小風險\bayes_danger_test.m
?????目錄???????????0??2009-05-31?21:26??貝葉斯\