5a19adf881
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1966 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
42 lines
540 B
Plaintext
42 lines
540 B
Plaintext
/*
|
|
s([\+ cites_cited(c1,p1)],P).
|
|
P = 0.7 ?
|
|
|
|
s([cites_citing(c1,p1)],P).
|
|
P = 0.14 ?
|
|
|
|
*/
|
|
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).
|
|
|
|
|
|
cites_cited_group(C,theory):0.9;cites_cited_group(C,ai):0.1.
|
|
|
|
uniform(cites_cited(C,P),P,L):-
|
|
cites_cited_group(C,T),bagof(Pap,paper_topic(Pap,T),L).
|
|
|
|
|
|
uniform(cites_citing(C,P),P,L):-
|
|
setof(Paper,paper(Paper),L),
|
|
cites_cited(C,Pap),
|
|
\+ cites_cited(C,p1).
|