Навигация
Главная
Поиск
Форум
FAQ's
Ссылки
Карта сайта
Чат программистов

Статьи
-Delphi
-C/C++
-Turbo Pascal
-Assembler
-Java/JS
-PHP
-Perl
-DHTML
-Prolog
-GPSS
-Сайтостроительство
-CMS: PHP Fusion
-Инвестирование

Файлы
-Для программистов
-Компонеты для Delphi
-Исходники на Delphi
-Исходники на C/C++
-Книги по Delphi
-Книги по С/С++
-Книги по JAVA/JS
-Книги по Basic/VB/.NET
-Книги по PHP/MySQL
-Книги по Assembler
-PHP Fusion MOD'ы
-by Kest
Professional Download System
Реклама
Услуги

Автоматическое добавление статей на сайты на Wordpress, Joomla, DLE
Заказать продвижение сайта
Программа для рисования блок-схем
Инженерный калькулятор онлайн
Таблица сложения онлайн
Популярные статьи
OpenGL и Delphi... 65535
Форум на вашем ... 65535
HACK F.A.Q 65535
Бип из системно... 65535
Гостевая книга ... 65535
Invision Power ... 65535
Пример работы с... 65535
Содержание сайт... 65535
ТЕХНОЛОГИИ ДОСТ... 65535
Организация зап... 65535
Вызов хранимых ... 65535
Создание отчето... 65535
Программируемая... 65535
Эмулятор микроп... 65535
Подключение Mic... 65535
Создание потоко... 65535
Приложение «Про... 65535
Оператор выбора... 65535
Модуль Forms 65535
Имитационное мо... 60528
Реклама
Сейчас на сайте
Гостей: 8
На сайте нет зарегистрированных пользователей

Пользователей: 13,117
новичок: Asit
Новости
Реклама
Выполняем курсовые и лабораторные по разным языкам программирования
Подробнее - курсовые и лабораторные на заказ
Delphi, Turbo Pascal, Assembler, C, C++, C#, Visual Basic, Java, GPSS, Prolog, 3D MAX, Компас 3D
Заказать программу для Windows Mobile, Symbian

