36 lines
871 B
Prolog
36 lines
871 B
Prolog
|
|
cons_table(amsterdam,[0.2,
|
|
0.8]) :- !.
|
|
cons_table(_, [0.8,
|
|
0.2]).
|
|
|
|
color_table(_,
|
|
/* tm tf fm ff */
|
|
[ 0.05, 0.1, 0.3, 0.5 ,
|
|
0.95, 0.9, 0.7, 0.5 ]).
|
|
|
|
ccolor_table(_,
|
|
/* t f */
|
|
[ 0.9, 0.2 ,
|
|
0.1, 0.8 ]).
|
|
|
|
height_table(_,
|
|
/* m f */
|
|
[ 0.6, 0.4 ,
|
|
0.4, 0.6 ]).
|
|
|
|
shoe_size_table(_,
|
|
/* t f */
|
|
[ 0.9, 0.1 ,
|
|
0.1, 0.9 ]).
|
|
|
|
A: professor's ability;
|
|
B: student's grade (for course registration).
|
|
*/
|
|
descn_table(_,
|
|
/* color, hair, height, guilt */
|
|
/* ttttt tttf ttft ttff tfttt tftf tfft tfff ttttt fttf ftft ftff ffttt fftf ffft ffff */
|
|
/*t*/ [0.99, 0.99, 0.99, 0.99, 0.99, 0.99, 0.99, 0.99, 0.99, 0.99, 0.99, 0.99, 0.99, 0.99, 0.99, 0.99,
|
|
/*f*/ 0.01, 0.01, 0.01, 0.01, 0.01, 0.01, 0.01, 0.01, 0.01, 0.01, 0.01, 0.01, 0.01, 0.01, 0.01, 0.01 ]).
|
|
|