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

fixed predicates for measuring time

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2228 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
rzf 2008-05-02 06:22:23 +00:00
parent 5575cdbd4f
commit 45a05e9206
1 changed files with 28 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
cplint/lpadsld.pl
View File

@ -43,7 +43,7 @@ solve(GoalsList,Prob):-
compute_prob(NewVar,Formula,Prob,0) compute_prob(NewVar,Formula,Prob,0)
). ).
solve(GoalsList,0):- solve(GoalsList,0.0):-
\+ find_deriv(GoalsList,_Deriv). \+ find_deriv(GoalsList,_Deriv).
/* s(GoalsList,Prob,CPUTime1,CPUTime2,WallTime1,WallTime2) compute the probability of a list of goals /* s(GoalsList,Prob,CPUTime1,CPUTime2,WallTime1,WallTime2) compute the probability of a list of goals
@ -62,7 +62,7 @@ s(GoalsList,Prob,CPUTime1,CPUTime2,WallTime1,WallTime2):-
solve(GoalsList,Prob,CPUTime1,CPUTime2,WallTime1,WallTime2):- solve(GoalsList,Prob,CPUTime1,CPUTime2,WallTime1,WallTime2):-
statistics(cputime,[_,_]), statistics(cputime,[_,_]),
statistics(walltime,[_,_]), statistics(walltime,[_,_]),
setof(Deriv,find_deriv(GoalsList,Deriv),LDup), (setof(Deriv,find_deriv(GoalsList,Deriv),LDup)->
rem_dup_lists(LDup,[],L), rem_dup_lists(LDup,[],L),
statistics(cputime,[_,CT1]), statistics(cputime,[_,CT1]),
CPUTime1 is CT1/1000, CPUTime1 is CT1/1000,
@ -79,7 +79,17 @@ solve(GoalsList,Prob,CPUTime1,CPUTime2,WallTime1,WallTime2):-
statistics(cputime,[_,CT2]), statistics(cputime,[_,CT2]),
CPUTime2 is CT2/1000, CPUTime2 is CT2/1000,
statistics(walltime,[_,WT2]), statistics(walltime,[_,WT2]),
WallTime2 is WT2/1000,!. WallTime2 is WT2/1000
;
Prob=0.0,
statistics(cputime,[_,CT1]),
CPUTime1 is CT1/1000,
statistics(walltime,[_,WT1]),
WallTime1 is WT1/1000,
CPUTime2 =0.0,
statistics(walltime,[_,WT2]),
WallTime2 =0.0
),!.