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

removed some useless code

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2130 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
rzf 2008-03-08 14:54:32 +00:00
parent 04c4c58edf
commit 2237f94e06
1 changed files with 0 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
cplint/lpadvel.pl
View File

@ -22,7 +22,6 @@
:-use_module(library(lists)). :-use_module(library(lists)).
:-use_module(library(ugraphs)). :-use_module(library(ugraphs)).
:-use_module(library(avl)). :-use_module(library(avl)).
:-use_module(library(ugraphs)).
:-use_module(library(matrix)). :-use_module(library(matrix)).
@ -566,20 +565,6 @@ identity_facotrs([H|T],[d(H)|TD],[f(Mat,[d(H),H],[2,2])|TF],Graph0,Graph1):-
identity_facotrs(T,TD,TF,Graph2,Graph1). identity_facotrs(T,TD,TF,Graph2,Graph1).
add_ev([],_AV).
add_ev([\+ H|T],AV):-!,
avl_lookup(H,V,AV),
clpbn:put_atts(V,evidence(0)),
add_ev(T,AV).
add_ev([H|T],AV):-
avl_lookup(H,V,AV),
clpbn:put_atts(V,evidence(1)),
add_ev(T,AV).
find_rules_with_atom(_A,[],[]). find_rules_with_atom(_A,[],[]).
find_rules_with_atom(A,[(N,Head,_Body)|T],[(N,Head)|R]):- find_rules_with_atom(A,[(N,Head,_Body)|T],[(N,Head)|R]):-