view toolboxes/FullBNT-1.0.7/bnt/potentials/@cgpot/normalize_pot.m @ 0:cc4b1211e677 tip

initial commit to HG from
Changeset:
646 (e263d8a21543) added further path and more save "camirversion.m"

function [pot, loglik] = normalize_pot(pot)
% NORMALIZE_POT Convert the CG potential Pr(X,E) into Pr(X|E) and return log Pr(E).
% [pot, loglik] = normalize_pot(pot)

% Marginalize down to [], so that the normalizing constant becomes Pr(E)
temp = cg_can_to_mom(marginalize_pot(pot, []));
%loglik = temp.mom{1}.logp;
[temp2, loglik] = normalize_pot(temp.mom{1});
  
% Adjust scale factor to reflect the fact that the pot now represents Pr(X | E) instead of Pr(X,E).

scale = -loglik;
if 1
switch pot.subtype
  case 'm'
    for i=1:pot.dsize
      pot.mom{i} = rescale_pot(pot.mom{i}, scale);
    end
  case 'c'
    for i=1:pot.dsize
      pot.can{i} = rescale_pot(pot.can{i}, scale);
    end
end        
end