Главная
страница 1

Искусственный интеллект – IV курс – День 13, лекция № 23 27.11.2012.


Реализация модельной экспертной системы на языке Плэнер
Модельная экспертная система решает задачу распознавания вида животного (тигр) на основе группы взаимосвязанных признаков:

Система работает с базой данных, в которой хранятся утверждения следующих типов:


(<имя> = <вид>) → ОБСН: <обоснование> ( )

(<имя> - <класс>) → ОБСН: <обоснование> ( )

(<имя> имеет <свойство>) → ОТВ: ДА НЕТ

(<имя> питается <пища>)


Для определения вида животного используется аппарат теорем. Часть информации, необходимой для решения задачи представлена в виде утверждений базы данных, часть запрашивается у пользователя. В списках свойств утверждений представлены ответы пользователя и обоснование решения системы.

[define main (lambda ( )

[prog (ОТВ ИМЯ КЛАСС ОБ)

[while T


[print ‘Работает эксперт по распознаванию животных‘]

[print ‘У Вас есть задача на распознавание?‘]

[pset ОТВ [yes-no]]

[cond ([eq .ОТВ НЕТ] [exit main main])]

[print ‘Введите имя распознаваемого объекта‘]

[pset ИМЯ [read]]

[if ([perm [goal (.ИМЯ = *КЛАСС)]]

[pset ОБ [geta (.ИМЯ = *КЛАСС) ОБСН]]

[output .ИМЯ .КЛАСС .ОБ] )

(T [mprint Кем является .ИМЯ я не знаю ])]

[cleardb] ] ])]
[define Тигр? (conseq (ИМЯ ОБ ОБ1 ОБ2)

(*ИМЯ = ТИГР)

[goal (.ИМЯ - млекопитающее)]

[goal (.ИМЯ - хищник)]

[goal (.ИМЯ имеет рыжевато-кор) (test ОТВ ДА)]

[goal (.ИМЯ имеет темные-полосы) (test ОТВ ДА)]

[pset ОБ1 [geta (.ИМЯ - млекопитающее) ОБСН]]

[pset ОБ2 [geta (.ИМЯ - хищник) ОБСН]]

[pset ОБ ( ( (.ИМЯ = ТИГР) так как (.ИМЯ – млекопитающее)

(.ИМЯ – хищник) (.ИМЯ имеет рыжевато-коричневую окраску)

(.ИМЯ имеет темные полосы)) !.ОБ1 !.ОБ2)]

[passert (.ИМЯ = ТИГР) (with ОБСН .ОБ)] )]


[define Окраска? (conseq (ИМЯ ОТВ)

(*ИМЯ имеет рыжевато-кор)

[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 ОТВ ДА)]





Экспертные системы


Смотрите также:
Лекция №23 27. 11. 2012. Реализация модельной экспертной системы на языке Плэнер Модельная экспертная система решает задачу распознавания вида животного ( тигр ) на основе группы взаимосвязанных признаков
31.63kb.
1 стр.
Структурное распознавание изображений на основе моделей голосования признаков характерных точек
174.61kb.
1 стр.
Лекция Введение в криптографию
112.74kb.
1 стр.
Программная система распознавания автомобильных номеров на основе библиотеки opencv
22.37kb.
1 стр.
Контрольная работа №1 Проведен эксперимент. X 1 2 3 Y
48.5kb.
1 стр.
Знание признаков и навыки распознавания и употребления в речи
139.26kb.
1 стр.
I живые животные; продукты животного происхождения примечания
223.89kb.
1 стр.
Реализация подсистемы распознавания в арм эксперта-криминалиста при помощи субд
68.71kb.
1 стр.
Задание заочной школы «Юный филолог» для 10-го класса Консультация Лексика
141.99kb.
1 стр.
Лекция 12. Анализаторы. Органы чувств
106.6kb.
1 стр.
Curriculum Vitae Персональная Информация
43.15kb.
1 стр.
Лекция Язык как система Система языка и ее свойства
65.9kb.
1 стр.