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/CLPBN/examples/School/parschema.pfl

83 lines
1.6 KiB
Plaintext
Raw Normal View History

/* Base file for school database. Supposed to be called from school_*.yap */
2012-01-10 17:01:06 +00:00
:- use_module(library(pfl)).
bayes abi(K)::[h,m,l] ; abi_table ; [professor(K)].
bayes pop(K)::[h,m,l], abi(K) ; pop_table ; [professor(K)].
2012-12-12 15:16:30 +00:00
bayes diff(C)::[h,m,l] ; diff_table ; [course(C,_)].
2012-01-10 17:01:06 +00:00
2012-12-12 15:16:30 +00:00
bayes int(S)::[h,m,l] ; int_table ; [student(S)].
2012-01-10 17:01:06 +00:00
2012-12-12 15:16:30 +00:00
bayes grade(C,S)::[a,b,c,d], int(S), diff(C) ;
grade_table ;
[registration(_,C,S)].
2012-01-10 17:01:06 +00:00
2012-12-12 15:16:30 +00:00
bayes satisfaction(C,S)::[h,m,l], abi(P), grade(C,S) ;
sat_table ;
[reg_satisfaction(C,S,P)].
2012-01-10 17:01:06 +00:00
2012-12-12 15:16:30 +00:00
bayes rat(C)::[h,m,l], Sats ; avg ; [course_rat(C, Sats)].
2012-01-10 17:01:06 +00:00
2012-12-12 15:16:30 +00:00
bayes rank(S)::[a,b,c,d], Grades ; avg ; [student_ranking(S,Grades)].
2012-01-10 17:01:06 +00:00
grade(Key, Grade) :-
registration(Key, CKey, SKey),
grade(CKey, SKey, Grade).
2012-08-15 22:01:45 +01:00
reg_satisfaction(CKey, SKey, PKey) :-
2012-01-10 17:01:06 +00:00
registration(_Key, CKey, SKey),
course(CKey, PKey).
2012-08-29 02:21:14 +01:00
course_rat(CKey, Sats) :-
2012-01-10 17:01:06 +00:00
course(CKey, _),
2012-09-23 13:24:49 +01:00
setof(satisfaction(CKey,SKey),
2012-12-12 15:16:30 +00:00
PKey^reg_satisfaction(CKey, SKey, PKey),
Sats).
2012-01-10 17:01:06 +00:00
student_ranking(SKey, Grades) :-
student(SKey),
2012-12-12 15:16:30 +00:00
setof(grade(CKey,SKey),
RKey^registration(RKey,CKey,SKey),
Grades).
2012-01-10 17:01:06 +00:00
:- ensure_loaded(tables).
2012-12-12 15:47:09 +00:00
%
% Convert to longer names
%
2012-12-12 15:16:30 +00:00
professor_ability(P,A) :- abi(P,A).
2012-08-15 22:01:45 +01:00
2012-12-12 15:16:30 +00:00
professor_popularity(P,A) :- pop(P,A).
course_difficulty(P,A) :- diff(P,A).
student_intelligence(P,A) :- int(P,A).
2012-12-20 23:19:10 +00:00
2012-12-12 15:16:30 +00:00
course_rating(C,X) :- rat(C,X).
2012-08-15 22:01:45 +01:00
registration_grade(R,A) :-
registration(R,C,S),
grade(C,S,A).
registration_satisfaction(R,A) :-
registration(R,C,S),
satisfaction(C,S,A).
2012-12-12 15:16:30 +00:00
registration_course(R,C) :- registration(R,C,_).
2012-08-15 22:01:45 +01:00
2012-12-12 15:16:30 +00:00
registration_student(R,S) :- registration(R,_,S).
2012-08-29 02:21:14 +01:00
2012-01-10 17:01:06 +00:00
%
2012-12-12 15:16:30 +00:00
% Evidence
2012-01-10 17:01:06 +00:00
%
2012-08-15 22:01:45 +01:00
%abi(p0, h).
%pop(p1, m).
%pop(p2, h).
2012-01-10 17:01:06 +00:00
% Query
% ?- abi(p0, X).