5a19adf881
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1966 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
46 lines
597 B
Plaintext
46 lines
597 B
Plaintext
/*
|
|
?- s([cites_cited(c1,Pap)],P).
|
|
P = 0.333333333333333,
|
|
Pap = p1 ? ;
|
|
P = 0.333333333333333,
|
|
Pap = p2 ? ;
|
|
P = 0.333333333333333,
|
|
Pap = p4 ? ;
|
|
no
|
|
?- Action (h for help): c
|
|
| s([cites_citing(c1,Pap)],P).
|
|
P = 0.5,
|
|
Pap = p3 ? ;
|
|
P = 0.5,
|
|
Pap = p5 ? ;
|
|
no
|
|
|
|
*/
|
|
paper(p1).
|
|
|
|
paper(p2).
|
|
|
|
paper(p3).
|
|
|
|
paper(p4).
|
|
|
|
paper(p5).
|
|
|
|
paper_topic(p1,theory).
|
|
|
|
paper_topic(p2,theory).
|
|
|
|
paper_topic(p4,theory).
|
|
|
|
paper_topic(p3,ai).
|
|
|
|
paper_topic(p5,ai).
|
|
|
|
cites(c1).
|
|
|
|
uniform(cites_cited(C,P),P,L):-
|
|
bagof(Pap,paper_topic(Pap,theory),L).
|
|
|
|
uniform(cites_citing(C,P),P,L):-
|
|
bagof(Pap,paper_topic(Pap,ai),L).
|