This repository has been archived on 2023-08-20. You can view files and clone it, but cannot push or open issues or pull requests.
yap-6.3/packages/cplint/examples/paper_ref_not.cpl
2009-02-16 12:23:29 +00:00

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).