#include
LRESULT CALLBACK WndProc(HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM lParam)
{
switch (uMsg)
{
case WM_CREATE: // Set current directory to value passed on c
function p = prob_node(CPD, self_ev, pev)
% PROB_NODE Compute P(y|pa(y), theta) (tabular)
% p = prob_node(CPD, self_ev, pev)
%
% self_ev{m} is the evidence on this node in case m
% pev{i,m} is th
function L = log_prior(CPD)
% LOG_PRIOR Return log P(theta) for a tabular CPD
% L = log_prior(CPD)
switch CPD.prior_type
case 'none',
L = 0;
case 'dirichlet',
D = CPD.dirichlet(:);
function L = log_nextcase_prob_node(CPD, self_ev, pev, test_self_ev, test_pev)
% LOG_NEXTCASE_PROB_NODE compute the joint distribution of a node (tabular) of a new case given
% completely observed d
function pi = CPD_to_pi(CPD, msg_type, n, ps, msg, evidence)
% CPD_TO_PI Compute pi vector (noisyor)
% pi = CPD_to_pi(CPD, msg_type, n, ps, msg)
% Pearl p188 eqn 4.57
switch msg_type
case 'd
function val = get_params(pot, name)
% GET_PARAMS Accessor function for a field (dpot)
% val = get_params(pot, name)
%
% e.g., get_params(pot, 'table') or 'domain'
switch name
case 'table', v
#!/bin/sh
# Assumes man2html command in path
# That is a Perl script downloadable from
# http://www.oac.uci.edu/indiv/ehood/man2html.html
# also uses our man_xref utility
case $# in
2) ;;
*) echo "
