This repository has been archived on 2023-08-20. You can view files and clone it, but cannot push or open issues or pull requests.
yap-6.3/packages/CLPBN/clpbn/numbers.yap

63 lines
1.9 KiB
Plaintext
Raw Normal View History

2012-09-23 13:23:05 +01:00
:- module(clpbn_numbers,
2012-12-20 23:19:10 +00:00
[keys_to_numbers/7,
keys_to_numbers/9,
lists_of_keys_to_ids/6
]).
2012-09-23 13:23:05 +01:00
:- use_module(library(bhash)).
:- use_module(library(maplist)).
2012-09-23 13:23:05 +01:00
:- use_module(library(pfl),
[skolem/2,
get_pfl_cpt/5
]).
2012-09-23 13:23:05 +01:00
%
% convert key representation into numeric representation
% (+keys, +all factors, +all evidence, -ConvTable, -NextId, -FactorsWithIds, -EvidenceWithIds)
%
keys_to_numbers(AllKeys, Factors, Evidence, Hash, Id4, FactorIds, EvidenceIds) :-
b_hash_new(Hash0),
keys_to_numbers(AllKeys, Factors, Evidence, Hash0, Hash, 0, Id4, FactorIds, EvidenceIds).
keys_to_numbers(AllKeys, Factors, Evidence, Hash0, Hash4, Id0, Id4, FactorIds, EvidenceIds) :-
foldl2(key_to_id, AllKeys, _Ids, Hash0, Hash1, Id0, Id1),
foldl2(evidence_to_id, Evidence, EvidenceIds, Hash1, Hash2, Id1, Id2),
foldl2(factor_to_id(Evidence), Factors, FactorIds, Hash2, Hash3, Id2, Id3),
sort(AllKeys,SKeys), %% writeln(allSortedKeys:SKeys), writeln(''),
foldl2(key_to_id, SKeys, _, Hash3, Hash4, Id3, Id4).
lists_of_keys_to_ids(QueryKeys, QueryIds, Hash0, Hash, Id0, Id) :-
2012-12-17 17:57:00 +00:00
foldl2(list_of_keys_to_ids, QueryKeys, QueryIds, Hash0, Hash, Id0, Id).
2012-09-23 13:23:05 +01:00
list_of_keys_to_ids(List, IdList, Hash0, Hash, I0, I) :-
foldl2(key_to_id, List, IdList, Hash0, Hash, I0, I).
key_to_id(Key, Id, Hash0, Hash0, I0, I0) :-
2012-12-17 17:57:00 +00:00
b_hash_lookup(Key, Id, Hash0), !.
2012-09-23 13:23:05 +01:00
key_to_id(Key, I0, Hash0, Hash, I0, I) :-
2012-12-17 17:57:00 +00:00
b_hash_insert(Hash0, Key, I0, Hash),
I is I0+1.
2012-09-23 13:23:05 +01:00
factor_to_id(Ev, f(_, DistId, Keys), fn(Ids, Ranges, CPT, DistId, Keys), Hash0, Hash, I0, I) :-
2012-09-23 13:23:05 +01:00
get_pfl_cpt(DistId, Keys, Ev, NKeys, CPT),
foldl2(key_to_id, NKeys, Ids, Hash0, Hash, I0, I),
maplist(get_range, Keys, Ranges).
2012-09-29 11:50:00 +01:00
get_range(_Id:K, Range) :- !,
skolem(K,Domain),
length(Domain,Range).
2012-09-23 13:23:05 +01:00
get_range(K, Range) :-
skolem(K,Domain),
length(Domain,Range).
evidence_to_id(Key=Ev, Id=Ev, Hash0, Hash0, I0, I0) :-
b_hash_lookup(Key, Id, Hash0), !.
evidence_to_id(Key=Ev, I0=Ev, Hash0, Hash, I0, I) :-
b_hash_insert(Hash0, Key, I0, Hash),
I is I0+1.