fixes

2019-04-02 15:32:50 +01:00
parent 63a514cad5
commit 10307c27fe
9 changed files with 59 additions and 14 deletions
--- a/packages/ProbLog/problog/lbdd.yap
+++ b/packages/ProbLog/problog/lbdd.yap
@@ -68,10 +68,18 @@ log2prob(X,Slope,FactID,V) :-
    sigmoid(V0, Slope, V).

 bind_maplist([], _Slope, _X).
-bind_maplist([Node-(Node-Pr)|MapList], Slope, X) :-
+bind_maplist([Node-(Node-NPr)|MapList], Slope, X) :-
    SigPr <== X[Node],
    sigmoid(SigPr, Slope, Pr),
-	bind_maplist(MapList, Slope, X).
+        (Pr > 0.999
+	    ->
+		NPr = 0.999
+			;
+			Pr < 0.001
+			       ->
+				   NPr = 0.001 ;
+				   Pr = NPr ),
+bind_maplist(MapList, Slope, X).


 %get_prob(Node, Prob) :-