AI-2009 Day 13 (Лекции 2009 года), страница 2
Описание файла
Файл "AI-2009 Day 13" внутри архива находится в папке "Лекции 2009 года". Документ из архива "Лекции 2009 года", который расположен в категории "". Всё это находится в предмете "искусственный интеллект" из 7 семестр, которые можно найти в файловом архиве МГУ им. Ломоносова. Не смотря на прямую связь этого архива с МГУ им. Ломоносова, его также можно найти и в других разделах. .
Онлайн просмотр документа "AI-2009 Day 13"
Текст 2 страницы из документа "AI-2009 Day 13"
(*ИМЯ имеет рыжевато-кор)
[if ([search1 (.ИМЯ имеет рыжевато-кор) (test ОТВ *ОТВ)])
(T [mprint .ИМЯ имеет рыжевато-коричневую окраску?]
[pset ОТВ [yes-no]]
[passert (.ИМЯ имеет рыжевато-кор) (with ОТВ .ОТВ)])]
[cond ([eq .ОТВ НЕТ] [fail])] )]
[define Полосы? (conseq (ИМЯ ОТВ)
(*ИМЯ имеет темные-полосы)
[if ([search1 (.ИМЯ имеет темные-полосы) (test ОТВ *ОТВ)])
(T [mprint .ИМЯ имеет темные полосы?]
[pset [yes-no]]
[passert (.ИМЯ имеет темные-полосы ) (with ОТВ .ОТВ)])]
[cond ([eq .ОТВ НЕТ] [fail])] )]
[define Хищник1? (conseq (ИМЯ ОБ)
(*ИМЯ - хищник)
[goal (.ИМЯ питается мясом)]
[pset ОБ ( ( (.ИМЯ - хищник) так как (питается мясом)))]
[passert (.ИМЯ - хищник) (with ОБСН .ОБ)] )]
[define Хищник2? (conseq (ИМЯ ОБ)
(*ИМЯ - хищник)
[goal (.ИМЯ имеет острокон-зубы)]
[goal (.ИМЯ имеет когти)]
[goal (.ИМЯ имеет глаза-спереди)]
[pset ОБ ( ( (.ИМЯ - хищник) так как (.ИМЯ имеет остроконечные зубы) (.ИМЯ имеет когти)
(.ИМЯ имеет глаза спереди)))]
[passert (.ИМЯ - хищник) (with ОБСН .ОБ)] )]
[define yes-no (lambda ( ) [read])]
[define output (lambda (x y z ) [prog ( ) [print .x] [print.y] [print .z]])]
[assert (Муся питается мясом)]
[assert (Муся - млекопитающее)]
[assert (Муся имеет темные-полосы) (with ОТВ ДА)]
[assert (Муся имеет рыжевато-кор) (with ОТВ ДА)]
15
Экспертные системы