Методы представления знаний на семантических сетях, страница 2

relation("имеет год рождения",Person,Birthday).

% Определение прочитанной книги

person_book(Person,Book) :relation("персона",Person,"Семья"),

relation("персона",Book,"Книга"),

relation("Прочитал",Person,Book).

% Семантическая сеть

relation("вид","мужчина","персона").

relation("вид","женщина","персона").

relation("персона","Черкасов","мужчина").

relation("персона","Азанов","мужчина").

relation("персона","Шкурихин","мужчина").

relation("персона","Шкурихин_сын","мужчина").

relation("персона","Черкасова","женщина").

relation("персона","Азанова","женщина").

relation("персона","Азанова_дочь","женщина").

relation("персона","Шкурихина","женщина").

relation("персона","1956","год").

relation("персона","1961","год").

relation("персона","1982","год").

relation("персона","1965","год").

relation("персона","1968","год").

relation("персона","1958","год").

relation("персона","1989","год").

relation("персона","семьяЧ","семья").

relation("персона","семьяА","семья").

relation("персона","семьяШ","семья").

relation("персона","Маленький Мук","книга").

relation("персона","Донцова","книга").

relation("персона","Анна Каренина","книга").

relation("персона","Филосовские сказки","книга").

relation("персона","Гари Потер 1","книга").

relation("персона","Гари Потер 2","книга").

relation("персона","Гари Потер 3","книга").

relation("персона","Акунин","книга").

relation("персона","Маринина","книга").

relation("имеет год рождения","Черкасов","1956").

relation("имеет год рождения","Черкасова","1961").

relation("имеет год рождения","Азанов","1958").

relation("имеет год рождения","Азанова","1961").

relation("имеет год рождения","Азанова_дочь","1982").

relation("имеет год рождения","Шкурихин","1965").

relation("имеет год рождения","Шкурихина","1968").

relation("имеет год рождения","Шкурихин_сын","1989").

relation("персона","Черкасов","семьяЧ").

relation("персона","Черкасова","семьяЧ").

relation("персона","Азанов","семьяА").

relation("персона","Азанова","семьяА").

relation("персона","Азанова_дочь","семьяА").

relation("персона","Шкурихин","семьяШ").

relation("персона","Шкурихин","семьяШ").

relation("персона","Шкурихин","семьяШ").

relation("прочитала","семьяЧ","Маленький Мук").

relation("прочитала","семьяЧ","Акунин").

relation("прочитала","семьяА","Акунин").

relation("прочитала","семьяА","Маринина").

relation("прочитала","семьяА","Филосовские сказки").

relation("прочитала","семьяШ","Гари Потер 1").

relation("прочитала","семьяШ","Гари Потер 2").

relation("прочитала","семьяШ","Гари Потер 3").

relation("прочитала","семьяШ","Донцова").