wolffd@0: function [mpe, ll] = find_mpe(engine, evidence)
wolffd@0: % FIND_MPE_GLOBAL Compute the most probable explanation(s) from the global joint
wolffd@0: % [mpe, ll] = find_mpe(engine, evidence)
wolffd@0: %
wolffd@0: % mpe(k,i) is the most probable value of node i in the k'th global mode  (cell array)
wolffd@0: %
wolffd@0: % We assume all nodes are discrete
wolffd@0: 
wolffd@0: %engine = global_joint_inf_engine(bnet);
wolffd@0: bnet = bnet_from_engine(engine);
wolffd@0: engine = enter_evidence(engine, evidence);
wolffd@0: S1 = struct(engine); % violate object privacy
wolffd@0: S2 = struct(S1.jpot); % joint potential
wolffd@0: prob = max(S2.T(:));
wolffd@0: modes = find(S2.T(:) == prob);
wolffd@0: 
wolffd@0: ens = bnet.node_sizes;
wolffd@0: onodes = find(~isemptycell(evidence));
wolffd@0: ens(onodes) = 1;
wolffd@0: mpe = ind2subv(ens, modes);
wolffd@0: for k=1:length(modes)
wolffd@0:   for i=onodes(:)'
wolffd@0:     mpe(k,i) = evidence{i};
wolffd@0:   end
wolffd@0: end
wolffd@0: ll = log(prob);
wolffd@0: 
wolffd@0: mpe = num2cell(mpe);