Приводимая ниже программа также является упрощенным вариан-
том одного из звеньев интерфейса на естественном языке, позво-
ляющая анализировать простейшие предложения английского языка.
Ввод предложений осуществляется с клавиатуры правилом
reguest_a_sentence. Анализ предложения начинается с правила
analyze_sentence. Правило toklist из входной строки формирует
список слов. Правило sentex выполняет построение построение
модели предложения, выделяя именную группу глагола (правила
nphrase и vphraze). Программа включает также правила, органи-
зующие интерфейс с пользователем. Текст программы EX4.PRO при-
водится ниже.
#M
domains
Tklist = String *
Sentence = sentence(Noun_phrase, Verb_phrase)
Noun_phrase = noun_phrase(Determiner, String,
Relative_clause)
Relative_clause = nil ; relcl(String, Verb_phrase)
Determiner = nil ; determ(String)
Verb_phrase = verb(String) ; verbp(String,
Noun_phrase)
database
noun(string)
verb(string)
dete(string)
rela(string)
include "tdoms.pro"
include "tpreds.pro"
include "menu.pro"
predicates
toklist(String, Tklist)
match(String)
nphrase(Tklist, Tklist, Noun_phrase)
determiner(Tklist, Tklist, Determiner)
sentex(Tklist, Tklist, Sentence)
relclause(Tklist, Tklist, Relative_clause)
vphrase(Tklist, Tklist, Verb_phrase)
do_dcg
analyse_it
request_a_sentence
analyse_sentence(string)
print_list(Tklist)
process(integer)
goal
do_dcg.
clauses
do_dcg :-
makewindow(1,7,7,"",0,0,25,80),
makewindow(2,7,7," Основное окно ",1,0,22,39),
menu(5,5,$13,$13,[" Анализ предложения "," Выход из программы "],
"АНАЛИЗ ПРЕДЛОЖЕНИЙ",1,Choice),
process(Choice),
do_dcg.
process(1) :- analyse_it.
process(2) :- exit.
analyse_it :-
makewindow(3,$0B,$07," Анализ предложений ",2,4,23,72),
nl, write("Эта программа выполняет анализ"),nl,
write("предложения согласно контекстно-"),nl,
write("свободной грамматике"), nl,
nl, write(" "),
write("ПРЕДЛОЖЕНИЕ = ИМЕННАЯ_ГРУППА + ГРУППА_ГЛАГОЛА"),
request_a_sentence.
analyse_it :- removewindow.
request_a_sentence :-
makewindow(4,$1A,$1E," Окно диалога ",2,40,4,38),
nl, write("Введите предложение:"),
nl, readln(Line),
analyse_sentence(Line), !,
request_a_sentence.
analyse_sentence(Line) :-
makewindow(5,$1A,$1E," Окно результата ",9,2,16,70),
toklist(Line, Tklist),
sentex(Tklist,_,Sent_model),
write(" Исходное предложение: \n",Line), nl, nl,
write(" Список слов :"), nl,
print_list(Tklist),nl,
write(" Модель предложения:"), nl,
write(Sent_model).
analyse_sentence(_).
print_list([]).
print_list([Head|Tail]) :-
write(" ",Head), nl,
print_list(Tail).
toklist(Str,[Token|Tklist]) :-
fronttoken(Str, Token, Str1),
match(Token),!,
toklist(Str1, Tklist).
toklist(_,[]).
match(W) :- noun(W),!. match(W) :- dete(W),!.
match(W) :- rela(W),!. match(W) :- verb(W),!.
match(W) :- write(W," - не определено."),
nl, write(" Нажмите клавишу пробела."),
readchar(_).
sentex(Tklist, Tklist2, sentence(Noun_phrase,
Verb_phrase)) :-
nphrase(Tklist, Tklist1, Noun_phrase),
vphrase(Tklist1, Tklist2, Verb_phrase), !.
sentex(_,_,_) :-
write(" Предложение не может быть разобрано."),
nl, fail.
nphrase(Tklist, Tklist2,
noun_phrase(Determiner, Noun,
Relative_clause) ) :-
determiner(Tklist, [Noun|Tklist1], Determiner),
noun(Noun),
relclause(Tklist1, Tklist2, Relative_clause).
determiner([Determiner|Tklist], Tklist,
determ(Determiner)) :-
dete(Determiner).
determiner(Tklist, Tklist, nil).
relclause([Relative|Tklist], Tklist1,
relcl(Relative, Verb_phrase)) :-
rela(Relative),
vphrase(Tklist, Tklist1, Verb_phrase).
relclause(Tklist, Tklist, nil).
vphrase([Verb|Tklist], Tklist1, verbp(Verb,
Noun_phrase)) :-
verb(Verb),
nphrase(Tklist, Tklist1, Noun_phrase).
vphrase([Verb|Tklist], Tklist, verb(Verb)) :-
verb(Verb).
noun("Lana"). noun("Tom"). noun("cat"). noun("dog").
dete("a"). dete("an"). rela("that"). rela("who").
verb("loves"). verb("hates"). verb("likes").
verb("sleeps"). verb("dislikes"). verb("scares"). #P
Следующая программа выполняет аналогичные функции, но
имеет более развитый интерфейс и дополнительные возможности.
Программа SEN_AN по результату анализа производит построение
диаграммы структуры предложения. Предложение вводится в режиме
диалога и должно соответствовать следующей БНФ_записи:
<предложение>::=<именная группа><группа><глагола>,
где
#M
<именная группа>::=<определение><существительное><
<определение>::=<>:<определение>
<относительное предложение>:=<>:<относительное местоимение><группа глагола>
<группа глагола>::=<глагол>:<именная группа> #P
Взаимодействие с программой осуществляется через главное
меню, содержащее следующие пункты:
Анализ предложения
Загрузка базы данных
Очистка файла базы данных
Просмотр/коррекция языка
Сохранение базы в файле
Редактирование файла базы данных
Информация о системе
ДОС (временный выход)
Выход
Работу необходимо начинать с загрузки базы данных из
файла в оперативную память (пункт меню "загрузка базы данных"),
после чего можно переходить к анализу предложения (первый пункт
меню). Однако перед вводом предложения рекомендуется ознакомит-
ся с содержимым БД через пункт меню "Просмотр /коррекция языка".
Здесь же можно дополнить БД недостающими элементами. Для сохра-
нения дополнений текущего сеанса работы во внешнем файле БД
следует выполнить пункт меню "Сохранение базы в файле".
После ввода предложения и нажатия клавиши программа
производит построение диаграммы структуры предложения на экране
дисплея. В нижней строке окна дается конструкция предложения в
термах Пролога. В случае неправильного ввода информации на
экране должно появиться сообщение:
>>Неизвестное слово: <слово>.
Для коррекции исходного предложения рекомендуется пользоваться
клавишей F8.
Кроме того, программа представляет дополнительные возмож-
ности: очистка БД (удаление всех старых фактов), просмотр и ре-
дактирование файла БД непосредственно на диске, получение спра-
вочной информации о программе, временный выход в ДОС.
Для перемещения по главному меню программы можно пользо-
ваться как клавишами курсора, так и клавишами, соответствующими
первым буквам пунктов меню. Следует, однако, помнить, что кла-
виатура должна в это время находиться на русском регистре |
Главная
Каталог файлов
