Сбор информации. На ранних стадиях развития диагностических систем факты, описывающие проявление возникшей неисправности

На ранних стадиях развития диагностических систем факты, описывающие проявление возникшей неисправности, вводились вручную самим пользователем. Однако в силу своей субъективности такой метод имеет ряд серьезных недостатков:

· пользователь может забыть о существенных деталях или, наоборот, указать ввести избыточную информацию, что может помешать нормальной работе системы;

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

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

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

Пример. Функция ask-question

(deffunction ask-question (?question $?allowed-values)

(printout t?question)

(bind?answer (read))

(if (lexemep?answer)

then

(bind?answer (lowcase?answer)))

(while (not (member?answer?allowed-values)) do

(printout t?question)

(bind?answer (read))

(if (lexemep?answer)

then

(bind?answer (lowcase?answer))))

?answer

)

Функция содержит два аргумента: простую переменную question, которая содержит текст вопроса, и составную переменную allowed-values с набором допустимых ответов. Сразу после вызова функция выводит на экран соответствующий вопрос и читает ответ пользователя в переменную answer. Если переменная answer содержит текст, то он будет принудительно приведен к верхнему регистру. После этого функция проверяет, является ли полученный ответ одним из заданных корректных ответов. Если нет, то процесс повторится до получения корректного ответа, иначе функция вернет ответ, введенный пользователем.

Будет также очень полезно определить функцию, задающую пользователю вопрос и допускающий ответ в виде «да / нет», т. к. это один из самых распространенных типов вопросов.

Пример. Функция yes-or-no-p

(deffunction yes-or-no-p (?question)

(bind?response (ask-question?question yes no у n))

(if (or (eq?response yes) (eq?response y))

then

TRUE

else

FALSE)

)

Функция yes-or-no-p вызывает функцию ask-question с постоянным набором допустимых ответов: yes, no, у и n. В случае если пользователь ввел ответ yes или y, функция возвращает значение true, иначе – false. Обратите внимание, что поскольку функция yes-or-no-p использует функцию ask-question, то она должна быть определена после нее.

Дата добавления: 2014-12-29