37 lines
999 B
Prolog
37 lines
999 B
Prolog
/* CTPs for school database. */
|
|
|
|
abi_table(
|
|
/* h */ [ 0.50,
|
|
/* m */ 0.40,
|
|
/* l */ 0.10 ]).
|
|
|
|
pop_table(
|
|
/* h m l */
|
|
/* h */ [ 0.9, 0.2, 0.01,
|
|
/* m */ 0.09, 0.6, 0.09,
|
|
/* l */ 0.01, 0.2, 0.9 ]).
|
|
|
|
diff_table(
|
|
/* h */ [ 0.25,
|
|
/* m */ 0.50,
|
|
/* l */ 0.25 ]).
|
|
|
|
int_table(
|
|
/* h */ [ 0.5,
|
|
/* m */ 0.4,
|
|
/* l */ 0.1 ]).
|
|
|
|
grade_table(
|
|
/* h h h m h l m h m m m l l h l m l l */
|
|
/* a */ [ 0.2, 0.7, 0.85, 0.1, 0.2, 0.5, 0.01, 0.05, 0.1,
|
|
/* b */ 0.6, 0.25, 0.12, 0.3, 0.6, 0.35, 0.04, 0.15, 0.4,
|
|
/* c */ 0.15, 0.04, 0.02, 0.4, 0.15, 0.12, 0.5, 0.6, 0.4,
|
|
/* d */ 0.05, 0.01, 0.01, 0.2, 0.05, 0.03, 0.45, 0.2, 0.1 ]).
|
|
|
|
sat_table(
|
|
/* h a h b h c h d m a m b m c m d l a l b l c l d */
|
|
/* h */ [ 0.98, 0.9, 0.8 , 0.6, 0.9, 0.4, 0.2, 0.01, 0.5, 0.2, 0.01, 0.01,
|
|
/* m */ 0.01, 0.09, 0.15, 0.3, 0.05, 0.4, 0.3, 0.04, 0.35, 0.3, 0.09, 0.01,
|
|
/* l */ 0.01, 0.01, 0.05, 0.1, 0.05, 0.2, 0.5, 0.95, 0.15, 0.5, 0.9, 0.98 ]).
|
|
|