Mercurial > hg > camir-aes2014
annotate toolboxes/FullBNT-1.0.7/bnt/inference/dynamic/@cbk_inf_engine/marginal_family.m @ 0:e9a9cd732c1e tip
first hg version after svn
author | wolffd |
---|---|
date | Tue, 10 Feb 2015 15:05:51 +0000 |
parents | |
children |
rev | line source |
---|---|
wolffd@0 | 1 function m = marginal_family(engine, i, t) |
wolffd@0 | 2 % MARGINAL_FAMILY Compute the marginal on the specified family (bk) |
wolffd@0 | 3 % marginal = marginal_family(engine, i, t) |
wolffd@0 | 4 |
wolffd@0 | 5 % This is just like inf_engine/marginal_family, except when we call |
wolffd@0 | 6 % marginal_nodes, we provide a 4th argument, to tell it's a family. |
wolffd@0 | 7 |
wolffd@0 | 8 if nargin < 3, t = 1; end |
wolffd@0 | 9 |
wolffd@0 | 10 bnet = bnet_from_engine(engine); |
wolffd@0 | 11 if t==1 |
wolffd@0 | 12 m = marginal_nodes(engine, family(bnet.dag, i), t, 1); |
wolffd@0 | 13 else |
wolffd@0 | 14 ss = length(bnet.intra); |
wolffd@0 | 15 fam = family(bnet.dag, i+ss); |
wolffd@0 | 16 if any(fam<=ss) |
wolffd@0 | 17 % i has a parent in the preceeding slice |
wolffd@0 | 18 % Hence the lowest numbered slice containing the family is t-1 |
wolffd@0 | 19 m = marginal_nodes(engine, fam, t-1, 1); |
wolffd@0 | 20 else |
wolffd@0 | 21 % The family all fits inside slice t |
wolffd@0 | 22 % Hence shift the indexes back to slice 1 |
wolffd@0 | 23 m = marginal_nodes(engine, fam-ss, t, 1); |
wolffd@0 | 24 end |
wolffd@0 | 25 end |