wolffd@0: % This example is from Page.143 of "Probabilistic Networks and Expert Systems",
wolffd@0: % Cowell, Dawid, Lauritzen and Spiegelhalter, 1999, Springer.
wolffd@0: 
wolffd@0: X = 1; Y = 2; Z = 3;
wolffd@0: n = 3;
wolffd@0: 
wolffd@0: dag = zeros(n);
wolffd@0: dag(X, Y)=1;
wolffd@0: dag(Y, Z)=1;
wolffd@0: 
wolffd@0: ns = ones(1, n);
wolffd@0: dnodes = [];
wolffd@0: 
wolffd@0: bnet = mk_bnet(dag, ns, dnodes);
wolffd@0: bnet.CPD{X} = gaussian_CPD(bnet, X, 'mean', 0, 'cov', 1);
wolffd@0: bnet.CPD{Y} = gaussian_CPD(bnet, Y, 'mean', 0, 'cov', 1, 'weights', 1);
wolffd@0: bnet.CPD{Z} = gaussian_CPD(bnet, Z, 'mean', 0, 'cov', 1, 'weights', 1);
wolffd@0: 
wolffd@0: engines = {};
wolffd@0: engines{end+1} = jtree_inf_engine(bnet);
wolffd@0: engines{end+1} = stab_cond_gauss_inf_engine(bnet);
wolffd@0: nengines = length(engines);
wolffd@0: 
wolffd@0: evidence = cell(1,n);
wolffd@0: evidence{Y} = 1.5; 
wolffd@0: 
wolffd@0: for e=1:nengines
wolffd@0:   engines{e} = enter_evidence(engines{e}, evidence);
wolffd@0:   margX = marginal_nodes(engines{e}, X);
wolffd@0:   assert(approxeq(margX.mu, 0.75))
wolffd@0:   assert(approxeq(margX.Sigma, 0.5))
wolffd@0:   
wolffd@0:   margZ = marginal_nodes(engines{e}, Z);
wolffd@0:   assert(approxeq(margZ.mu, 1.5))
wolffd@0:   assert(approxeq(margZ.Sigma, 1))
wolffd@0: end
wolffd@0: 
wolffd@0: 
wolffd@0: evidence = cell(1,n);
wolffd@0: evidence{Z} = 1.5; 
wolffd@0: 
wolffd@0: for e=1:nengines
wolffd@0:   engines{e} = enter_evidence(engines{e}, evidence);
wolffd@0:   margX = marginal_nodes(engines{e}, X);
wolffd@0:   assert(approxeq(margX.mu, 1/2))
wolffd@0:   assert(approxeq(margX.Sigma, 2/3))
wolffd@0:   
wolffd@0:   margY = marginal_nodes(engines{e}, Y);
wolffd@0:   assert(approxeq(margY.mu, 1))
wolffd@0:   assert(approxeq(margY.Sigma, 2/3))
wolffd@0: end
wolffd@0: