diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

small fix

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1977 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2007-11-07 09:35:53 +00:00
parent 42048570f3
commit e01e7cc8bf
3 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
CLPBN/clpbn/bnt.yap
View File

@ -59,7 +59,7 @@ G <-- Y :-
bnt_solver(jtree). bnt_solver(jtree).
% likelihood_weighting % likelihood_weighting
bnt_path('/u/vitor/Yap/CLPBN/FullBNT-1.0.3/BNT'). bnt_path('$HOME/Yap/CLPBN/FullBNT-1.0.4/BNT').
% %
% What BNT are we using: % What BNT are we using:
@ -113,7 +113,7 @@ init_matlab :-
bnt_path(Path), bnt_path(Path),
atom_concat('cd ', Path, Command), atom_concat('cd ', Path, Command),
matlab_eval_string(Command), matlab_eval_string(Command),
matlab_eval_string('add_BNT_to_path',_), matlab_eval_string('addpath(genpathKPM(pwd))',_),
assert(bnt(on)). assert(bnt(on)).
start_matlab :- start_matlab :-

7
H/rheap.h
View File

@ -11,8 +11,11 @@
* File: rheap.h * * File: rheap.h *
* comments: walk through heap code * * comments: walk through heap code *
* * * *
* Last rev: $Date: 2007-11-07 09:25:27 $,$Author: vsc $ * * Last rev: $Date: 2007-11-07 09:35:53 $,$Author: vsc $ *
* $Log: not supported by cvs2svn $ * $Log: not supported by cvs2svn $
* Revision 1.79 2007/11/07 09:25:27 vsc
* speedup meta-calls
*
* Revision 1.78 2007/11/06 17:02:12 vsc * Revision 1.78 2007/11/06 17:02:12 vsc
* compile ground terms away. * compile ground terms away.
* *
@ -341,7 +344,7 @@ static void
RestoreDBTermEntry(struct dbterm_list *dbl) { RestoreDBTermEntry(struct dbterm_list *dbl) {
DBTerm *dbt; DBTerm *dbt;
dbl->dbterms = DBTermAdjust(dbl->dbterms); dbt = dbl->dbterms = DBTermAdjust(dbl->dbterms);
dbl->clause_code = PtoOpAdjust(dbl->clause_code); dbl->clause_code = PtoOpAdjust(dbl->clause_code);
dbl->next_dbl = PtoDBTLAdjust(dbl->next_dbl); dbl->next_dbl = PtoDBTLAdjust(dbl->next_dbl);
dbl->p = PredEntryAdjust(dbl->p); dbl->p = PredEntryAdjust(dbl->p);

5
library/matlab/bnt_example.yap
View File

@ -1,7 +1,8 @@
/* /*
add_BNT_to_path cd ~/Yap/CLPBN/FullBNT-1.0.4
addpath(genpathKPM(pwd))
N = 4; N = 4;
dag = zeros(N,N); dag = false(N,N);
C = 1; S = 2; R = 3; W = 4; C = 1; S = 2; R = 3; W = 4;
dag(C,[R S]) = 1; dag(C,[R S]) = 1;
dag(R,W) = 1; dag(R,W) = 1;