152 lines
3.4 KiB
Common Lisp
152 lines
3.4 KiB
Common Lisp
output(type/2).
|
|
|
|
input(fibros/2).
|
|
input(activity/2).
|
|
input(sex/2).
|
|
input(action/2).
|
|
input(age/2).
|
|
input(type/2).
|
|
input(got/2).
|
|
input(gpt/2).
|
|
input(tbil/2).
|
|
input(dbil/2).
|
|
input(che/2).
|
|
input(ttt/2).
|
|
input(ztt/2).
|
|
input(tcho/2).
|
|
input(tp/2).
|
|
input(dur/2).
|
|
input(b_rel11/2).
|
|
input(b_rel12/2).
|
|
input(b_rel13/2).
|
|
|
|
|
|
modeh(*,type(+m,type_b)).
|
|
modeh(*,type(+m,type_c)).
|
|
|
|
determination(type/2,sex/2).
|
|
determination(type/2,age/2).
|
|
|
|
determination(type/2,b_rel11/2).
|
|
determination(type/2,b_rel12/2).
|
|
determination(type/2,b_rel13/2).
|
|
|
|
determination(type/2,fibros/2).
|
|
determination(type/2,activity/2).
|
|
determination(type/2,got/2).
|
|
determination(type/2,gpt/2).
|
|
determination(type/2,tbil/2).
|
|
determination(type/2,dbil/2).
|
|
determination(type/2,che/2).
|
|
determination(type/2,ttt/2).
|
|
determination(type/2,ztt/2).
|
|
determination(type/2,tcho/2).
|
|
determination(type/2,tp/2).
|
|
determination(type/2,dur/2).
|
|
|
|
modeb(*,b_rel11(-b,+m)).
|
|
modeb(*,b_rel12(-i,+m)).
|
|
modeb(*,b_rel13(-a,+m)).
|
|
|
|
modeb(*,b_rel11(+b,-m)).
|
|
modeb(*,b_rel12(+i,-m)).
|
|
modeb(*,b_rel13(+a,-m)).
|
|
|
|
|
|
modeb(*,fibros(+b,fibros_0)).
|
|
modeb(*,fibros(+b,fibros_1)).
|
|
modeb(*,fibros(+b,fibros_2)).
|
|
modeb(*,fibros(+b,fibros_3)).
|
|
modeb(*,fibros(+b,fibros_4)).
|
|
modeb(*,activity(+b,activity_0)).
|
|
modeb(*,activity(+b,activity_1)).
|
|
modeb(*,activity(+b,activity_2)).
|
|
modeb(*,activity(+b,activity_3)).
|
|
modeb(*,activity(+b,activity_false)).
|
|
modeb(*,sex(+m,sex_f)).
|
|
modeb(*,sex(+m,sex_m)).
|
|
modeb(*,age(+m,age_0)).
|
|
modeb(*,age(+m,age_1)).
|
|
modeb(*,age(+m,age_2)).
|
|
modeb(*,age(+m,age_3)).
|
|
modeb(*,age(+m,age_4)).
|
|
modeb(*,age(+m,age_5)).
|
|
modeb(*,age(+m,age_6)).
|
|
modeb(*,got(+i,got_1)).
|
|
modeb(*,got(+i,got_2)).
|
|
modeb(*,got(+i,got_3)).
|
|
modeb(*,got(+i,got_4)).
|
|
modeb(*,got(+i,got_5)).
|
|
modeb(*,gpt(+i,gpt_1)).
|
|
modeb(*,gpt(+i,gpt_2)).
|
|
modeb(*,gpt(+i,gpt_3)).
|
|
modeb(*,gpt(+i,gpt_4)).
|
|
modeb(*,tbil(+i,tbil_1)).
|
|
modeb(*,tbil(+i,tbil_2)).
|
|
modeb(*,dbil(+i,dbil_1)).
|
|
modeb(*,dbil(+i,dbil_2)).
|
|
modeb(*,che(+i,che_1)).
|
|
modeb(*,che(+i,che_2)).
|
|
modeb(*,che(+i,che_3)).
|
|
modeb(*,che(+i,che_4)).
|
|
modeb(*,che(+i,che_5)).
|
|
modeb(*,che(+i,che_6)).
|
|
modeb(*,che(+i,che_7)).
|
|
modeb(*,che(+i,che_8)).
|
|
modeb(*,che(+i,che_9)).
|
|
modeb(*,che(+i,che_10)).
|
|
modeb(*,ttt(+i,ttt_1)).
|
|
modeb(*,ttt(+i,ttt_2)).
|
|
modeb(*,ttt(+i,ttt_3)).
|
|
modeb(*,ttt(+i,ttt_4)).
|
|
modeb(*,ttt(+i,ttt_5)).
|
|
modeb(*,ttt(+i,ttt_6)).
|
|
modeb(*,ztt(+i,ztt_1)).
|
|
modeb(*,ztt(+i,ztt_2)).
|
|
modeb(*,ztt(+i,ztt_3)).
|
|
modeb(*,ztt(+i,ztt_4)).
|
|
modeb(*,ztt(+i,ztt_5)).
|
|
modeb(*,ztt(+i,ztt_6)).
|
|
modeb(*,tcho(+i,tcho_1)).
|
|
modeb(*,tcho(+i,tcho_2)).
|
|
modeb(*,tcho(+i,tcho_3)).
|
|
modeb(*,tcho(+i,tcho_4)).
|
|
modeb(*,tp(+i,tp_1)).
|
|
modeb(*,tp(+i,tp_2)).
|
|
modeb(*,tp(+i,tp_3)).
|
|
modeb(*,tp(+i,tp_4)).
|
|
modeb(*,dur(+a,dur_0)).
|
|
modeb(*,dur(+a,dur_1)).
|
|
modeb(*,dur(+a,dur_2)).
|
|
modeb(*,dur(+a,dur_3)).
|
|
modeb(*,dur(+a,dur_4)).
|
|
modeb(*,fibros(+b,-f)).
|
|
modeb(*,activity(+b,-a)).
|
|
modeb(*,sex(+m,-sex)).
|
|
modeb(*,age(+m,-age)).
|
|
modeb(*,got(+i,-got)).
|
|
modeb(*,gpt(+i,-gpt)).
|
|
modeb(*,tbil(+i,-tbil)).
|
|
modeb(*,dbil(+i,-dbil)).
|
|
modeb(*,che(+i,-che)).
|
|
modeb(*,ttt(+i,-ttt)).
|
|
modeb(*,ztt(+i,-ztt)).
|
|
modeb(*,tcho(+i,-tcho)).
|
|
modeb(*,tp(+i,-tp)).
|
|
modeb(*,dur(+a,dur)).
|
|
|
|
lookahead(b_rel11(A,_),[fibros(A,_)]).
|
|
lookahead(b_rel11(A,_),[activity(A,_)]).
|
|
|
|
lookahead(b_rel12(A,_),[got(A,_)]).
|
|
lookahead(b_rel11(A,_B),[gpt(A,_)]).
|
|
lookahead(b_rel11(A,_B),[tbil(A,_)]).
|
|
lookahead(b_rel11(A,_B),[dbil(A,_)]).
|
|
lookahead(b_rel11(A,_B),[che(A,_)]).
|
|
lookahead(b_rel11(A,_B),[ttt(A,_)]).
|
|
lookahead(b_rel11(A,_B),[ztt(A,_)]).
|
|
lookahead(b_rel11(A,_B),[tcho(A,_)]).
|
|
lookahead(b_rel11(A,_B),[tp(A,_)]).
|
|
lookahead(b_rel13(A,_B),[dur(A,_)]).
|
|
|