Системы искусственного интеллекта. Изучение приемов семантического анализа предложений естественного языка посредством падежной грамматики, страница 2

sentence([C,D,"rodilsja","v",Year],"",Name,"","",Year,""):con2(C,D,Name).  

sentence(["Kto","rodilsja","v",Year],"Who","","","",Year,"").

sentence(["Kto","est",Sex],"Who","",Sex,"","","").

sentence([A,B,"est",Sex],"",Name,Sex,"","",""):con2(A,B,Name).

sentence(["Kto","nahoditsja","v",E,Y],"Who","","",Brig,"",""):con2(E,Y,Brig).

sentence([C,N,"nahoditsja","v",E,Y],"",Name,"",Brig,"",""):con2(E,Y,Brig),con2(C,N,Name).

sentence(["Kakaja","brigada"|S],"Who","","","","",Lab) :- !,

sentence(S,Lab).

sentence([C,N,"zashitila"|S],"",Name,"","","",Lab) :- !,

con2(C,N,Name),

sentence(["zashitila"|S],Lab).

sentence(["zashitila",L,W,N],Lab) :con1(L,W,N,Lab).

% Пол участника бригады

person_sex(Person,Sex) :relation("predstavitel",Person,Sex).

% День рождения студента

person_birthday(Person,Birthday) :relation("Year",Person,Birthday).

% Какая бригада защитила лабораторную работу

brig_lab(Crew,Lab) :relation("zashitila",Crew,Lab).

%Состав бригады

structure_brig(Person,Brig):relation("brigada",Person,Brig).

relation("wid","Man","STUDENT").

relation("wid","Women","STUDENT").

relation("Year","STUDENT","Birthday").

relation("predstavitel","Kazygashev K","Man").

relation("predstavitel","Tcarapkin V","Man").

relation("predstavitel","Ignatev A","Man").

relation("predstavitel","Koyfman D","Man").

relation("predstavitel","Durkin D","Man").

relation("predstavitel","Gallyamov O","Man").

relation("predstavitel","Andrycenko A","Man").

relation("predstavitel","Markov V","Man").

relation("predstavitel","Sorokin A","Man").

relation("predstavitel","Shilak D","Man").

relation("predstavitel","Kulikov I","Man").

relation("predstavitel","Chaban S","Man").

relation("predstavitel","Fedorov K","Man").

relation("predstavitel","Kononova N","Woman").

relation("predstavitel","Eremina","Woman").

relation("predstavitel","Kichaeva N","Woman").

relation("predstavitel","Golubeva M","Woman").

relation("predstavitel","Korsun M","Woman").

relation("predstavitel","Efremova M","Woman").

relation("predstavitel","Hicenko E","Woman").

relation("predstavitel","Gluhova M","Woman").

relation("predstavitel","1984","Year").

relation("predstavitel","1983","Year").

relation("Year","Kazygashev K","1983").

relation("Year","Tcarapkin V","1983").