wolffd@0: function pot = convert_to_pot(CPD, pot_type, domain, evidence)
wolffd@0: % CONVERT_TO_POT Convert a tabular utility node to one or more potentials
wolffd@0: % pot = convert_to_pot(CPD, pot_type, domain, evidence)
wolffd@0: 
wolffd@0: switch pot_type
wolffd@0:  case 'u',
wolffd@0:   sz = [CPD.sizes 1]; % the utility node itself has size 1
wolffd@0:   pot = upot(domain, sz, 1*myones(sz), myreshape(CPD.T, sz));   
wolffd@0:  otherwise,
wolffd@0:   error(['can''t convert a utility node to a ' pot_type ' potential']);
wolffd@0: end