Моделирование процесса обработки заданий на вычислительном центре на GP...
Лабораторная работа по динамическим спискам на Turbo Pascal (удаление ду...
Расчет размера дохода на одного человека в Turbo Pascal

Реклама



Подписывайся на YouTube канал о программировании, что бы не пропустить новые видео!

ПОДПИСЫВАЙСЯ на канал о программировании
ПОСТРОЕНИЕ ЭКСПЕРТНЫХ СИСТЕМ НА ТУРБО ПРОЛОГЕ. Экспертная система, базирующаяся на правилах
Следующая программа (EXPERT 1. PRO) представляет собой
простейший пример в виде ЭС выбора породы собаки. Перед началом
написания ЭС следует определить структуру области приложения и
соответствующей ей базы знаний. Упрощенный вариант подобной
структуры для пород собак приведен на рис.2.

В ЭС будут использоваться следующие характеристики: длины
шерсти, рост, размер хвоста, размер ушей, вес, характер. Мно-
жество характеристик для каждой породы могут определять ее поло-
жение в древовидной структуре базы знаний.
Полный текст программы с поясняющими комментариями приво-
дится ниже.

/* Программа EXPERT1.PRO */
#M
database
xpositive(symbol,symbol)
xnegative(symbol,symbol)
predicates
do_expert_job
do_consulting
ask(symbol,symbol)
dog_is(symbol)
it_is(symbol)
positive(symbol,symbol)
negative(symbol,symbol)
remember(symbol,symbol,symbol)
clear_facts
goal
do_expert_job.
clauses
/*-------- Предикаты системы пользовательского интерфейса -------*/
do_expert_job :-
makewindow(1,$1A,$31,"ЭКСПЕРТНАЯ СИСТЕМА",1,16,22,58),
write("\t * * * * * * * * * * * * * * * * * * * *"),nl,
write("\t ОПРЕДЕЛЕНИЕ ПОРОДЫ СОБАКИ"),nl,nl,
write("\t Программа позволяет выбрать собаку"),nl,
write("\t интересующей Вас породы. На вопросы"),nl,
write("\t системы отвечайте 'да' или 'нет'."),nl,
write("\t * * * * * * * * * * * * * * * * * * * *"),
nl,nl,
do_consulting,
write("Нажмите пробел ..."),nl,
readchar(_),
removewindow,
exit.
do_consulting :-
dog_is(X),!,nl,
write(" Вам нужна собака породы ",X,"."),nl,
save("reply.dba"),
clear_facts.
do_consulting :-
nl,write(" Извините, я не могу вам помочь. В базе данных"),
nl,write(" нет породы, удовлетворяющей Вашим требованиям."),
save("reply.dba"),
clear_facts.
ask(X,Y) :-
write(" - ",X," она ",Y,"? "),
readln(Reply),
remember(X,Y,Reply).
/* МЕХАНИЗМ ВЫВОДА */
positive(X,Y) :-
xpositive(X,Y),!.
positive(X,Y) :-
not(negative(X,Y)),!,
ask(X,Y).
negative(X,Y) :-
xnegative(X,Y),!.
remember(X,Y,"да") :-
asserta(xpositive(X,Y)).
remember(X,Y,"нет") :-
asserta(xnegative(X,Y)),
fail.
clear_facts :-
retract(xpositive(_,_)),
fail.
clear_facts :-
retract(xnegative(_,_)),
fail.
include "dogs.rul" % ПРОДУКЦИОННЫЕ ПРАВИЛА #P
Для работы программы необходима база знаний, состоящая из правил,
хранимых в файле DOGS.RUL:
#M
CLAUSES
dog_is("АНГЛИЙСКИЙ БУЛЬДОГ") :-
it_is("короткошерстная порода"),
positive("имеет","рост менее 50 см"),
positive("имеет","короткий хвост"),
positive("имеет","добродушный характер"),!.
dog_is("ГОНЧАЯ") :-
it_is("короткошерстная порода"),
positive("имеет","рост менее 50 см"),
positive("имеет","длинные уши"),
positive("имеет","добродушный характер"),!.
dog_is("ДАТСКИЙ ДОГ") :-
it_is("короткошерстная порода"),
positive("имеет","короткий хвост"),
positive("имеет","добродушный характер"),
positive("имеет","вес более 50 кг"),!.
dog_is("ФОКСХАУНД") :-
it_is("короткошерстная порода"),
positive("имеет","рост менее 70 см"),
positive("имеет","длинные уши"),
positive("имеет","добродушный характер"),!.
dog_is("КОККЕР-СПАНИЭЛЬ") :-
it_is("длинношерстная порода"),
positive("имеет","рост менее 50 см"),
positive("имеет","короткий хвост"),
positive("имеет","длинные уши"),
positive("имеет","добродушный характер"),!.
dog_is("ИРЛАНДСКИЙ СЕТТЕР") :-
it_is("длинношерстная порода"),
positive("имеет","рост менее 70 см"),
positive("имеет","длинные уши"),!.
dog_is("КОЛЛИ") :-
it_is("длинношерстная порода"),
positive("имеет","рост менее 70 см"),
positive("имеет","короткий хвост"),
positive("имеет","добродушный характер"),!.
dog_is("СЕНБЕРНАР") :-
it_is("длинношерстная порода"),
positive("имеет","длинные уши"),
positive("имеет","добродушный характер"),
positive("имеет","вес более 50 кг"),!.
it_is("короткошерстная порода") :-
positive("имеет","короткую шерсть"),!.
it_is("длинношерстная порода") :-
positive("имеет","длинную шерсть"),!. #P



Цель программы экспертной системы EXPERT1.PRO определяется через
предикат do_exprt_job. Предикаты ask и remember осуществляют вза-
имодействие с пользователем, принимая и занося информацию об от-
ветах в динамическую базу данных. Предикаты БД xpositive
и xnegative используются для хранения ответов пользователя. Во-
семь продукционных правил dog_is(по одному для каждой породы)
хранят статическую информацию ЭС. На первом уровне древовидной
структуры БЗ классификация осуществляется при помощи предиката
it_is. Остальные предикаты обновляют данные и отображают процесс
консультации на экране дисплея.
Опубликовал Kest Апрель 06 2009 00:42:50 · 4 Комментариев · 17520 Прочтений · Для печати

• Не нашли ответ на свой вопрос? Тогда задайте вопрос в комментариях или на форуме! •


Комментарии
Ни Май 24 2012 07:20:31
а в каком виде храниться информация в БД?
Kest Май 26 2012 16:20:00
текстом
Катерина Январь 04 2014 21:46:37
а в какой файл заносить весь этот код, в main.pro?
у меня visual prolog 7.3
Kest Январь 05 2014 21:19:48
а в какой файл заносить весь этот код, в main.pro?
у меня visual prolog 7.3

в turbo prolog
Добавить комментарий
Имя:



smiley smiley smiley smiley smiley smiley smiley smiley smiley
Запретить смайлики в комментариях

Введите проверочный код:* =
Рейтинги
Рейтинг доступен только для пользователей.

Пожалуйста, залогиньтесь или зарегистрируйтесь для голосования.

Нет данных для оценки.
Гость
Имя

Пароль



Вы не зарегистрированны?
Нажмите здесь для регистрации.

Забыли пароль?
Запросите новый здесь.
Поделиться ссылкой
Фолловь меня в Твиттере! • Смотрите канал о путешествияхКак приготовить мидии в тайланде?
Загрузки
Новые загрузки
iChat v.7.0 Final...
iComm v.6.1 - выв...
Visual Studio 200...
CodeGear RAD Stud...
Шаблон для новост...

Случайные загрузки
3D Тетрис [Исходн...
PHP 5 на примерах
Delphi 2005 Учимс...
Info
Работа с базами д...
Факториал [Исходн...
Matrix2D
Обучение Borland ...
Упорядоченный дин...
Учебник для продв...
Abbrevia
CABfiles
Globus VCL Extent...
Запрет гостям ск...
Error mod
База Allsubmitter...
Черный круг двига...
Создание Web-сайт...
Visual Studio 200...
RAS

Топ загрузок
Приложение Клие... 100530
Delphi 7 Enterp... 91894
Converter AMR<-... 20101
GPSS World Stud... 15392
Borland C++Buil... 13057
Borland Delphi ... 9153
Turbo Pascal fo... 7112
Калькулятор [Ис... 5193
Visual Studio 2... 5034
FreeSMS v1.3.1 3559
Случайные статьи
Процедура GetFillP...
Директивы компилят...
Проверьте режим пе...
Перегрузка операци...
Обсуждение итогов
Взаимодействие ком...
Поимей халявный Ин...
Малая вирусная энц...
Взаимодействие с п...
Base) 326Microsoft...
Другие команды
Блок try–finally
СВОЙСТВА
1.3.1. Объект Conn...
ПортисточникаАдрес...
Пример кода програ...
Использование аксе...
Как отлично провес...
Работаем с FTP на ...
Вариант For-Each ц...
Распределенные фай...
Создание потоков с...
Программы для созд...
Для каждого указат...
Совмещение имен в IDL
Статистика



Друзья сайта
Программы, игры


Полезно
В какую объединенную сеть входит классовая сеть? Суммирование маршрутов Занимают ли таблицы память маршрутизатора?