", 3, 10, 19, 60, 1, -1,
"\218\191\192\217\196\179"), menu.
clauses
/*Вывод меню на экран*/
menu:- clearwindow,("1 - создать"),nl,("2 - загрузить"),nl,
write("3 - добавить запись"),nl,
write("4 - найти запись"),nl,
write("5 - удалить запись"),nl,
write("6 - сохранить"),nl,("7 - выход"), nl, readchar(N), reaction(N).
/*Реакция программы на выбор пункта меню*/
reaction('1'):-deldb, menu.('2'):-clearwindow, write("Введите имя файла"), readln(Fname),(Fname), menu.('3'):-typerec(N), addquation3(N), dely, menu.('4'):-clearwindow, typerec(N), findquation4(N), menu.('5'):-clearwindow, typerec(N), retquation4(N), dely, menu.('6'):-write("Enter filename"), readln(Fname), save(Fname), menu.('7').(_):-write("Введите число 1-6"), dely, menu.
/*Удаление всей информации из базы*/
deldb:-retract(dstudent (_,_,_)), fail.:-retract(dexam(_,_,_)), fail..
/*Выбор типа записи (таблицы БД)*/
typerec(N):-clearwindow, write("1 - информация о студентах"), nl,
write("2 - результаты сдачи экзаменов"), nl, readchar(N).
/*Ввод и добавление новой записи*/
addquation3('1'):-clearwindow,write("Введите шифр студента"), nl, readln(Code),("Введите ФИО студента"),nl, readln(Name),("Введите факультет"),nl, readln(D),(dstudent(Code,Name,D)), write("Запись добавлена"),nl.('2'):-clearwindow, write("Введите шифр студента "),nl, readln(Code),("Enter course"), nl, readln(Course),("Enter mark"), nl, readint(Mark),(dexam(Code,Course,Mark)), write("Запись добавлена ").3(_):- write("Ошибка!").
/*Уточнение задания на поиск информации*/
findquation4('1'):-clearwindow, write("1 - искать запись по шифру"),nl,("2 - искать запись по имени"),nl, readint(N), find(N),dely.
findquation4('2'):-clearwindow, write("1 - искать запись по шифру "),nl,("2 - искать запись по наименованию дисциплины "),nl,
readint(N), N2=N+2, find(N2), dely.
/*Уточнение задания на поиск информации */
find(1):-clearwindow, write("Введите шифр "), readln(Code),(Code,Name,D), write("Студент "), write(Name), nl,("обучается на факультете "), write(D).
find(1):-write("Такой записи в базе нет").
find(2):-clearwindow, write("Введите имя студента "), readln(Name),(Name), findnameyes(Name).(2):-write("Такой записи в базе нет ").(3):-clearwindow, write("Введите шифр студента "), readln(Code),(Code,Name,D), write("Студент "), write(Name), nl,(" факультета"), write(D),nl, findexam(Code,_,_).(3):-write("Такой записи в базе нет ").
find(4):-clearwindow, write("Введите наименование дисциплины"),
readln(Course),("Введите оценку. Для поиска по всем оценкам введите 0 "),
readint(Mark), find4(Course,Mark).
/*Поиск информации о сдаче экзаменов */
find4(Course,0):-findexam(_,Course,_).(Course,Mark):-findexam(_,Course, Mark).
/*Поиск записей по имени студента*/
findname(Name):-dstudent(Code, Name, D),write("Шифр студента "),(Code),nl,("Факультет "), write(D), dely, fail.(_).
findnameyes(Name):-dstudent(_,Name,_).
/*Поиск информации о сдаче экзаменов*/
findexam(Code,Course,Mark):-dexam(Code,Course,Mark),("Шифр"), write(Code), write(" "),(Course), write(" "), write(Mark), nl, fail.(_,_,_).
/*Определение и удаление строки из БД*/
retquation4('1'):-write("Введите шифр студента"), nl, readln(Code),
write("Введите имя"), nl, readln(Name),("Введите название факультета"), nl, readln(D),
retract(dstudent(Code,Name,D)), write("Запись удалена"),nl.('2'):-write("Введите шифр студента "),nl, readln(Code),("Введите название дисциплины"), nl, readln(Course),(dexam(Code,Course,_)),("Запись удалена"),nl.4(_):-write("Такой записи в базе нет"),nl.
/*Приостановка работы программы до нажатия любой клавиши*/
dely:-nl, nl, nl, write("Нажмите любую клавишу"), nl, readchar(_).
/* Конец программы */
РАБОТА С БД НА ДИСКЕ
Общие правила работы с файлами на внешних носителях
В системе Турбо-Пролог имеются предикаты для работы с файлами в целом:
deletefile(<имя_файла>) - уничтожает файл <имя_файла>;(<имя_файла>) - сохраняет на диске утверждения динамической базы данных;
renamefile(<старое_имя_файла>,<новое_имя_файла>) - переименование файла;
existfile(<имя_файла>) - тест на наличие файла с данным именем. Предикат успешен в случае, если файл с именем, заданным аргументом <имя_файла>, присутствует в директории;(<файловая_переменная>) - предикат сбрасывает содержимое внутреннего буфера, отведенного для данного устройства записи.
disk(<путь>) - выбор дисковода и пути доступа: если параметр <путь> является константой или переменной, которой присвоен корректный путь доступа, то заданный с его помощью каталог становится текущим. Если же переменная <путь> не означена, то данный предикат присваивает ей путь доступа к текущей директории.
dir(<путь>,<шаблон>,<имя_файла>) - выдача списка файлов каталога. Переменной <путь> должен быть присвоен корректный путь доступа, текстовая переменная <шаблон> задает шаблон группы файлов, представляющей интерес. Данный предикат выдает каталог имен файлов подходящих под заданный шаблон; вы можете выбрать среди них нужный и нажать Enter. Имя файла будет присвоено переменной <имя_файла>.
Так, в приведенном выше примере программы работы с БД в оперативной памяти правило reaction(6) сохранения БД в файле на диске можно заменить (добавив соответствующие описания) следующей группой правил.
reaction('6'):-savedb,nl,menu.
.................................................:- write("Введите имя файла"), readln(Fname), rwrite(Fname).(""):- disk(Dir),dir(Dir,"*.dba",Fname1),save(Fname1).(Fname):- existfile(Fname), write("Файл с таким именем уже существует. Перезаписать (y/n)?"), nl, readchar(Yes), rwr(Yes, Fname).(Fname):- not(existfile(Fname)), save(Fname).('y',Fname):-save(Fname).('n',_):- write("Enter new filename"), readln(Fname1),(Fname1).('Y',Fname):-rwr('y',Fname).('N',Fname):-rwr('n',Fname).
Здесь правило rwrite предназначено для определения имени файла, и сохранения в нем данных из базы. При этом если введено имя уже существующего файла, будет выдан запрос о перезаписи с уничтожением прежней информации (предикат rwr), а если имя файла введено не было, программа предоставит возможность выбора имени из списка (предикат dir).
Кроме того, перед созданием новой БД было бы неплохо вывести запрос о сохранении уже имеющихся результатов. Для чего reaction(1) заменяем следующей правил.
reaction('1'):- write("Сохранить изменения (y/n)?"),
readchar(Yes), nl, savequation1(Yes), nl, deldb,.('n').('N').('y'):-savequation1('Y').('Y'):-savedb.(_):-write("Нажмите, пожалуйста, y или n"),(Yes), nl, savequation1(Yes).
Здесь предикат savequation1 задает реакцию на ответ пользователя на запрос о сохранении имеющихся данных. Очевидно, что такой запрос можно включить и в правило reaction(2) перед загрузкой новой БД и в правило reaction(7) перед окончанием работы программы.
reaction('2'):- disk(Dir),dir(Dir,"*.dba",Fname),, write("Сохранить изменения (y/n)?"),
readchar(Yes),nl, savequation1(Yes), nl,(Fname), menu.('7'):- write("Сохранить изменения (y/n)?"),(Yes), nl, savequation1(Yes),nl.
Помимо перечисленных предикатов Турбо-Пролог также поддерживает предикаты чтения информации из файла, записи в файл, модификации файла и тому подобные. Однако для того чтобы использовать в программе такие предикаты, необходимо ее снабдить описанием файлового домена.
Описание файлового домена
Описание одного файлового домена с именем datafile выглядит как= datafile
Это описание отличается от привычного описания типа= symbol,
где name является именем домена, а symbol - стандартным типом доменов Турбо-Пролога.
. При описании файловых доменов, стандартный тип домена file задается по левую сторону от знака равенства, а имя домена datafile - по правую.
. datafile, хоть и описывается как домен, но используется в программе (при записи правил) как символическое имя файла, то есть идентификатор, который в программе может быть логически отождествлен с любым DOS файлом. Это символическое имя называют также логическим именем файла.
В описании file можно указывать несколько символических имен, но само описание должно быть единственным. Если в программе вводится несколько символических имен файлов, то они разделяются между собой точкой с запятой (;). Например,
file = datafile1; datafile2; datafile3
Это объявление декларирует три символических имени для последующего их отождествления с реальными DOS файлами.
Операции чтения-записи в файл
Запись в файл
Перед тем, как начать писать что-либо в файл, нужно создать его. В Турбо-Прологе файлы создаются при помощи предиката openwrite. При этом, указатель файла помещается в его начало. Синтаксис:
openwrite(<символическое имя файла>, <имя_DOS_файла>).
Например
openwrite(datafile1,"file1.dat"),
где datafile1 есть введенный пользователем файловый домен, а file1.dat - физическое имя файла на диске. Предикат устанавливает связь между объектами datafile1 и file1.dat. Теперь ссылки на datafile1 будут означать обращение к file1.dat. Связь остается в силе вплоть до закрытия файла.
Заметим, что если файл с именем file1.dat к моменту вызова предиката openwrite уже присутствовал в директории, то его содержимое будет утрачено. Для того, чтобы застраховаться от этой неприятности, можно сначала проверить наличие файла при помощи предиката
existfile("file1.dat")
и принять соответствующие меры, если existfile будет успешен.
Чтобы использовать стандартные предикаты write или writef для вывода информации в файл, необходимо назначить этот файл в качестве устройства записи:
writedevice(<символическое имя файла>).
Например
writedevice(datafile1), write(Эти три строки будут записаны в файл file1.dat), nl, write(Это вторая строка), nl, write(А это - третья ).
Дозапись в конец уже существующего файла
Для того чтобы записать новые данные в конец уже существующего файла, необходимо открыть этот файл предикатом openappend. Когда файл открывается для дозаписи, указатель файла устанавливается в его конец.
openappend(<символическое имя файла>, <имя_DOS_файла>).
Например,(datafile2,"file2.dat")
Дальнейшая работа (переадресация вывода, и вывод данных) аналогична работе с новым файлом.
Чтение из файла
Для чтения данных из файла требуется:
. Открыть файл при помощи предиката openread:
openread(<символическое имя файла>, <имя_DOS_файла>).
Пример:(datafile3,"file3.dat").
2. Назначить файл datafile3 устройством чтения:
readdevice(<символическое имя файла>).
Например,(datafile1).
. Ввести информацию из файла при помощи соответствующего предиката или правила (readint, readreal, readln и т.д.).
Модификация существующего файла
Турбо-Пролог позволяет открывать файлы для модификации, то есть для чтения и записи одновременно. Для этой цели служит предикат openmodify.
openmodify(<символическое имя файла>, <имя_DOS_файла>).
Пример(datafile1,"file4.dat")
Содержимое файла можно рассматривать как поток символов. Позиция каждого символа определяется его удаленностью от первого символа файла. Таким образом, первый символ в файле занимает нулевую позицию, второй - первую и т. д. Позицию, из которой будет прочитан или в которую будет записан очередной символ, определяет указатель.
Указатель файла может быть помещен в любую позицию. Файлы с такой организацией доступа к хранящейся в ней информации называются файлами прямого доступа, а операции выборки из такого файла - вводом-выводом из файла прямого доступа.
Когда файл открывается для записи или модификации, указатель помещается в начало файла. Однако Турбо-Пролог позволяет смещать указатель при помощи предиката filepos.
filepos(<символическое_имя_файла>, <позиция_указателя>, <тип_смещения>).
Параметру <позиция_указателя> здесь должно быть присвоено действительное число, обозначающее позицию в файле, из которой будет считан или в которую будет записан символ (дробная часть числа отбрасывается).
Параметру <тип_смещения> может быть присвоено одно из трех значений: 0, 1 или 2. Эти значения определяют то, как будет интерпретировано значение <позиция_указателя>. В табл. 1 пояснено употребление каждого допустимого значения параметра <тип_смещения>.
база данные файл диск
Таблица 1
Режимы работы предиката filepos
Тип смещенияДействия системы0Смещение берется относительно начала файла1Смещение берется относительно текущей позиции2Смещение берется относительно конца файла
Рассмотрим, для примера, такое употребление предиката filepos:(datafile1,100,0).
В этом выражении datafile1 есть имя логического файла. Параметр <позиция_указателя> имеет значение 100, что указывает на то, что будет прочитан символ, стоящий в 100-й позиции (101-й символ). Значение 0 параметра <тип_смещения> свидетельствует о том, что сотая позиция будет отсчитываться от начала файла.
Если в этой записи 0 заменить на 1,
filepos(datafile1,100,1),
то отсчет будет вестись уже относительно текущей позиции указателя. Если данный предикат будет успешен, то указатель сдвинется еще на 100 позиций вперед.
Закрытие файла
Этой цели служит предикат
closefile(<символическое имя файла>).
Например,(datafile1).
Когда файл закрыт, операции чтения или записи для него недопустимы. Закрытие файла также защищает содержимое файла от каких бы то ни было манипуляций, так как теперь возможны лишь операции с файлом в целом.
Еще одним следствием закрытия файла является перевод указателя файла в начало. Это может понадобиться при повторном открытии файла.
Переадресация ввода-вывода
Встроенный предикат Турбо-Пролога readdevice позволяет переадресовать логическое устройство ввода. Аналогично встроенный предикат writedevice осуществляет переадресацию устройства вывода информации.
Так предикат(myfile)
настраивает устройство ввода на файл myfile, а предикат(yourfile)
настраивает устройство вывода на файл yourfile.
Для настройки ввода и вывода на стандартные устройства в Турбо-Прологе используются стандартные имена screen, keyboard, printer. Например, правило_lines :- writedevice(screen), write(" Первая строка "),, writedevice(printer),(" Первая строка"),nl,
flush(printer), writedevice(screen).
выводит строку " Первая строка " на экран монитора, а затем эту же строку выводит на принтер. Стандартный предикат flush здесь используется для того, чтобы строка была выведена из буфера сразу на принтер.
Другие полезные предикаты
Предикат eof производит проверку на достижение конца файла
eof(<символическое_имя_файла>)
Для автоматизации процесса открытия различных файлов бывает полезно использования операций конкатенации строковых переменных, для чего в Турбо-Прологе используют стандартный предикат concat:
concat(<строка1>,<строка2>, <новая_строка>).
Особенности работы с БД, хранящими данные в файлах на диске
СУБД, хранящие данные на диске (нерезидентные), являются более жизнеспособными. Так как объем внешней памяти существенно больше объема памяти оперативной, системы такого класса пригодны для большинства практических задач.
Турбо-Пролог располагает всеми средствами, необходимыми для поддержания таких значительных по объему информации БД.
Предикаты нерезидентной БД объявляются в разделе программы database так же, как и предикаты резидентной.
database(symbol,symbol,symbol)- test(symbol,symbol,integer)_stud(dbasedom)
Add_exam(test)
Для работы с записями любой БД можно использовать свои предикаты. И в качестве аргумента такого предиката может быть и запись БД. Тогда доменом этого аргумента при описании предиката необходимо указывать имя БД. Например, для добавления записей в нерезидентную БД можно использовать следующие правила.
Add_stud(Term):-Write(Ведите шифр), readln(Code),
Write(Ведите имя), readln(Name),(Ведите факультет ),(Dep),=stud(Code,Name,Dep),(Term), Asserta(Term)._exam(Term):-Write(Ведите Шифр), readln(Code),(Ведите название дисциплины),
Readln(Course),
Write(Ведите оценку), readln(Mark),=exam(Code,Course,Mark),(Term), Asserta(Term).
Здесь правило Add_stud позволяет ввести запись (переменная Term) и добавить ее в резидентную БД dbasedom. А правило Add_exam вводит запись и добавляет одну запись в базу test.
Корме того, для чтения из файла объектов, относящихся к определенному в программе домену, используется специальный предикат readterm. Синтаксис этого предиката
readterm(<имя домена >,< значение объектов домена>).
Рассмотрим, к примеру, предикатное выражение
readterm(test,Term)
Здесь, предикат успешен, если с установленного устройства ввода была прочитана строка, совпадающая по синтаксису с записью БД test. Например, exam("99-291","Информатика",3). Тогда переменная Term получает значение этой записи. То есть, предикат Term=exam(99-291,inf,3) истинен.
Рассмотрим другой пример
readterm(test, exam(Code,Course,Mark))
Предикат успешен также, если с установленного устройства ввода была прочитана строка, совпадающая по синтаксису с записью БД test, но этот предикат уже определяет значения полей записи, то есть переменная Code получает значение "99-291", переменная Course - значение "Информатика", а переменная Mark -3.
РАЗРАБОТКА ЭКПЕРТНЫХ СИСТЕМ
Разработка экспертных систем (ЭС) является наиболее плодотворной быстро развивающейся областью применения Пролога. Очень важно понимать, как работают экспертные системы, так как они могут использоваться, фактически, в любой области знаний.
Экспертная система - это компьютерная программа, которая в некоторой области проявляет степень познаний равнозначную степени познания человека-эксперта. Обычно эта область строго ограничена. Однако, количество приложений огромно. Сюда входят понимание речи, анализ изображений, прогноз погоды, оценка будущего урожая, медицинская диагностика, разработка интегральных схем, финансирование, управление воздушным движением, управление боем и т.д.
Структура экспертных систем
Чтобы проводить экспертизу, компьютерная программа должна быть способна решать задачи посредством логического вывода и получать при этом достаточно надежные результаты. Программа должна иметь доступ к системе фактов, называемой базой знаний. Программа также должна во время консультации выводить заключения из информации, имеющейся в базе знаний. Некоторые экспертные системы могут также использовать новую информацию, добавляемую во время консультации. Экспертную систему, таким образом, можно представлять состоящей из трех частей:
1.База знаний (БЗ).
2.Механизм вывода (МВ).
.Система пользовательского интерфейса (СПИ).
База знаний - центральная часть экспертной системы. Она содержит правила, описывающие отношения или явления, методы и знания для решения задач из области применения системы. Можно представлять базу знаний состоящей из фактических знаний и знаний, которые используются для вывода других знаний. Утверждение "Джон Ф. Кеннеди был 35-м президентом Соединенных Штатов" - пример фактического знания. "Если у вас болит голова, то примите две таблетки цитрамона" - пример знания для вывода. Сама база знаний обычно располагается на диске или другом носителе.
Механизм вывода содержит принципы и правила работы. Механизм вывода "знает", как использовать базу знаний так, чтобы можно было получать разумно согласующиеся заключения (выводы) из информации, находящейся в ней.
Когда экспертной системе задается вопрос, механизм вывода выбирает способ применения правил базы знаний для решения задачи, поставленной в вопросе. Фактически, механизм вывода запускает экспертную систему в работу, определяя какие правила нужно вызвать и организуя к ним доступ в базу знаний. Механизм вывода выполняет правила, определяет, когда найдено приемлемое решение и передает результаты программе интерфейса с пользователем. Когда вопрос должен быть предварительно обработан, то доступ к базе знаний осуществляется через интерфейс с пользователем.
Интерфейс - это часть экспертной системы, которая взаимодействует с пользователем. Как правило, пользователи мало знают об организации базы знаний, поэтому интерфейс может помочь им работать с экспертной системой даже, если они не знают, как она организована. Интерфейс может также объяснить пользователю, каким образом экспертная система выводит результат.
В настоящем издании мы ограничимся лишь организацией БЗ и управлением стратегией вывода. Для чего рассмотрим два примера реализации ЭС средствами Турбо-пролога: ЭС, построенную на правилах, и ЭС, построенную на логике.
Экспертная система на правилах
Во всех экспертных системах существует зависимость между входным потоком данных и данными в базе знаний. Во время консультации входные данные сопоставляются с данными в базе знаний. Результатом сопоставления является отрицательный или утвердительный ответ.
В системе, базирующейся на правилах, утвердительный результат является действием одного из продукционных правил. Эти продукционные правила определяются входными данными.
Экспертная система также содержит интерпретатор в механизме вывода. Работу этого интерпретатора можно описать последовательностью трех шагов: интерпретатор сопоставляет образец правила с элементами данных в базе знаний; если можно вызвать более одного правила, то интерпретатор использует механизм разрешения конфликта для выбора правила; интерпретатор применяет выбранное правило, чтобы найти ответ на вопрос. Этот процесс интерпретации является циклическим и называется циклом "распознавание-действие".
Рассмотрим в качестве примера экспертной системы на правилах систему для идентификации пород собак. Она помогает потенциальному хозяину выбрать породу собаки в соответствии с определенными критериями.
Предположим, что пользователь сообщил множество характеристик собаки в ответ на вопросы экспертной системы. Интерпретатор работает в цикле распознавание-действие. Если характеристики, заданные пользователем, сопоставимы с характеристиками породы собаки, составляющими часть базы знаний, тогда вызывается соответствующее продукционное правило и в результате идентифицируется порода. Затем результат сообщается пользователю. Если порода не идентифицирована, это тоже сообщается пользователю.
Рассмотрим две породы собак, информация о которых содержится в базе знаний. Гончая имеет короткую шерсть, высоту в холке меньше 57 см длинные уши и хороший характер. Датский дог имеет короткую шерсть, низко посаженный хвост, длинные уши, хороший характер и вес более 45 кг.
Из этого описания видно, что обе породы имеют короткую шерсть, длинные уши и хороший характер. Рост гончей меньше 57 см в то время, как ничего не сказано о росте дога. Дог имеет низко посаженный хвост и вес более 45 кг - характеристики отсутствующие для гончей. Описание двух собак в терминах указанных характеристик достаточно, чтобы различить эти две породы, и даже отличить их от любой другой породы в базе знаний.
Следующие продукционные правила могут быть составлены по указанным характеристикам:
dog_is("Гончая"):- it_is("короткоерстная собака"),
positive("ее","высота в холке не более 57 см"),
positive("у нее","длинные уши"),
positive("у нее","дружелюбный характер"), !.
dog_is("Great Dane"):- it_is("длинношерстная собака"),("у нее","низко посаженный хвост"),
positive("у нее","длинные уши"),
positive("у нее","дружелюбный характер"),
positive("ее","вес более 45 кг"), !.
Заметим, что в правилах длина шерсти может быть представлена с помощью предиката positive в виде:
positive("у нее","короткая шерсть").
Но использование предиката it_is позволяет ограничить "пространство поиска" (количество данных, проверяемых при поиске решения) одним поддеревом древовидной структуры , содержащей информацию о разных породах собак.
Экспертная система, базирующаяся на правилах, позволяет проектировщику строить правила, которые естественным образом объединяют в группы связанные фрагменты знаний. Каждое продукционное правило может быть независимым от других. Эта независимость делает базу продукционных правил семантически модульной, т.е. группы информации не влияют друг на друга. Более того, модульность базы правил позволяет развивать базу знаний, увеличивая ее.
ЛИСТИНГ
/* Программа: эксперт по породам собак */
/* Это продукционная система, базирующаяся на правилах*/
database(symbol,symbol)(symbol,symbol)_expert_job_consulting(symbol,symbol)_is(symbol)_is(symbol)(symbol,symbol)(symbol,symbol)(symbol,symbol,symbol)_facts_expert_job .
/* Систесма пользовательского интерфейса */
do_expert_job :- makewindow(1, 7, 7, "ЭКСПЕРТ ПО ПОРОДАМ СОБАК, 1, 16, 22, 58),
nl,write(" * * * * * * * * * * * * * * * * * * * * * "),
nl,write(" ДОБРО ПОЖАЛОВАТЬ! "),nl,nl,
nl,write(" Проводится идентификация породы "),nl,nl,
nl,write(" Отвечайте, пожалуйста, 'да' или 'нет' "),
nl,write(" а вопросы о собаке, породу которой "),
nl,write(" Вы хотите определить "),
nl,write(" * * * * * * * * * * * * * * * * * * * * * * "),,nl,do_consulting,write("Нажмите любую клавишу"),, readchar(_), removewindow._consulting :- dog_is(X), !, nl, write("Вероятно Ваша собака - ",X,"."),,clear_facts._consulting :- nl, write("Извините, я не смогу помочь Вам!"),
clear_facts.(X,Y) :- write(" ?:- ",X, " ",Y, " ? "), readln(Reply),(X,Y,Reply).
/* Механизм вывода */(X,Y) :- xpositive(X,Y),!.(X,Y) :- not(negative(X,Y)),!,ask(X,Y).(X,Y) :- xnegative(X,Y),!.(X,Y,yes) :- asserta(xpositive(X,Y)).(X,Y,no) :- asserta(xnegative(X,Y)),fail._facts :- retract(xpositive(_,_)), fail._facts :- retract(xnegative(_,_)), fail.
/* Продукционные правила */
dog_is("Английский Бульдог") :- it_is("короткошерстная собака"),
positive("ее","высота в холке не более 57 см"),
positive("у нее","низко посаженный хвост"),
positive("у нее","дружелюбный характер"),!.
dog_is("Гончая") :- it_is("короткошерстная собака"),
positive("ее","высота в холке не более 57 см"),
positive("у нее","длинные уши"),
positive("у нее","дружелюбный характер"),!.
dog_is("Немецкий Дог") :- it_is("короткошерстная собака"),
positive("у нее","низко посаженный хвост"),
positive("у нее","дружелюбный характер"),
positive("ее","вес более 45 кг"),!.
dog_is("Американский Фоксхаунд") :- it_is("короткошерстная собака"),
positive("ее","высота в холке не более 77 см"),
positive("у нее","длинные уши"),
positive("у нее","дружелюбный характер"),!.
dog_is("Кокер Спаниель") :- it_is("длинношерстная собака"),
positive("ее","высота в холке не более 57 см"),
positive("у нее","низко посаженный хвост"),
positive("у нее","длинные уши"),
positive("у нее","дружелюбный характер"),!.
dog_is("Ирландский Сеттер") :- it_is("длинношерстная собака"),
positive("ее","высота в холке не более 77 см"),
positive("у нее","длинные уши"),!.
dog_is("Колли") :- it_is("длинношерстная собака"),
positive("ее","высота в холке не более 77 см"),
positive("у нее","низко посаженный хвост"),
positive("у нее","дружелюбный характер"),!.
dog_is("Сенбернар") :- it_is("длинношерстная собака"),
positive("у нее","низко посаженный хвост"),
positive("у нее","дружелюбный характер"),
positive("ее","вес более 45 кг"),!.
it_is("короткошерстная собака ") :-
positive("это","короткошерстная собака "),!.
it_is("длинношерстная собака ") :-
positive("это","длинношерстная собака "),!.
Экспертные системы, базирующиеся на фактах
В экспертных системах, базирующихся на фактах, база знаний состоит из утверждений в виде предложений логики предикатов. Такие предложения могут группироваться, образуя БД Турбо-Пролога. Правила могут либо описывать данные, либо управлять процессом внутренней унификации Турбо-Пролога.
Так же как и в системе на правилах экспертная система, базирующаяся на фактах, имеет множество правил, которые могут вызываться с помощью данных из входного потока. Система имеет также интерпретатор, который может выбирать и активизировать модули, включаемые в работу системы.
Интерпретатор выполняет различные функции внутри системы на основе следующей схемы:
1.Система имеет предложения в базе знаний, которые управляют поиском и сопоставлением. Интерпретатор сопоставляет эти предложения с элементами данных в базе данных.
2.Если может быть вызвано более одного правила, то система использует возможности Турбо-Пролога для разрешения конфликта. Следовательно, пользователю/программисту не нужно рассматривать потенциально возможные конфликты.
.Система получает результаты унификационного процесса автоматически, поэтому они могут направляться на нужное устройство вывода информации.
Так же как и в системе, базирующейся на правилах, данный циклический процесс является процессом распознавание-действие. Красота и большие возможности системы, основанной на фактах, заключаются в том, что она отражает структуру самого Турбо-Пролога. Этим объясняется тот факт, что она очень эффективна в работе.
Наиболее важным аспектом для базы знаний в системе, основанной на фактах, является проектирование базы знаний, ее утверждений и их структуры. База знаний должна иметь недвусмысленную логическую организацию, и она должна содержать минимум избыточной информации. Так же как и в системе, базирующейся на правилах, минимально достаточное количество данных образуют наиболее эффективную систему. Утверждения базы знаний для гончей и дога выглядят так:
rule(1,"Собака","Гончая",[1,2,3,4]).
rule(2,"Собака","Немецкий Дог",[1,5,3,4,6]).
cond(1,"короткошерстная").
cond(2,"высота в холке не более 57 см").
cond(3,"длинные уши").
cond(4,"дружелюбный характер").
cond(5,"низко посаженный хвост").
cond(6,"вес более 45 кг").
Заметьте, что в каждом предложении типа rule первый аргумент - номер правила, второй аргумент - тип объекта ("собака") и третий аргумент - порода собаки. В нашем случае это гончая или дог. Список целых чисел задает номера условий из предложений типа cond (условие). Предложения типа cond содержат все характеристики для любой породы, представленной в базе знаний.
Списки номеров условий служат для хранения множества фактов, согласно которым выбираются предложения типа rule. Интерпретатор в экспертной системе, базирующейся на логике, использует эти номера условий, чтобы делать соответствующий выбор.
Добавление и обновление предложений базы знаний являются простыми операциями (предикаты retract и assert). Экспертные системы, базирующиеся на фактах, легко проектировать, развивать и поддерживать в Турбо-Прологе, так как по мере расширения базы знаний программа не требует модификации. Расширение, прежде всего, заключается в постепенном добавлении новых утверждений.
ЛИСТИНГ
/* Программа: Эксперт по породам собак */
/* Пример экспертной системы, базирующейся на логике */
domains= integer *= integer *
/* Предикаты базы данных*/(integer, symbol,symbol, conditions)(integer, symbol)(integer)(integer)
predicates
/* Предикаты системы пользовательского интерфейса */
do_expert_job_consulting(symbol)
/* Предикаты механизма вывода*/(history, symbol)(integer, history, conditions)(history, integer, integer, symbol)_answer(history, integer, symbol,integer, integer)_expert_job.
/* База знаний (БЗ)*/(1,"Собака", "Короткошерстная собака", [1]).
rule(2,"Собака", "Длинношерстная собака ", [2]).
rule(3,"Короткошерстная собака","Английский бульдог",[3,5,7]).
rule(4,"Короткошерстная собака","Гончая", [3,6,7]).
rule(5,"Короткошерстная собака","Немецкий Дог", [5,6,7,8]).
rule(6,"Короткошерстная собака","Американский фоксхаунд",
[4,6,7]).
rule(7,"Длинношерстная собака ", "Кокер спаниель", [3,5,6,7]).
rule(8,"Длинношерстная собака ", "Ирландский Сеттер", [4,6]).
rule(9, "Длинношерстная собака ", "Колли", [4,5,7]).
rule(10, "Длинношерстная собака ", "Сенбернар", [5,7,8]).
cond(1,"Короткошерстная").
cond(2,"Длинношерстная").
cond(3,"Высота в холке не более 57 см").
cond(4,"Высота в холке не более 77 см ").
cond(5,"Низко посаженный хвост").
cond(6,"Длинные уши").
cond(7,"Дружелюбный характер").
cond(8,"Вес более 45 кг").
/* Система пользовательского интерфейса*/
do_expert_job :-
makewindow(1,7,7,"ЭКСПЕРТ ПО ПОРОДАМ СОБАК", 0, 0, 25, 80),
do_consulting, nl, nl, nl, nl, write("Нажмите любую клавишу"),(_), exit._consulting :-goes(Mygoal),go([],Mygoal),!._consulting :-nl, write("Извините, я не смогу Вам помочь") ,clear.
do_consulting.(Mygoal) :- clear,clearwindow, nl, nl,nl,nl,("ДОБРО ПОЖАЛОВАТЬ"),nl, nl, nl,
write("Проводится идентификация породы"),nl,
write("Для того, чтобы начать процесс идентификации,"),nl,
write("введите слово 'Собака'. "), nl, nl, readln(Mygoal),!.
inpo(HISTORY,RNO,BNO,TEXT) :-write("?:- ",TEXT," ? "),
makewindow(2,7,7,"Для ответа на вопрос",10,54,7,35),
write("введите 1, если Ваш ответ 'да' ,"),
write("введите 2, если Ваш ответ 'нет' ,"),
write("введите 0, для выхода из системы"),nl,
readint(RESPONSE),,shiftwindow(1),_answer(HISTORY,RNO,TEXT,BNO,RESPONSE).
/*Механизм вывода*/(HISTORY, Mygoal) :-rule(RNO,Mygoal,NY,COND),(RNO,HISTORY,COND),!,([RNO|HISTORY],NY).(_,Mygoal) :-not(rule(_,Mygoal,_,_)),!,,write("Вероятно Ваша собака - ",Mygoal,"."), nl, nl, nl.(RNO,HISTORY,[BNO|REST]) :-
yes(BNO),!,check(RNO,HISTORY,REST).(_,_,[BNO|_]) :- no(BNO),!,fail.(RNO,HISTORY,[BNO|REST]) :-cond(BNO,TEXT),(HISTORY,RNO,BNO,TEXT),(RNO,HISTORY,REST).(_,_,[])._answer(_,_,_,_,0):- exit._answer(_,_,_,BNO,1) :-assert(yes(BNO)),write(yes),nl._answer(_,_,_,BNO,2) :-assert(no(BNO)),write(no),nl,fail.:- retract(yes(_)),retract(no(_)),fail,!..
/*Конец программы*/
Выбор типа ЭС
Программы для выбора породы собаки, приведенные выше, используются для иллюстрации методов построения системы, базирующейся на правилах, и системы, базирующейся на фактах. Таким образом, есть возможность сравнить два различных подхода при работе с одними и теми же данными и сделать некоторые важные выводы.
Итак, если экспертная система, которую Вы хотите сделать, в конечном счете может содержать сотни продукционных правил, то трудно определить эффект от добавления дополнительных правил. В Турбо-Прологе продукционные правила помещаются в программу, и, следовательно, размеры программы увеличиваются по мере добавления правил. Размеры памяти, в конце концов, ограничивают число правил. В этом случае использование системы на правилах становится проблематичным. В то же время, в системе, базирующейся на логике, где база знаний может находиться в файле на диске, ограничения на размеры базы знаний не накладываются. Поэтому система, основанная на логике, в этом случае предпочтительнее.
Если же Ваша экспертная система будет содержать не более нескольких сотен правил, использование системы, базирующейся на правилах более предпочтительно. В силу того, что продукционные правила почти не зависят друг от друга, создание и тестирование такой экспертной системы проще. Просто осуществляется и изменение правил с целью изучить эффект, вызванный таким изменением. В системах же, базирующихся на фактах, изменение параметров внутри базы знаний должно производится с большей осторожностью, так как изменения менее заметны, а результат может быть разрушительным и восстановление затруднительным.
Если быстрота является главным требованием к разрабатываемой экспертной системе, то можно выбрать либо систему на фактах, полностью находящуюся в оперативной памяти, либо систему, базирующуюся на правилах. Обе будут работать хорошо. Если, однако, экспертная система должна содержать большую базу знаний, то у разработчика имеется единственный вариант - система на фактах, находящаяся на диске.
1.Для чего служит и что содержит секция database?
2.Какое имя получает БД по умолчанию.
3.Перечислить достоинства и недостатки использования резидентных БД.
.Перечислить достоинства и недостатки использования нерезидентных БД.
5.Для чего предназначены и как выполняются стандартные предикаты asserta, assertz, retract, save, consult, readterm, findall.
6.Опишите работу стандартного предиката dir. Приведите примеры.
.Для каких целей используется стандартный предикат disk? Приведите примеры его использования.
8.Как в Прологе описываются файлы.
9.Привести стандартные предикаты для работы с резидентными БД.
10.Для чего предназначены и как выполняются стандартные предикаты openread, openwrite, openappend, openmodify, readdevice, writedevice, closefile.
ПРАКТИЧЕСКИЕ ЗАДАНИЯ
Написать Пролог-программу, реализующую основные функции работы с резидентной и нерезидентной БД в предметной области, соответствующей варианту задачи.
1.Личная библиотека. Картотека домашней библиотеки: выходные данные книги (авторы, название, издательство и так далее), раздел библиотеки (специальная литература, хобби, домашнее хозяйство, беллетристика и так далее), происхождение и наличие книги в данный момент, субъективная оценка книги. Выбор книг по произвольному запросу; инвентаризация библиотеки.
2.Касса аэрофлота. Расписание: номер рейса, маршрут, пункты промежуточной посадки, время отправления, дни полета. Количество свободных мест на каждом рейсе. Выбор ближайшего рейса до заданного пункта (при наличии свободных мест), оформление заданного числа билетов по согласованию с пассажиром (с уменьшением числа свободных мест), оформление посадочной ведомости.
3.Магазин с одним продавцом. Компьютер вместо кассового аппарата. База наличия товаров: наименование, единица измерения, цена единицы, количество, дата последнего завоза. Регистрация поступления товара (как старых, так и новых наименований). Оформление покупки: выписка чека, корректировка базы. Проблема уценки и списания. Инвентаризация остатков товара с вычислением суммарной стоимости.
4.Отдел кадров. База данных о сотрудниках фирмы: паспортные данные, образование, специальность, подразделение, должность, оклад, даты поступления в фирму и последнего назначения и т. д. Выбор по произвольному шаблону. Сокращение штатов: выбор для увольнения лиц пенсионного и предпенсионного возраста, подготовка приказа.
5.Склад, База товаров, хранящихся на складе: наименование, единица измерения, цена единицы, количество, дата последнего завоза. Регистрация поступления товара (формирование приходной накладной) и отгрузки (расходная накладная). Вывод инвентарной ведомости.
6.Администратор гостиницы. Список номеров: класс, число мест. Список гостей: паспортные данные, даты приезда и отъезда, номер. Поселение гостей: выбор подходящего номера (при наличии свободных мест), регистрация, оформление квитанции. Отъезд: выбор всех постояльцев, отъезжающих сегодня, освобождение места или оформление задержки с выпиской дополнительной квитанции. Поиск гостя по произвольному признаку.
7.Справочник меломана. База групп и исполнителей; база песен; база дисков с перечнем песен (в виде ссылок). Выбор всех песен заданной группы; всех дисков, где встречается заданная песня.
8.Ежедневник. База намечаемых мероприятий - дата, время и протяженность, место проведения. Автоматическое напоминание ближайшего дела: по текущей дате и времени; удаление вчерашних дел либо перенос на будущее. Анализ «накладок» - пересечений планируемых дел. Просмотр дел на завтра, послезавтра и так далее.