To check out this repository please hg clone the following URL, or open the URL using EasyMercurial or your preferred Mercurial client.

Statistics Download as Zip
| Branch: | Revision:

root / _FullBNT / BNT / general / bnet_to_fgraph.m @ 8:b5b38998ef3b

History | View | Annotate | Download (402 Bytes)

1 
function fg = bnet_to_fgraph(bnet)
2 
% BNET_TO_FGRAPH Convert a Bayes net to a factor graph
3 
% fg = bnet_to_fgraph(bnet)
4 
%
5 
% We create one factor per family, whose kernel is the CPD
6 

    		
  

  

    
      7
    
    
      
nnodes = length(bnet.dag);


    		
  

  

    
      8
    
    
      
G = zeros(nnodes, nnodes);


    		
  

  

    
      9
    
    
      
for i=1:nnodes


    		
  

  

    
      10
    
    
      
  G(family(bnet.dag, i), i) = 1;


    		
  

  

    
      11
    
    
      
end


    		
  

  

    
      12
    
    
      

    		
  

  

    
      13
    
    
      
fg = mk_fgraph(G, bnet.node_sizes, bnet.CPD, 'equiv_class', bnet.equiv_class, 'discrete', bnet.dnodes);


    		
  

  

    
      14
    
    
      

    		
  

  

    
      15
    
    
      
	       


    		
  

  

    
      16