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

make this example a more uniform example.

Browse Source
This commit is contained in:
Vitor Santos Costa 2008-11-01 21:08:47 +00:00
parent 11e02be540
commit 4f1d7d0524
1 changed files with 15 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
CLPBN/learning/example/school_params.yap
View File

@ -11,22 +11,31 @@ main :-
em(L,0.1,10,CPTs,Lik), em(L,0.1,10,CPTs,Lik),
writeln(Lik:CPTs). writeln(Lik:CPTs).
missing(0.1).
% miss 30% of the examples. % miss 30% of the examples.
goal(professor_ability(P,V)) :- goal(professor_ability(P,V)) :-
pos:professor_ability(P,V1), pos:professor_ability(P,V1),
( random > 0.3 -> V = V1 ; true). missing(X),
( random > X -> V = V1 ; true).
% miss 10% of the examples. % miss 10% of the examples.
goal(professor_popularity(P,V)) :- goal(professor_popularity(P,V)) :-
pos:professor_popularity(P,V1), pos:professor_popularity(P,V1),
( random > 0.3 -> V = V1 ; true). missing(X),
( random > X -> V = V1 ; true).
goal(registration_grade(P,V)) :- goal(registration_grade(P,V)) :-
pos:registration_grade(P,V1), pos:registration_grade(P,V1),
( random > 0.1 -> V = V1 ; true). missing(X),
( random > X -> V = V1 ; true).
goal(student_intelligence(P,V)) :- goal(student_intelligence(P,V)) :-
pos:student_intelligence(P,V1), pos:student_intelligence(P,V1),
( random > 0.1 -> V = V1 ; true). missing(X),
( random > X -> V = V1 ; true).
goal(course_difficulty(P,V)) :- goal(course_difficulty(P,V)) :-
pos:course_difficulty(P,V1), pos:course_difficulty(P,V1),
( random > 0.1 -> V = V1 ; true). missing(X),
( random > X -> V = V1 ; true).
goal(registration_satisfaction(P,V)) :- goal(registration_satisfaction(P,V)) :-
pos:registration_satisfaction(P,V). pos:registration_satisfaction(P,V1),
missing(X),
( random > X -> V = V1 ; true).