module system
This commit is contained in:
parent
63d2f0f57e
commit
c6652c0ef6
@ -16,6 +16,8 @@
|
|||||||
:- use_module(library('clpbn/discrete_utils'),
|
:- use_module(library('clpbn/discrete_utils'),
|
||||||
[reorder_CPT/5]).
|
[reorder_CPT/5]).
|
||||||
|
|
||||||
|
:- use_module(library('atts')).
|
||||||
|
|
||||||
:- use_module(library(matlab),
|
:- use_module(library(matlab),
|
||||||
[start_matlab/1,
|
[start_matlab/1,
|
||||||
close_matlab/0,
|
close_matlab/0,
|
||||||
|
@ -7,13 +7,15 @@
|
|||||||
|
|
||||||
:- ensure_loaded(library(clpbn)).
|
:- ensure_loaded(library(clpbn)).
|
||||||
|
|
||||||
|
:- use_module(library(atts)).
|
||||||
|
|
||||||
:- use_module(library(lists),
|
:- use_module(library(lists),
|
||||||
[nth/3]).
|
[nth/3]).
|
||||||
|
|
||||||
:- use_module(library(nbhash),
|
:- use_module(library(bhash),
|
||||||
[nb_hash_new/2,
|
[b_hash_new/2,
|
||||||
nb_hash_lookup/3,
|
b_hash_lookup/3,
|
||||||
nb_hash_insert/3
|
b_hash_insert/3
|
||||||
]).
|
]).
|
||||||
|
|
||||||
:- ensure_loaded(library(tries)).
|
:- ensure_loaded(library(tries)).
|
||||||
|
@ -17,7 +17,7 @@
|
|||||||
:- use_module(library(lists),
|
:- use_module(library(lists),
|
||||||
[sum_list/2]).
|
[sum_list/2]).
|
||||||
|
|
||||||
:- use_module(library(matrix)],
|
:- use_module(library(matrix),
|
||||||
[matrix_new/3,
|
[matrix_new/3,
|
||||||
matrix_add/3,
|
matrix_add/3,
|
||||||
matrix_get/3,
|
matrix_get/3,
|
||||||
|
@ -110,8 +110,7 @@ clpbn_table(F/N,M) :-
|
|||||||
asserta(clpbn_table(S, M, IGoal)),
|
asserta(clpbn_table(S, M, IGoal)),
|
||||||
assert((M:S :-
|
assert((M:S :-
|
||||||
!,
|
!,
|
||||||
% write(S: ' ' ),
|
b_getval((clpbn_tables), Tab),
|
||||||
b_getval(clpbn_tables, Tab),
|
|
||||||
% V2 is unbound.
|
% V2 is unbound.
|
||||||
(b_hash_lookup(Key, V2, Tab) ->
|
(b_hash_lookup(Key, V2, Tab) ->
|
||||||
% (attvar(V2) -> writeln(ok:A0:V2) ; writeln(error(V2:should_be_attvar(S)))),
|
% (attvar(V2) -> writeln(ok:A0:V2) ; writeln(error(V2:should_be_attvar(S)))),
|
||||||
|
@ -20,7 +20,8 @@
|
|||||||
[{}/1,
|
[{}/1,
|
||||||
clpbn_flag/2,
|
clpbn_flag/2,
|
||||||
clpbn_flag/3,
|
clpbn_flag/3,
|
||||||
set_clpbn_flag/2
|
set_clpbn_flag/2,
|
||||||
|
op(500, xfy, with)
|
||||||
]).
|
]).
|
||||||
|
|
||||||
:- use_module(library('clpbn/learning/em')).
|
:- use_module(library('clpbn/learning/em')).
|
||||||
|
Reference in New Issue
Block a user