• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    迪恩网络公众号

bnt_1一个用于贝叶斯网络的matlab的工具

原作者: [db:作者] 来自: [db:来源] 收藏 邀请
N = 4;
dag = zeros( N, N );
C = 1;
S = 2;
R = 3;
W = 4;
dag( C, [R S] ) = 1;
dag( R, W ) = 1;
dag( S, W ) = 1;
 
node_sizes = 2*ones(1,N);
%node_sizes = [ 4 2 3 5];
 
%建立有向无环图
onodes = [];
bNet = mk_bnet( dag, node_sizes );
 
%建立条件概率表
bNet.CPD{C} = tabular_CPD( bNet, C, 'CPT', [0.5 0.5] );
bNet.CPD{R} = tabular_CPD( bNet, R,  'CPT',[0.8 0.2 0.2 0.8 ] );
bNet.CPD{S} = tabular_CPD( bNet, S,  'CPT', [0.5 0.9 0.5 0.1] );
bNet.CPD{W} = tabular_CPD( bNet, W, 'CPT', [1 0.1 0.1 0.01 0 0.9 0.9 0.99 ] );
   
 
 
%用于推断
engine = jtree_inf_engine( bNet);
 
evidence = cell( 1,N );
evidence{W} = 2;
 
%添加证据
[engine, loglik] = enter_evidence( engine, evidence );
marg = marginal_nodes( engine, S );
p = marg.T(2);
 
%添加下雨的证据
evidence{R} = 2;
[ engine, loglik ] = enter_evidence( engine, evidence );
marg = marginal_nodes( engine, S );
p = marg.T(2);
 
bar( marg.T );
 
 
% Joint distributions
evidence = cell(1,N);
[engine, ll] = enter_evidence(engine, evidence);
m = marginal_nodes(engine, [S R W]);
m.T

鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
DelphiTopendialog中文详解发布时间:2022-07-18
下一篇:
Delphi XE 10 跨平台三层数据库应用 datasnap发布时间:2022-07-18
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap