So, you've got something like:

%nodes=( root => { parents => [],
                   probs => [0.01]}, # P(root)
         some => { parents => ['n1'],
                   probs => [0.74,0.21]}, # P(some|!root), P(some|root
+)
         other =>{ parents => ['root','n1'],
                   probs => [0.12,0.24,   # P(other|!root,!some), P(ot
+her|!root,some)
                             0.81,0.18]}, # P(other|root,!some), P(oth
+er|root,some)
         );

[download]

I choose an array to represent the join probabilities because I thought it would be the easiest way. You get the entry you need with something like:

# the state you start from
%state=(root=>1,some=>0);
# let's get P(other|root,!some)
$i=0;
for @{$nodes{other}{parents}} {
 $i=($i<<2)+$state{$_} # this is a simple encoding. Just use the same 
+for updating and accessing
}
$prob=$nodes{other}{probs}[$i];

[download]

When you have trained your network, you can dump it using XML::Simple:

use XML::Simple;
print XMLout(\%nodes);

[download]

I think this code should work as well with full-fledged belief networks, since I'm using names to refer to nodes, instead of nesting their representation in the XML tree.

-- 
        dakkar - Mobilis in mobile

In reply to Re: Re: Re: XML probabilistic trees by dakkar
in thread XML probabilistic trees by Anonymous Monk

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.