diff options
Diffstat (limited to 'sourcecodes/bnt-master/BNT/CPDs/@tabular_utility_node')
6 files changed, 67 insertions, 0 deletions
diff --git a/sourcecodes/bnt-master/BNT/CPDs/@tabular_utility_node/CVS/Entries b/sourcecodes/bnt-master/BNT/CPDs/@tabular_utility_node/CVS/Entries new file mode 100644 index 00000000..c4a82aa3 --- /dev/null +++ b/sourcecodes/bnt-master/BNT/CPDs/@tabular_utility_node/CVS/Entries @@ -0,0 +1,4 @@ +/convert_to_pot.m/1.1.1.1/Wed May 29 15:59:54 2002// +/display.m/1.1.1.1/Wed May 29 15:59:54 2002// +/tabular_utility_node.m/1.1.1.1/Wed May 29 15:59:54 2002// +D diff --git a/sourcecodes/bnt-master/BNT/CPDs/@tabular_utility_node/CVS/Repository b/sourcecodes/bnt-master/BNT/CPDs/@tabular_utility_node/CVS/Repository new file mode 100644 index 00000000..93b1ac57 --- /dev/null +++ b/sourcecodes/bnt-master/BNT/CPDs/@tabular_utility_node/CVS/Repository @@ -0,0 +1 @@ +FullBNT/BNT/CPDs/@tabular_utility_node diff --git a/sourcecodes/bnt-master/BNT/CPDs/@tabular_utility_node/CVS/Root b/sourcecodes/bnt-master/BNT/CPDs/@tabular_utility_node/CVS/Root new file mode 100644 index 00000000..f3bd14a6 --- /dev/null +++ b/sourcecodes/bnt-master/BNT/CPDs/@tabular_utility_node/CVS/Root @@ -0,0 +1 @@ +:ext:nsaunier@bnt.cvs.sourceforge.net:/cvsroot/bnt diff --git a/sourcecodes/bnt-master/BNT/CPDs/@tabular_utility_node/convert_to_pot.m b/sourcecodes/bnt-master/BNT/CPDs/@tabular_utility_node/convert_to_pot.m new file mode 100644 index 00000000..05eb287f --- /dev/null +++ b/sourcecodes/bnt-master/BNT/CPDs/@tabular_utility_node/convert_to_pot.m @@ -0,0 +1,11 @@ +function pot = convert_to_pot(CPD, pot_type, domain, evidence) +% CONVERT_TO_POT Convert a tabular utility node to one or more potentials +% pot = convert_to_pot(CPD, pot_type, domain, evidence) + +switch pot_type + case 'u', + sz = [CPD.sizes 1]; % the utility node itself has size 1 + pot = upot(domain, sz, 1*myones(sz), myreshape(CPD.T, sz)); + otherwise, + error(['can''t convert a utility node to a ' pot_type ' potential']); +end diff --git a/sourcecodes/bnt-master/BNT/CPDs/@tabular_utility_node/display.m b/sourcecodes/bnt-master/BNT/CPDs/@tabular_utility_node/display.m new file mode 100644 index 00000000..45b5c01a --- /dev/null +++ b/sourcecodes/bnt-master/BNT/CPDs/@tabular_utility_node/display.m @@ -0,0 +1,4 @@ +function display(CPD) + +disp('tabular utility node object'); +disp(struct(CPD)); diff --git a/sourcecodes/bnt-master/BNT/CPDs/@tabular_utility_node/tabular_utility_node.m b/sourcecodes/bnt-master/BNT/CPDs/@tabular_utility_node/tabular_utility_node.m new file mode 100644 index 00000000..36dcad66 --- /dev/null +++ b/sourcecodes/bnt-master/BNT/CPDs/@tabular_utility_node/tabular_utility_node.m @@ -0,0 +1,46 @@ +function CPD = tabular_utility_node(bnet, node, T) +% TABULAR_UTILITY_NODE Represent a utility function as a table +% CPD = tabular_utility_node(bnet, node, T) +% +% node is the number of a node in this equivalence class. +% T is an optional argument (same shape as the CPT in tabular_CPD, but missing the last (child) +% dimension). By default, entries in T are chosen u.a.r. from 0:1 (using 'rand'). + +if nargin==0 + % This occurs if we are trying to load an object from a file. + CPD = init_fields; + clamp = 0; + CPD = class(CPD, 'tabular_utility_node'); + return; +elseif isa(bnet, 'tabular_utility_node') + % This might occur if we are copying an object. + CPD = bnet; + return; +end +CPD = init_fields; + + +ns = bnet.node_sizes; +ps = parents(bnet.dag, node); +sz = ns(ps); + +if nargin < 3 + T = myrand(sz); +else + T = myreshape(T, sz); +end + +CPD.T = T; +CPD.sizes = sz; + +CPD = class(CPD, 'tabular_utility_node'); + +%%%%%%%%%%% + +function CPD = init_fields() +% This ensures we define the fields in the same order +% no matter whether we load an object from a file, +% or create it from scratch. (Matlab requires this.) + +CPD.T = []; +CPD.sizes = []; |