Разработка экспертной системы "Аналитический тест"
Ознакомление с методами разработки экспертных систем, предназначенных для обобщения, хранения, использования знаний и опыта, накопленного специалистами в конкретных предметных областях. Проектирование программы на языке Пролог, ее отладка и тестирование.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | курсовая работа |
| Язык | русский |
| Дата добавления | 12.05.2013 |
| Размер файла | 69,6 K |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
Размещено на http://www.allbest.ru/
Размещено на http://www.allbest.ru/
ПОЯСНИТЕЛЬНАЯ ЗАПИСКА К КУРСОВОЙ РАБОТЕ
Разработка экспертной системы «Аналитический тест»
Введение
В течение последнего десятилетия в рамках работ по искусственному интеллекту сформировалось самостоятельное направление - экспертные системы или инженерия знаний. В задачу этого направления входят исследование и разработка программ, использующих знания и процедуры решения задач, которые являются трудными для людей - экспертов. Области применения экспертных систем разнообразны: военные приложения, медицина, электроника, вычислительная техника, геология, математика, космос, сельское хозяйство, управление, финансы, бизнес, и т.д.
Экспертная система - это программа, которая использует принципы искусственного интеллекта и знания эксперта для обработки оперативной информации и принятия обоснованных решений в анализируемой области
По форме представления знания эксперта можно отнести к следующим общим категориям. Декларативные знания - это утверждения, которые могут быть истинными или ложными. Такие знания могут быть сохранены в стандартной базе данных. Некоторые знания являются алгоритмическими и поэтому могут быть представлены в виде блок-схемы. Такие знания могут быть выражены в виде подпрограммы на любом процедурном языке программирования.
Опыт по разработке интеллектуальных или экспертных систем показал, что эксперты обладают знаниями, которые не являются ни строго декларативными, ни строго алгоритмическими. Эти знания являются интуитивными и их наличие связано с опытом экспертов. Общими являются типичные знания, которые можно представить как строго декларативное или алгоритмическое знание. Опыт, с другой стороны, - это знание частных случаев и исключений из общего знания, который нельзя эффективно преподавать в классе или перечислить в книгах. Знание частных случаев, которое приобретается на опыте, - это только одна форма более широкого класса условного знания, которое является по существу трудно организуемым и поэтому его трудно изобразить схематически в виде, например, блок-схемы. Любая программа, в которой рассматривается большое количество условных логических выражений, может быть практически трудно реализуема.
Обычно к экспертным системам относят системы, основанные на знаниях. Знания можно подразделить на формализованные (универсальные знания - законы, модели, алгоритмы) и на неформализованные (эпирические, опыт, умение, интуиция).
Традиционное программирование в качестве основы для разработки программного обеспечения использует формализованное знание (алгоритм) и не подходит для решения неформализованных задач, к которым можно отнести следующие:
· алгоритмическое решение задачи неизвестно;
· задача не может быть определена в числовой форме;
· цели задачи не могут быть выражены в терминах точно определенной функции.
Как правило, такие задачи обладают неполнотой, ошибочностью, неоднозначностью и противоречивостью.
Экспертные системы не отвергают традиционного подхода к программированию, они предлагают технологию и методы решения неформализованных задач. Эти методы практически не зависят от типов решаемых задач.
1. Анализ требований и постановка задачи
OXFORD CAPACITY ANALYSIS TEST содержит 200 вопросов. На каждый вопрос есть 3 альтернативы ответов: «Да», «Нет», «Иногда, более - менее» (неуверенность), за каждую из которых присуждается определенное количество баллов.
Тест разделен на 10 подтестов по 20 вопросов - группы A, B, C, D, E, F, G, H, I, J. Группа A определяет стабильность, группа B - счастье и подавленность, группа С - спокойствие и нервозность, группа D - уверенность, группа E - активность, группа F - способность, группа G - ответственность, группа H - критичность, объективность, группа I - открытость, замкнутость, группа J - уровень общения. Каждая группа, в свою очередь, делится на 4 подгруппы.
По результатам каждого подтеста на основании полученного результата определяется принадлежность к конкретной подгруппе какой-либо группы. Далее, на основании сочетания полученных результатов, делается вывод.
2. Проектирование
программа экспертный пролог
Одним из свойств экспертной системы является обеспечение естественного языка интерфейса с пользователем, поэтому представляется целесообразным представить альтернативы вариантов ответа как пункты меню.
Пользователь может пожелать повторить тест, если при предыдущем опросе он допустил ряд ошибок, поэтому необходимо системное меню, которое позволит пользователю самому решать, когда выйти из программы.
Признаки и правила из главной программы, чтобы было проще ориентироваться в ней, целесообразно вынести в отдельный файл.
Признаки записываются следующим образом: Conds (Признак, Значение_признака).
Правила же формируются так: Rules («Тест», Результат, Сочетание_признаков).
Предикаты Yes (№_вопроса, Баллы), No (№_вопроса, Баллы), M (№_вопроса, Баллы) определяют количество баллов, засчитываемое за тот или иной вариант ответа на вопрос №_вопроса.
Предикаты L1 (Список_вопросов),…, L10 (Список_вопросов) определяют номера вопросов по группам. А предикаты A1List (Список_баллов),…, A4List(List), В1List (Список_баллов),…, В4List(List),…, J1List (Список_баллов),…, J4List(List) определяют принадлежность к группе по количеству набранных баллов.
3. Кодирование
Кодирование осуществлено на языке Пролог. Результат кодирования приведен в приложении А.
Были использованы следующие домены:
Intgr = integer
List = Intgr* - списки вопросов и результатов.
Strng = string
SList = Strng* - списки признаков (сочетание результатов).
ROW, COL, ATTR = INTEGER
ROW, COL - позиция на экране
ATTR - атрибуты окна и рамки
4. Тестирование
Было проведено функциональное тестирование, которое показало, что программа работает устойчиво, без ошибок. Результаты тестирования приведены в приложении Б.
При тестировании при различных вариантах ответов на те или иные вопросы были получены соответствующие результаты. При отладке на монитор выводились количество набранных баллов, группа, принадлежность к которой была определена в программе, результаты, полученные на основании принадлежности к конкретным группам, а также результаты, полученные на основании сочетания различных групп. При сверении результатов работы программы с исходными результатами ошибок обнаружено не было.
В конечном варианте программы были оставлены лишь результаты, полученные на основании принадлежности к конкретным группам и результаты, полученные на основании сочетания различных групп.
Заключение
Язык Пролог прошел длинный путь развития (около 30 лет). За это время появилось значительное число его реализаций, причем наиболее распространенный Turbo Prolog доступен пользователям ПЭВМ. Существует мнение, что Пролог пропагандируется и используется преимущественно специалистами, решающими задачи из области искусственного интеллекта. Однако, как показывает опыт использования различных Пролог - систем, язык Пролог может успешно применяться для разработки сложных программных систем традиционного назначения. Он нашел применение в системах автоматизированного проектирования, системах символьных вычислений и др. Обработка текста на естественном языке также является интересным и перспективным направлением Пролога.
В данной курсовой работе была поставлена задача разработки и программной реализации аналитической экспертной системы.
В ходе решения задачи были разработаны различные доменные структуры и предикаты. Было произведено кодирование на языке программирования Пролог и функциональное тестирование, в ходе которого было выявлено, что программа решает задачу корректно и устойчиво работает на тестовом наборе данных.
Использованные источники
1. Братко И. Программирование на языке Пролог для искусственного интеллекта: Пер. с англ. - М.: Мир, 1990. - 560 с., ил.
2. Искусственный интеллект: в 3 кн. Кн. 1. Системы общения и экспертные системы: Справочник /Под ред. Э.В. Попова. - М.: Радио и связь, 1990. - 464 с., ил.
3. Лорьер Ж.-Л. Системы искусственного интеллекта: Пер. с франц. - М.: Мир, 1991. - 568 с., ил.
4. Стерлинг Л., Шапиро Э. Искусство программирования на языке Пролог. Пер. с англ. - М.: Мир, 1990. - 336 с., ил.
Приложение 1
Текст программы
Main.pro
code = 4556
include «Test.pro»
DOMAINS
ROW, COL, LEN, ATTR = INTEGER
STRINGLIST = STRING*
INTEGERLIST = INTEGER*
KEY = cr; esc; break; tab; btab; del; bdel; ctrlbdel; ins;
end; home; fkey(INTEGER); up; down; left; right;
ctrlleft; ctrlright; ctrlend; ctrlhome; pgup; pgdn;
ctrlpgup; ctrlpgdn; char(CHAR); otherspec
/* repeat */
PREDICATES
nondeterm repeat
CLAUSES
repeat.
repeat: - repeat.
/* различные предикаты */
PREDICATES
maxlen (STRINGLIST, COL, COL) /* длина самой длинной строки */
listlen (STRINGLIST, ROW) /* длина списка */
writelist (ROW, COL, STRINGLIST) /* вывод списка на экран (для меню) */
reverseattr (ATTR, ATTR) /* возврат обратных атрибутов */
min (ROW, ROW, ROW) min (COL, COL, COL)
min (LEN, LEN, LEN) min (INTEGER, INTEGER, INTEGER)
max (ROW, ROW, ROW) max (COL, COL, COL)
max (LEN, LEN, LEN) max (INTEGER, INTEGER, INTEGER)
CLAUSES
maxlen([H|T], MAX, MAX1):-
str_len (H, LENGTH),
LENGTH>MAX,!,
maxlen (T, LENGTH, MAX1).
maxlen([_|T], MAX, MAX1): - maxlen (T, MAX, MAX1).
maxlen([], LENGTH, LENGTH).
listlen([], 0).
listlen([_|T], N):-
listlen (T, X),
N=X+1.
writelist(_,_, []).
writelist (LI, ANTKOL, [H|T]):-
field_str (LI, 0, ANTKOL, H),
LI1=LI+1,
writelist (LI1, ANTKOL, T).
min (X, Y, X): - X<=Y,!.
min (_, X, X).
max (X, Y, X): - X>=Y,!.
max (_, X, X).
reverseattr (A1, A2):-
bitand (A1,$07, H11),
bitleft (H11,4, H12),
bitand (A1,$70, H21),
bitright (H21,4, H22),
bitand (A1,$08, H31),
A2=H12+H22+H31.
/* Выбор букв в списке строк */
/* Смотрим первую большую букву в строке */
/* это должна быть первая буква в строке, иначе
делаем ее большой */
PREDICATES
upc (CHAR, CHAR) /* заглавная буква */
lowc (CHAR, CHAR) /* прописная буква */
try_upper (CHAR, STRING)
tryfirstupper (CHAR, STRINGLIST, ROW, ROW)
tryfirstletter (CHAR, STRINGLIST, ROW, ROW)
tryletter (CHAR, STRINGLIST, ROW)
CLAUSES
upc (CHAR, CH):-
CHAR>='a', CHAR<='z',!,
char_int (CHAR, CI), CI1=CI-32, char_int (CH, CI1).
upc (CH, CH).
lowc (CHAR, CH):-
CHAR>='A', CHAR<='Z',!,
char_int (CHAR, CI), CI1=CI+32, char_int (CH, CI1).
lowc (CH, CH).
try_upper (CHAR, STRING):-
frontchar (STRING, CH,_),
CH>='A', CH<='Z',!,
CH=CHAR.
try_upper (CHAR, STRING):-
frontchar (STRING,_, REST),
try_upper (CHAR, REST).
tryfirstupper (CHAR, [W|_], N, N):-
try_upper (CHAR, W),!.
tryfirstupper (CHAR, [_|T], N1, N2):-
N3 = N1+1,
tryfirstupper (CHAR, T, N3, N2).
tryfirstletter (CHAR, [W|_], N, N):-
frontchar (W, CHAR,_),!.
tryfirstletter (CHAR, [_|T], N1, N2):-
N3 = N1+1,
tryfirstletter (CHAR, T, N3, N2).
tryletter (CHAR, LIST, SELECTION):-
upc (CHAR, CH), tryfirstupper (CH, LIST, 0, SELECTION),!.
tryletter (CHAR, LIST, SELECTION):-
lowc (CHAR, CH), tryfirstletter (CH, LIST, 0, SELECTION).
PREDICATES
adjustwindow (ROW, COL, ROW, COL, ROW, COL)
adjframe (ATTR, ROW, COL, ROW, COL)
CLAUSES
adjustwindow (LI, KOL, DLI, DKOL, ALI, AKOL):-
LI<25-DLI, KOL<80-DKOL,!, ALI=LI, AKOL=KOL.
adjustwindow (LI,_, DLI, DKOL, ALI, AKOL):-
LI<25-DLI,!, ALI=LI, AKOL=80-DKOL.
adjustwindow (_, KOL, DLI, DKOL, ALI, AKOL):-
KOL<80-DKOL,!, ALI=25-DLI, AKOL=KOL.
adjustwindow (_,_, DLI, DKOL, ALI, AKOL):-
ALI=25-DLI, AKOL=80-DKOL.
adjframe (0, R, C, R, C): - !.
adjframe (_, R1, C1, R2, C2): - R2=R1+2, C2=C1+2.
/* Readkey(KEY) - возвращает в KEY символ */
PREDICATES
readkey(KEY)
readkey1 (KEY, CHAR, INTEGER)
readkey2 (KEY, INTEGER)
CLAUSES
readkey(KEY): - readchar(T),
char_int (T, VAL),
readkey1 (KEY, T, VAL).
readkey1 (KEY,_, 0): - !, readchar(T), char_int (T, VAL), readkey2 (KEY, VAL).
readkey1 (cr,_, 13): - !.
readkey1 (esc,_, 27): - !.
readkey1 (break,_, 3): - !.
readkey1 (tab,_, 9): - !.
readkey1 (bdel,_, 8): - !.
readkey1 (ctrlbdel,_, 127): - !.
readkey1 (char(T), T,_).
readkey2 (btab, 15): - !.
readkey2 (del, 83): - !.
readkey2 (ins, 82): - !.
readkey2 (up, 72): - !.
readkey2 (down, 80): - !.
readkey2 (left, 75): - !.
readkey2 (right, 77): - !.
readkey2 (pgup, 73): - !.
readkey2 (pgdn, 81): - !.
readkey2 (end, 79): - !.
readkey2 (home, 71): - !.
readkey2 (ctrlleft, 115): - !.
readkey2 (ctrlright, 116): - !.
readkey2 (ctrlend, 117): - !.
readkey2 (ctrlpgdn, 118): - !.
readkey2 (ctrlhome, 119): - !.
readkey2 (ctrlpgup, 132): - !.
readkey2 (fkey(N), VAL): - VAL>58, VAL<70, N=VAL-58,!.
readkey2 (fkey(N), VAL): - VAL>=84, VAL<104, N=11+VAL-84,!.
readkey2 (otherspec,_).
/*
menu (ROW, COL, WATTR, FATTR, STRINGLIST, HEADER, STARTCHOICE, SELECTION)
ROW, COL - позиция на экране
WATTR, FATTR - определяют атрибуты окна и рамки
если FATTR=0 то рамки нет
STRINGLIST - список пунктов меню
HEADER - заголовок
STARTCHOICE - выбранный пункт меню.
Ex: menu (5,5,7,7, [this, is, a, test], «select word», 0, CHOICE)
*/
PREDICATES
menu (ROW, COL, ATTR, ATTR, STRINGLIST, STRING, INTEGER, INTEGER)
menuinit (ROW, COL, ATTR, ATTR, STRINGLIST, STRING, ROW, COL)
menu1 (SYMBOL, ROW, ATTR, STRINGLIST, ROW, COl, INTEGER)
menu2 (KEY, STRINGLIST, ROW, ROW, ROW, SYMBOL)
CLAUSES
menu (ROW, COL, WATTR, FATTR, LIST, HEADER, STARTCHOICE, CHOICE):-
menuinit (ROW, COL, WATTR, FATTR, LIST, HEADER, NOOFROW, LEN),
ST1=STARTCHOICE-1, max (0, ST1, ST2), MAX=NOOFROW-1, min (ST2, MAX, STARTROW),
menu1 (cont, STARTROW, WATTR, LIST, NOOFROW, LEN, CHOICE),
removewindow.
menuinit (ROW, COL, WATTR, FATTR, LIST, HEADER, NOOFROW, NOOFCOL):-
maxlen (LIST, 0, MAXNOOFCOL),
str_len (HEADER, HEADLEN),
HEADL1=HEADLEN+4,
max (HEADL1, MAXNOOFCOL, NOOFCOL),
listlen (LIST, LEN), LEN>0,
NOOFROW=LEN,
adjframe (FATTR, NOOFROW, NOOFCOL, HH1, HH2),
adjustwindow (ROW, COL, HH1, HH2, AROW, ACOL),
makewindow (81, WATTR, FATTR, HEADER, AROW, ACOL, HH1, HH2),
writelist (0, NOOFCOL, LIST).
menu1 (cont, ROW, ATTR, LIST, MAXROW, NOOFCOL, CHOICE): - !,
reverseattr (ATTR, REV),
field_attr (ROW, 0, NOOFCOL, REV),
cursor (ROW, 0),
readkey(KEY),
field_attr (ROW, 0, NOOFCOL, ATTR),
menu2 (KEY, LIST, MAXROW, ROW, NEXTROW, CONT),
menu1 (CONT, NEXTROW, ATTR, LIST, MAXROW, NOOFCOL, CHOICE).
menu1 (esc, ROW,_,_,_,_, CHOICE): - !, CHOICE=ROW+1.
menu1 (_, ROW, ATTR,_,_, NOOFCOL, CHOICE):-
CHOICE=ROW+1,
reverseattr (ATTR, REV),
field_attr (ROW, 0, NOOFCOL, REV).
menu2 (esc,_,_,_, - 1, esc): - !.
menu2 (fkey(10),_,_, ROW, ROW, stop): - !.
menu2 (char(C), LIST,_,_, CH, selection): - tryletter (C, LIST, CH),!.
menu2 (cr,_,_, ROW, CH, selection): - !, CH=ROW.
menu2 (up,_,_, ROW, NEXTROW, cont): - ROW>0,!, NEXTROW=ROW-1.
menu2 (down,_, MAXROW, ROW, NEXTROW, cont): - NEXTROW=ROW+1, NEXTROW<MAXROW,!.
menu2 (end,_, MAXROW,_, NEXT, cont): - !, NEXT=MAXROW-1.
menu2 (pgdn,_, MAXROW,_, NEXT, cont): - !, NEXT=MAXROW-1.
menu2 (home,_,_,_, 0, cont): - !.
menu2 (pgup,_,_,_, 0, cont): - !.
menu2 (_,_,_, ROW, ROW, cont).
DATABASE
qyes(Strng)
qno(Strng)
PREDICATES
Answer (integer, integer, integer)
PodTest (integer, List)
Ask(integer)
Process(integer)
run
Endwork(integer)
In (Intgr, List)
CWork(Strng)
Proverka(SList)
AGroup (integer, Strng)
BGroup (integer, Strng)
CGroup (integer, Strng)
DGroup (integer, Strng)
EGroup (integer, Strng)
FGroup (integer, Strng)
GGroup (integer, Strng)
HGroup (integer, Strng)
IGroup (integer, Strng)
JGroup (integer, Strng)
Job (Strng, Strng, Strng, Strng, Strng, Strng, Strng, Strng, Strng, Strng)
Clear
CLAUSES
AGroup (ResA, «A1»): - A1List(A1Lst), In (ResA, A1Lst).
AGroup (ResA, «A2»): - A2List(A2Lst), In (ResA, A2Lst).
AGroup (ResA, «A3»): - A3List(A3Lst), In (ResA, A3Lst).
AGroup (ResA, «A4»): - A4List(A4Lst), In (ResA, A4Lst).
BGroup (ResB, «B1»): - B1List(B1Lst), In (ResB, B1Lst).
BGroup (ResB, «B2»): - B2List(B2Lst), In (ResB, B2Lst).
BGroup (ResB, «B3»): - B3List(B3Lst), In (ResB, B3Lst).
BGroup (ResB, «B4»): - B4List(B4Lst), In (ResB, B4Lst).
CGroup (ResC, «C1»): - C1List(C1Lst), In (ResC, C1Lst).
CGroup (ResC, «C2»): - C2List(C2Lst), In (ResC, C2Lst).
CGroup (ResC, «C3»): - C3List(C3Lst), In (ResC, C3Lst).
CGroup (ResC, «C4»): - C4List(C4Lst), In (ResC, C4Lst).
DGroup (ResD, «D1»): - D1List(D1Lst), In (ResD, D1Lst).
DGroup (ResD, «D2»): - D2List(D2Lst), In (ResD, D2Lst).
DGroup (ResD, «D3»): - D3List(D3Lst), In (ResD, D3Lst).
DGroup (ResD, «D4»): - D4List(D4Lst), In (ResD, D4Lst).
EGroup (ResE, «E1»): - E1List(E1Lst), In (ResE, E1Lst).
EGroup (ResE, «E2»): - E2List(E2Lst), In (ResE, E2Lst).
EGroup (ResE, «E3»): - E3List(E3Lst), In (ResE, E3Lst).
EGroup (ResE, «E4»): - E4List(E4Lst), In (ResE, E4Lst).
FGroup (ResF, «F1»): - F1List(F1Lst), In (ResF, F1Lst).
FGroup (ResF, «F2»): - F2List(F2Lst), In (ResF, F2Lst).
FGroup (ResF, «F3»): - F3List(F3Lst), In (ResF, F3Lst).
FGroup (ResF, «F4»): - F4List(F4Lst), In (ResF, F4Lst).
GGroup (ResG, «G1»): - G1List(G1Lst), In (ResG, G1Lst).
GGroup (ResG, «G2»): - G2List(G2Lst), In (ResG, G2Lst).
GGroup (ResG, «G3»): - G3List(G3Lst), In (ResG, G3Lst).
GGroup (ResG, «G4»): - G4List(G4Lst), In (ResG, G4Lst).
HGroup (ResH, «H1»): - H1List(H1Lst), In (ResH, H1Lst).
HGroup (ResH, «H2»): - H2List(H2Lst), In (ResH, H2Lst).
HGroup (ResH, «H3»): - H3List(H3Lst), In (ResH, H3Lst).
HGroup (ResH, «H4»): - H4List(H4Lst), In (ResH, H4Lst).
IGroup (ResI, «I1»): - I1List(I1Lst), In (ResI, I1Lst).
IGroup (ResI, «I2»): - I2List(I2Lst), In (ResI, I2Lst).
IGroup (ResI, «I3»): - I3List(I3Lst), In (ResI, I3Lst).
IGroup (ResI, «I4»): - I4List(I4Lst), In (ResI, I4Lst).
JGroup (ResJ, «J1»): - J1List(J1Lst), In (ResJ, J1Lst).
JGroup (ResJ, «J2»): - J2List(J2Lst), In (ResJ, J2Lst).
JGroup (ResJ, «J3»): - J3List(J3Lst), In (ResJ, J3Lst).
JGroup (ResJ, «J4»): - J4List(J4Lst), In (ResJ, J4Lst).
In (GF, [GF|_]).
In (GF, [_|St]): - In (GF, St).
Ask(X): - QText (X, Txt), clearwindow, write (X,».», Txt).
Answer (QNum, 1, Bal): - Yes (QNum, Bal).
Answer (QNum, 2, Bal): - No (QNum, Bal).
Answer (QNum, 3, Bal): - M (QNum, Bal).
PodTest (Bals, [X]): - Ask(X), ROW = 20, COL = 62,
menu (ROW, COL, 27,27, [«да», «Нет», «иногда, более-менее»], "», 1, Resp),
Answer (X, Resp, Bals).
PodTest (Result, [X|Lst]): - Ask(X), ROW = 20, COL = 62,
menu (ROW, COL, 27,27, [«Да»,
«Нет»,
«Иногда (более-менее)»],
«», 1, Resp),
Answer (X, Resp, Bals), PodTest (Result1, Lst),
Result = Result1 + Bals.
Process(0): - exit.
Process(1): - Job (AR, BR, CR, DR, ER, FR, GR, HR, IR, JR),
Conds (AR, S1, S2), Conds (BR, S3, S4),
Conds (CR, S5, S6), Conds (DR, S7, S8),
Conds (ER, S9, S10), Conds (FR, S11, S12),
Conds (GR, S13, S14), Conds (HR, S15, S16),
Conds (IR, S17, S18), Conds (JR, S19, S20),
nl, write (S1, S2), nl, write (S3, S4),
readchar(_), clearwindow,
nl, write (S5, S6), nl, write (S7, S8),
readchar(_), clearwindow,
nl, write (S9, S10), nl, write (S11, S12),
readchar(_), clearwindow,
nl, write (S13, S14), nl, write (S15, S16),
readchar(_), clearwindow,
nl, write (S17, S18), nl, write (S19, S20),
readchar(_), clearwindow,
CWork («Тест»),!,
write («Для выхода нажмите любую клавишу.»),
readchar(_), clear.
Process(2).
Job (AIGr, BIGr, CIGr, DIGr, EIGr, FIGr, GIGr, HIGr, IIGr, JIGr):-
L1 (Lst1), PodTest (Res1, Lst1),
AGroup (Res1, AIGr),!,
asserta (qyes(AIGr)), Other (AIGr, X0, Y0, Z0),
assert (qno(X0)), assert (qno(Y0)), assert (qno(Z0)),
L2 (Lst2), PodTest (Res2, Lst2),
BGroup (Res2, BIGr),!,
assert (qyes(BIGr)), Other (BIGr, X1, Y1, Z1),
assert (qno(X1)), assert (qno(Y1)), assert (qno(Z1)),
L3 (Lst3), PodTest (Res3, Lst3),
CGroup (Res3, CIGr),!,
assert (qyes(CIGr)), Other (CIGr, X2, Y2, Z2),
assert (qno(X2)), assert (qno(Y2)), assert (qno(Z2)),
L4 (Lst4), PodTest (Res4, Lst4),
DGroup (Res4, DIGr),!,
assert (qyes(DIGr)), Other (DIGr, X3, Y3, Z3),
assert (qno(X3)), assert (qno(Y3)), assert (qno(Z3)),
L5 (Lst5), PodTest (Res5, Lst5),
EGroup (Res5, EIGr),!,
assert (qyes(EIGr)), Other (EIGr, X4, Y4, Z4),
assert (qno(X4)), assert (qno(Y4)), assert (qno(Z4)),
L6 (Lst6), PodTest (Res6, Lst6),
FGroup (Res6, FIGr),!,
assert (qyes(FIGr)), Other (FIGr, X5, Y5, Z5),
assert (qno(X5)), assert (qno(Y5)), assert (qno(Z5)),
L7 (Lst7), PodTest (Res7, Lst7),
GGroup (Res7, GIGr),!,
assert (qyes(GIGr)), Other (GIGr, X6, Y6, Z6),
assert (qno(X6)), assert (qno(Y6)), assert (qno(Z6)),
L8 (Lst8), PodTest (Res8, Lst8),
HGroup (Res8, HIGr),!,
assert (qyes(HIGr)), Other (HIGr, X7, Y7, Z7),
assert (qno(X7)), assert (qno(Y7)), assert (qno(Z7)),
L9 (Lst9), PodTest (Res9, Lst9),
IGroup (Res9, IIGr),!,
assert (qyes(IIGr)), Other (IIGr, X8, Y8, Z8),
assert (qno(X8)), assert (qno(Y8)), assert (qno(Z8)),
L10 (Lst10), PodTest (Res10, Lst10),
JGroup (Res10, JIGr),!,
assert (qyes(JIGr)), Other (JIGr, X9, Y9, Z9),
assert (qno(X9)), assert (qno(Y9)), assert (qno(Z9)).
run:-
repeat,
shiftwindow(1),
makewindow (2,27,30, "», 5,2,15,76),
menu (2,54,27,27,
[«Консультация»,
«Выход»], «ГЛАВНОЕ МЕНЮ», 1,
CHOICE),
Process(CHOICE),
Endwork(CHOICE),!.
Endwork(2):-
shiftwindow(1),
makewindow (22,7,0, "», 11,26,3,30),
makewindow (9,27,27, «Exit», 10,25,3,30),
write («Вы уверены? (д/н)»),
readchar(C), write(C),
C='д', exit.
CWork(KLNfr): - not (Rules(KLNfr,_,_,_)),
Rules (_, KLNfr, KLNfr1,_),
write (KLNfr, KLNfr1).
CWork(KLNfr): - Rules (KLNfr, Kf1,_, CNDLSF),
Proverka(CNDLSF),
CWork(Kf1).
CWork(_).
Proverka([ADSX|RSB]): - qyes(ADSX),!, Proverka(RSB).
Proverka([ADSX|_]): - qno(ADSX),!, fail.
Proverka([]).
Clear: - retract (qyes(_)), retract (qno(_)), fail,!.
Clear.
GOAL
makewindow (1,19,27, «Экспертная система», 0,0,25,80),
write (» OXFORD CAPACITY ANALYSIS TEST»),
write («\n Убедитесь в том, что понимаете вопрос. Прочтите его столько раз, сколько\nВам необходимо.»),
write («\n Пожалуйста, ответьте на каждый вопрос.»),
write («\n Не задерживайтесь слишком долго на одном вопросе. Ответьте на вопрос\nсразу же,»),
write (» как только Вы его поняли, и переходите к следующему вопросу.»),
write («\n Когда ответ будет разным, в зависимости от того, рассматриваете ли\n»),
write («Вы прошлое или настоящее, отвечайте по отношению к настоящему времени.»),
nl, nl,
write («Спасибо.\n\n\n\n\n\n\n\n\n\n\n\n\n (Нажмите любую клавишу для продолжения)»),
readchar(_), clearwindow,
run.
Test.pro
DOMAINS
Intgr = integer
List = Intgr*
Strng = string
SList = Strng*
PREDICATES
Other (Strng, Strng, Strng, Strng)
Conds (Strng, Strng, Strng)
Rules (Strng, Strng, Strng, SList)
%-
L1 (List)
L2 (List)
L3 (List)
L4 (List)
L5 (List)
L6 (List)
L7 (List)
L8 (List)
L9 (List)
L10 (List)
%-
A1List(List)
A2List(List)
A3List(List)
A4List(List)
B1List(List)
B2List(List)
B3List(List)
B4List(List)
C1List(List)
C2List(List)
C3List(List)
C4List(List)
D1List(List)
D2List(List)
D3List(List)
D4List(List)
E1List(List)
E2List(List)
E3List(List)
E4List(List)
F1List(List)
F2List(List)
F3List(List)
F4List(List)
G1List(List)
G2List(List)
G3List(List)
G4List(List)
H1List(List)
H2List(List)
H3List(List)
H4List(List)
I1List(List)
I2List(List)
I3List(List)
I4List(List)
J1List(List)
J2List(List)
J3List(List)
J4List(List)
%-
Yes (integer, integer)
No (integer, integer)
M (integer, integer)
QText (integer, string)
CLAUSES
Other («A1», «A2», «A3», «A4»).
Other («A2», «A1», «A3», «A4»).
Other («A3», «A1», «A2», «A4»).
Other («A4», «A1», «A2», «A3»).
Other («B1», «B2», «B3», «B4»).
Other («B2», «B1», «B3», «B4»).
Other («B3», «B1», «B2», «B4»).
Other («B4», «B1», «B2», «B3»).
Other («C1», «C2», «C3», «C4»).
Other («C2», «C1», «C3», «C4»).
Other («C3», «C1», «C2», «C4»).
Other («C4», «C1», «C2», «C3»).
Other («D1», «D2», «D3», «D4»).
Other («D2», «D1», «D3», «D4»).
Other («D3», «D1», «D2», «D4»).
Other («D4», «D1», «D2», «D3»).
Other («E1», «E2», «E3», «E4»).
Other («E2», «E1», «E3», «E4»).
Other («E3», «E1», «E2», «E4»).
Other («E4», «E1», «E2», «E3»).
Other («F1», «F2», «F3», «F4»).
Other («F2», «F1», «F3», «F4»).
Other («F3», «F1», «F2», «F4»).
Other («F4», «F1», «F2», «F3»).
Other («G1», «G2», «G3», «G4»).
Other («G2», «G1», «G3», «G4»).
Other («G3», «G1», «G2», «G4»).
Other («G4», «G1», «G2», «G3»).
Other («H1», «H2», «H3», «H4»).
Other («H2», «H1», «H3», «H4»).
Other («H3», «H1», «H2», «H4»).
Other («H4», «H1», «H2», «H3»).
Other («I1», «I2», «I3», «I4»).
Other («I2», «I1», «I3», «I4»).
Other («I3», «I1», «I2», «I4»).
Other («I4», «I1», «I2», «I3»).
Other («J1», «J2», «J3», «J4»).
Other («J2», «J1», «J3», «J4»).
Other («J3», «J1», «J2», «J4»).
Other («J4», «J1», «J2», «J3»).
%-
L1 ([1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20]).
L2 ([21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40]).
L3 ([41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60]).
L4 ([61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80]).
L5 ([81,82,83,84,85,86,87,88,89,90,91,92,93,94,95,96,97,98,99,100]).
L6 ([101,102,103,104,105,106,107,108,109,110,111,112,113,114,115,116,117,118,119,120]).
L7 ([121,122,123,124,125,126,127,128,129,130,131,132,133,134,135,136,137,138,139,140]).
L8 ([141,142,143,144,145,146,147,148,149,150,151,152,153,154,155,156,157,158,159,160]).
L9 ([161,162,163,164,165,166,167,168,169,170,171,172,173,174,175,176,177,178,179,180]).
L10 ([181,182,183,184,185,186,187,188,189,190,191,192,193,194,195,196,197,198,199,200]).
A1List([51,52,53,54,55,56,57,58,59,60,61,62,63]).
A2List([64,65,66,67,68,69,70,71,72,73,74,75]).
A3List([76,77,78,79,80,81,82,83,84,85,86,87]).
A4List([88,89,90,91,92,93,94,95,96,97,98,99]).
B1List([55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70]).
B2List([71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,86]).
B3List([87,88,89,90,91,92,93,94,95,96,97,98,99,100,101,102]).
B4List([103,104,105,106,107,108,109,110,111,112,113,114,115,116,117]).
C1List([57,58,58,60,61,62,63,64,65,66,67,68,69,70,71]).
C2List([72,73,74,75,76,77,78,79,80,81,82,83,84,85,86]).
C3List([87,88,89,90,91,92,93,94,95,96,97,98,99,100,101]).
C4List([102,103,104,105,106,107,108,109,110,111,112,113,114]).
D1List([37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54]).
D2List([55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72]).
D3List([73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88,89,90]).
D4List([91,92,93,94,95,96,97,98,99,100,101,102,103,104,105,106,107,108]).
E1List([55,56,57,58,59,60,61,62,63,64,65,66,67]).
E2List([68,69,70,71,72,73,74,75,76,77,78,79,80]).
E3List([81,82,83,84,85,86,87,88,89,90,91,92,93]).
E4List([94,95,96,97,98,99,100,101,102,103,104]).
F1List([59,60,61,62,63,64,65,66,67,68,69,70,71]).
F2List([72,73,74,75,76,77,78,79,80,81,82,83]).
F3List([84,85,86,87,88,89,90,91,92,93,94,95]).
F4List([96,97,98,99,100,101,102,103,104,105,106,107]).
G1List([55,56,57,58,59,60,61,62,63,64,65,66,67,68,69]).
G2List([70,71,72,73,74,75,76,77,78,79,80,81,82,83]).
G3List([84,85,86,87,88,89,90,91,92,93,94,95,96,97]).
G4List([98,99,100,101,102,103,104,105,106,107,108,109,110,111,112]).
H1List([57,58,59,60,61,62,63,64,65,66,67,68,69,70,71]).
H2List([72,73,74,75,76,77,78,79,80,81,82,83,84,85,86]).
H3List([87,88,89,90,91,92,93,94,95,96,97,98,99,100,101]).
H4List([102,103,104,105,106,107,108,109,110,111,112,113,114,115]).
I1List([56,57,58,59,60,61,62,63,64,65,66,67]).
I2List([68,69,70,71,72,73,74,75,76,77,78]).
I3List([79,80,81,82,83,84,85,86,87,88,89]).
I4List([90,91,92,93,94,95,96,97,98,99,100]).
J1List([50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66]).
J2List([67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82]).
J3List([83,84,85,86,87,88,89,90,91,92,93,94,95,96,97,98]).
J4List([99,100,101,102,103,104,105,106,107,108,109,110,111,112,113,114]).
%-
Yes (1,6).
Yes (2,5).
Yes (3,6).
Yes (4,5).
Yes (5,3).
Yes (6,5).
Yes (7,4).
Yes (8,3).
Yes (9,6).
Yes (10,5).
Yes (11,3).
Yes (12,2).
Yes (13,6).
Yes (14,6).
Yes (15,2).
Yes (16,3).
Yes (17,3).
Yes (18,6).
Yes (19,2).
Yes (20,6).
Yes (21,6).
Yes (22,4).
Yes (23,3).
Yes (24,6).
Yes (25,4).
Yes (26,3).
Yes (27,6).
Yes (28,6).
Yes (29,4).
Yes (30,7).
Yes (31,3).
Yes (32,3).
Yes (33,6).
Yes (34,6).
Yes (35,6).
Yes (36,3).
Yes (37,6).
Yes (38,6).
Yes (39,6).
Yes (40,6).
Yes (41,3).
Yes (42,6).
Yes (43,5).
Yes (44,6).
Yes (45,5).
Yes (46,6).
Yes (47,6).
Yes (48,3).
Yes (49,3).
Yes (50,6).
Yes (51,6).
Yes (52,3).
Yes (53,6).
Yes (54,6).
Yes (55,6).
Yes (56,5).
Yes (57,2).
Yes (58,6).
Yes (59,6).
Yes (60,4).
Yes (61,6).
Yes (62,6).
Yes (63,6).
Yes (64,5).
Yes (65,6).
Yes (66,5).
Yes (67,5).
Yes (68,6).
Yes (69,5).
Yes (70,5).
Yes (71,5).
Yes (72,5).
Yes (73,5).
Yes (74,5).
Yes (75,6).
Yes (76,2).
Yes (77,6).
Yes (78,5).
Yes (79,5).
Yes (80,5).
Yes (81,3).
Yes (82,5).
Yes (83,6).
Yes (84,4).
Yes (85,4).
Yes (86,5).
Yes (87,2).
Yes (88,4).
Yes (89,3).
Yes (90,5).
Yes (91,4).
Yes (92,5).
Yes (93,5).
Yes (94,4).
Yes (95,3).
Yes (96,6).
Yes (97,3).
Yes (98,3).
Yes (99,5).
Yes (100,5).
Yes (101,3).
Yes (102,3).
Yes (103,4).
Yes (104,5).
Yes (105,5).
Yes (106,3).
Yes (107,4).
Yes (108,3).
Yes (109,6).
Yes (110,6).
Yes (111,3).
Yes (112,3).
Yes (113,3).
Yes (114,4).
Yes (115,5).
Yes (116,2).
Yes (117,3).
Yes (118,5).
Yes (119,2).
Yes (120,5).
Yes (121,6).
Yes (122,4).
Yes (123,3).
Yes (124,3).
Yes (125,5).
Yes (126,4).
Yes (127,6).
Yes (128,6).
Yes (129,6).
Yes (130,6).
Yes (131,5).
Yes (132,1).
Yes (133,3).
Yes (134,6).
Yes (135,3).
Yes (136,6).
Yes (137,6).
Yes (138,2).
Yes (139,6).
Yes (140,6).
Yes (141,6).
Yes (142,6).
Yes (143,2).
Yes (144,6).
Yes (145,4).
Yes (146,5).
Yes (147,6).
Yes (148,3).
Yes (149,3).
Yes (150,5).
Yes (151,6).
Yes (152,3).
Yes (153,6).
Yes (154,6).
Yes (155,3).
Yes (156,2).
Yes (157,6).
Yes (158,5).
Yes (159,6).
Yes (160,6).
Yes (161,5).
Yes (162,4).
Yes (163,5).
Yes (164,3).
Yes (165,6).
Yes (166,3).
Yes (167,3).
Yes (168,5).
Yes (169,2).
Yes (170,3).
Yes (171,4).
Yes (172,5).
Yes (173,4).
Yes (174,6).
Yes (175,5).
Yes (176,4).
Yes (177,4).
Yes (178,5).
Yes (179,3).
Yes (180,3).
Yes (181,5).
Yes (182,2).
Yes (183,3).
Yes (184,5).
Yes (185,6).
Yes (186,3).
Yes (187,3).
Yes (188,2).
Yes (189,6).
Yes (190,4).
Yes (191,2).
Yes (192,2).
Yes (193,3).
Yes (194,5).
Yes (195,1).
Yes (196,6).
Yes (197,6).
Yes (198,2).
Yes (199,3).
Yes (200,3).
No (1,2).
No (2,2).
No (3,3).
No (4,2).
No (5,5).
No (6,3).
No (7,3).
No (8,6).
No (9,3).
No (10,3).
No (11,5).
No (12,6).
No (13,2).
No (14,3).
No (15,5).
No (16,5).
No (17,6).
No (18,2).
No (19,6).
No (20,2).
No (21,2).
No (22,5).
No (23,6).
No (24,3).
No (25,5).
No (26,6).
No (27,3).
No (28,2).
No (29,5).
No (30,2).
No (31,6).
No (32,6).
No (33,2).
No (34,3).
No (35,2).
No (36,5).
No (37,3).
No (38,2).
No (39,2).
No (30,2).
No (41,6).
No (42,3).
No (43,3).
No (44,2).
No (45,4).
No (46,2).
No (47,3).
No (48,5).
No (49,6).
No (50,2).
No (51,3).
No (52,5).
No (53,3).
No (54,3).
No (55,2).
No (56,3).
No (57,5).
No (58,3).
No (59,3).
No (60,6).
No (61,1).
No (62,2).
No (63,2).
No (64,2).
No (65,2).
No (66,2).
No (67,2).
No (68,1).
No (69,2).
No (70,3).
No (71,2).
No (72,3).
No (73,1).
No (74,1).
No (75,2).
No (76,6).
No (77,3).
No (78,1).
No (79,1).
No (80,2).
No (81,6).
No (82,3).
No (83,2).
No (84,3).
No (85,6).
No (86,3).
No (87,5).
No (88,5).
No (89,6).
No (90,3).
No (91,3).
No (92,2).
No (93,4).
No (94,5).
No (95,4).
No (96,3).
No (97,6).
No (98,6).
No (99,0).
No (100,0).
No (101,5).
No (102,6).
No (103,5).
No (104,4).
No (105,4).
No (106,6).
No (107,3).
No (108,5).
No (109,4).
No (110,2).
No (111,6).
No (112,5).
No (113,5).
No (114,6).
No (115,3).
No (116,5).
No (117,6).
No (118,3).
No (119,6).
No (120,0).
No (121,3).
No (122,5).
No (123,5).
No (124,5).
No (125,3).
No (126,6).
No (127,2).
No (128,2).
No (129,3).
No (130,2).
No (131,3).
No (132,4).
No (133,5).
No (134,4).
No (135,6).
No (136,2).
No (137,2).
No (138,6).
No (139,3).
No (140,3).
No (141,3).
No (142,3).
No (143,5).
No (144,3).
No (145,5).
No (146,4).
No (147,2).
No (148,6).
No (149,6).
No (150,3).
No (151,3).
No (152,5).
No (153,2).
No (154,2).
No (155,6).
No (156,7).
No (157,3).
No (158,3).
No (159,4).
No (160,2).
No (161,4).
No (162,3).
No (163,2).
No (164,5).
No (165,2).
No (166,4).
No (167,6).
No (168,1).
No (169,6).
No (170,5).
No (171,5).
No (172,4).
No (173,1).
No (174,2).
No (175,2).
No (176,5).
No (177,5).
No (178,3).
No (179,5).
No (180,5).
No (181,3).
No (182,6).
No (183,6).
No (184,3).
No (185,2).
No (186,6).
No (187,5).
No (188,6).
No (189,2).
No (190,5).
No (191,6).
No (192,7).
No (193,5).
No (194,3).
No (195,7).
No (196,2).
No (197,2).
No (198,6).
No (199,5).
No (200,5).
M (1,4).
M (2,4).
M (3,3).
M (4,4).
M (5,3).
M (6,3).
M (7,4).
M (8,3).
M (9,3).
M (10,3).
M (11,3).
M (12,4).
M (13,3).
M (14,4).
M (15,3).
M (16,3).
M (17,3).
M (18,3).
M (19,3).
M (20,2).
M (21,3).
M (22,4).
M (23,5).
M (24,5).
M (25,4).
M (26,4).
M (27,5).
M (28,5).
M (29,4).
M (30,3).
M (31,4).
M (32,4).
M (33,5).
M (34,4).
M (35,5).
M (36,5).
M (37,3).
M (38,2).
M (39,4).
M (40,5).
M (41,5).
M (42,3).
M (43,4).
M (44,6).
M (45,4).
M (46,5).
M (47,4).
M (48,3).
M (49,3).
M (50,4).
M (51,4).
M (52,5).
M (53,4).
M (54,5).
M (55,4).
M (56,5).
M (57,5).
M (58,3).
M (59,3).
M (60,4).
M (61,5).
M (62,3).
M (63,4).
M (64,3).
M (65,4).
M (66,4).
M (67,4).
M (68,3).
M (69,3).
M (70,4).
M (71,4).
M (72,4).
M (73,3).
M (74,3).
M (75,4).
M (76,4).
M (77,4).
M (78,3).
M (79,4).
M (80,4).
M (81,4).
M (82,4).
M (83,4).
M (84,4).
M (85,4).
M (86,4).
M (87,4).
M (88,4).
M (89,3).
M (90,3).
M (91,4).
M (92,4).
M (93,4).
M (94,4).
M (95,4).
M (96,3).
M (97,4).
M (98,4).
M (99,1).
M (100,1).
M (101,4).
M (102,3).
M (103,4).
M (104,4).
M (105,4).
M (106,4).
M (107,4).
M (108,4).
M (109,4).
M (110,3).
M (111,4).
M (112,4).
M (113,5).
M (114,4).
M (115,3).
M (116,4).
M (117,6).
M (118,3).
M (119,4).
M (120,3).
M (121,4).
M (122,4).
M (123,4).
M (124,5).
M (125,4).
M (126,4).
M (127,5).
M (128,5).
M (129,4).
M (130,5).
M (131,4).
M (132,3).
M (133,4).
M (134,4).
M (135,4).
M (136,5).
M (137,5).
M (138,4).
M (139,4).
M (140,5).
M (141,5).
M (142,4).
M (143,5).
M (144,4).
M (145,4).
M (146,4).
M (147,4).
M (148,3).
M (149,4).
M (150,4).
M (151,4).
M (152,4).
M (153,4).
M (154,5).
M (155,5).
M (156,5).
M (157,4).
M (158,5).
M (159,5).
M (160,5).
M (161,4).
M (162,4).
M (163,4).
M (164,3).
M (165,3).
M (166,4).
M (167,3).
M (168,3).
M (169,3).
M (170,4).
M (171,4).
M (172,4).
M (173,3).
M (174,5).
M (175,4).
M (176,4).
M (177,4).
M (178,4).
M (179,4).
M (180,3).
M (181,1).
M (182,2).
M (183,3).
M (184,4).
M (185,2).
M (186,3).
M (187,3).
M (188,2).
M (189,3).
M (190,4).
M (191,2).
M (192,2).
M (193,4).
M (194,5).
M (195,1).
M (196,4).
M (197,4).
M (198,2).
M (199,4).
M (200,3).
%-
QText (1, «Делаете ли Вы необдуманные замечания или обвинения, о которых после\n жалеете?»).
QText (2, «Считают ли другие люди Ваши поступки непредсказуемыми?»).
QText (3, «Часто ли Вы бываете импульсивны в своем поведении?»).
QText (4, «Беспокоит ли Вас необходимость беречь здоровье?»).
QText (5, «Принимаете ли Вы разумные меры предосторожности, чтобы беречь\n здоровье?»).
QText (6, «Правда ли, что Вы вечно попадаете в неприятности?»).
QText (7, «Стали бы Вы покупать вещи в кредит с надеждой, что сможете найти\n средства погашать этот кредит?»).
QText (8, «Умеете ли Вы уверенно запланировать что-нибудь и работать в\n направлении его реализации за шесть месяцев вперед?»).
QText (9, «Правда ли, что Вы склонны откладывать что-то на потом, затем\n обнаруживается, что уже слишком поздно?»).
QText (10, «Бывает ли так, что для создания какого-то эффекта Вы увеличиваете\n степень выражения своих эмоций?»).
QText (11, «Можете ли Вы оказать стабилизирующее воздействие, когда другие\n начинают паниковать?»).
QText (12, «Оплачиваете ли Вы свои долги и сдерживаете ли Вы свои обещания,\n если это возможно?»).
QText (13, «Часто ли совершаете бестактные ошибки?»).
QText (14, «Часто ли Вы предпринимаете действия, несмотря на то, что Ваш\n здравый смысл указывает на обратное?»).
QText (15, «Можете ли Вы быстро приспособиться и воспользоваться новыми\n условиями и ситуациями, даже если они могут оказаться трудными?»).
QText (16, «Выполняете ли Вы обычно поручения быстро и систематично?»).
QText (17, «Вы мало сожалеете о прошлых невзгодах и неудачах?»).
QText (18, «Трудно ли Вам приступить к делу, которое необходимо выполнить?»).
QText (19, «Достаточно ли хорошо Вы справляетесь с проблемами повседневной жизни?»).
QText (20, «Также легко Вы тратите деньги, как их зарабатываете?»).
QText (21, «Беспокоят ли Вас до сих пор прошлые неудачи?»).
QText (22, «Часто ли Вы напеваете или насвистываете?»).
QText (23, «Пытаетесь ли Вы рассмешить других людей и заставить их улыбаться?»).
QText (24, «Считают ли Вас иногда человеком, который портит настроение другим?»).
QText (25, «Быстро ли Вы отходите от воздействия плохих новостей?»).
QText (26, «Доставляет ли Вам удовольствие деятельность, выбранная самостоятельно?»).
QText (27, «Часто ли Вы сидите и размышляете о смерти, болезни, боли и печали?»).
QText (28, «Часто ли Вы размышляете о неудачах прошлого?»).
QText (29, «Верно ли, что современная молодежь имеет больше возможностей, чем\n молодежь предыдущего поколения?»).
QText (30, «Верно ли, что иногда Вы спрашиваете себя о том, заботится ли о Вас\n кто-то по-настоящему?»).
QText (31, «Трудно ли Вам рассматривать предмет самоубийства?»).
QText (32, «Правда ли, что Ваши незначительные неудачи редко Вас беспокоят?»).
QText (33, «Часто ли Вы размышляете о своих прошлых болезнях и болезненных\n переживаниях?»).
QText (34, «Часто ли Вы чувствуете себя подавленным?»).
QText (35, «Бываете ли Вы иногда не в состоянии полностью постичь суть вещей?»).
QText (36, «Охотно ли Вы смеетесь или улыбаетесь?»).
QText (37, «Часто ли размышляете о своей неполноценности?»).
QText (38, «Ужасает ли Вас мысль о смерти или даже напоминание о ней?»).
QText (39, «Часто ли Вы расстраиваетесь из-за судьбы жертв войны и политических\n беженцев?»).
QText (40, «Чувствуете ли Вы, что Ваш возраст работает не на Вас (что Вы слишком\n молоды или слишком стары)?»).
QText (41, «В то время, когда другие начинают терять терпение, остаетесь ли Вы\n достаточно спокойным?»).
QText (42, «Сводит ли у Вас время от времени мышцы, даже когда для этого нет\n никакого логического объяснения?»).
QText (43, «Является ли Ваш голос скорее монотонным, чем гибким?»).
QText (44, «Вызывает ли у Вас напряжение мышц какое-нибудь неожиданное действие?»).
QText (45, «Нервничаете ли Вы при мысли о том, что Вам предстоит выступать перед аудиторией?»).
QText (46, «Есть ли нечто, что Вы особенно боитесь или не любите?»).
QText (47, «Бывает ли у Вас реакция после того, как произошло что-нибудь\n неожиданное, например, несчастный случай или другое неприятное происшествие?»).
QText (48, «Посторонние шумы редко мешают Вам сосредоточиться?»).
QText (49, «Обычно Вас не беспокоит полная тишина, когда Вы хотите отдохнуть?»).
QText (50, «Есть ли у Вас привычка грызть свои ногти или кончик карандаша?»).
QText (51, «Бывает ли так, что у Вас появляется мысль, овладевающая Вашим\n сознанием на несколько дней?»).
QText (52, «Хорошо ли Вы спите?»).
QText (53, «Беспокоит ли Вас когда-нибудь шум ветра или осаживающегося дома?»).
QText (54, «Присущи ли Вам привычки, подобные поглаживанию волос, носа, ушей\n и т.п.?»).
QText (55, «Могут ли некоторые звуки вызывать у Вас крайне неприятные ощущения,\n такие, будто зубы сводит?»).
QText (56, «Раздражают ли Вас дети?»).
QText (57, «Легко ли Вам расслабиться?»).
QText (58, «Вызывают ли у Вас физическую реакцию мрачные предчувствия или мысль\n о страхе?»).
QText (59, «Тратите ли Вы много времени на беспокойство по пустякам?»).
QText (60, «Способны ли Вы пойти на обоснованный риск без особых волнений?»).
QText (61, «Бывают ли у Вас периоды повышенной активности несколько дней подряд?»).
QText (62, «Является ли Ваша жизнь постоянной борьбой за выживание?»).
QText (63, «Сильно ли Вас беспокоит мысль о том, что надо начать какое-то новое\n дело?»).
QText (64, «Правда ли, что Вы редко бываете счастливы, если только для этого\n нет особой причины?»).
QText (65, «Бывает ли у Вас ощущение, что Вам все снится, когда все в жизни\n кажется нереальным?»).
QText (66, «Держите ли Вы в поле зрения вещи, которые Вы дали на время своим\n друзьям.»).
QText (67, «Верно ли, что Вы постоянно собираете вещи, которые смогли бы\n впоследствии пригодиться?»).
QText (68, «Бывает ли, что Вы отдаете вещи, которые Вам не принадлежат?»).
QText (69, «Бывает ли так, что Вы выбрасываете свои вещи, а позже обнаруживаете\n их необходимость?»).
QText (70, «Чувствуете ли Вы, что иногда Вы должны повторять несколько раз\n какую-то интересную новость или слух?»).
QText (71, «Нуждаетесь ли Вы обычно в подтверждении или отказе от однажды\n высказанного Вами мнения?»).
QText (72, «Иногда Вы чувствуете, что говорите слишком много?»).
QText (73, «Становится ли Вам совсем не по себе, если вокруг беспорядок?»).
QText (74, «Склонны ли Вы прибираться в чужом доме, если там беспорядок?»).
QText (75, «Работаете ли Вы рывками (будучи относительно пассивным, а затем\n чрезмерно активным в течение одного-двух дней)?»).
QText (76, «Можете ли Вы не вмешиваться при окончании решения кроссворда другим\n человеком?»).
QText (77, «Часто ли Вам приходится не делать то, что хотелось бы, считаясь с\n желаниями других людей?»).
QText (78, «Часто ли Вы оказываетесь в ситуациях, когда Вам приходится\n заниматься всеми делами одновременно (работать на несколько\n фронтов)?»).
QText (79, «Кажется ли Вам жизнь нереальной и довольно смутной?»).
QText (80, «Бывают ли у Вас приступы грусти и подавленности без всякой причины?»).
QText (81, «Просматриваете ли Вы расписания движения поездов, телефонные\n справочники или словари ради удовольствия?»).
QText (82, «Вы предпочитаете находиться в ситуации, когда не приходится отвечать\n за принятие решений?»).
QText (83, «Ждете ли Вы обычно, чтобы другой человек начал разговор?»).
QText (84, «Медленно ли Вы говорите?»).
QText (85, «Будучи в компании, активно ли Вы общаетесь с друзьями?»).
QText (86, «Правда ли, что Вы предпочитаете быть зрителем, нежели участником\n соревнований?»).
QText (87, «Можете ли Вы быть заводилой на вечеринках?»).
QText (88, «Всегда ли Вы в курсе дел, происходящих ежедневно?»).
QText (89, «Легко ли Вам начать выполнение какого-либо дела?»).
QText (90, «Правда ли, что у Вас небольшой круг интересов и видов деятельности,\n которыми Вы занимаетесь по собственному выбору?»).
QText (91, «Медленно ли Вы едите?»).
QText (92, «Предпочитаете ли Вы занимать пассивную роль в любой группе или\n организации, к которой принадлежите?»).
QText (93, «Если расстояние не слишком большое, Вы предпочитаете ехать на\n транспорте, нежели идти пешком?»).
QText (94, «Можете ли Вы прийти в восторг от какой-нибудь простой мелочи?»).
QText (95, «Вы ложитесь спать скорее когда хотите, нежели по часам?»).
QText (96, «Вы менее разговорчивы, чем Ваши знакомые?»).
QText (97, «Хотелось ли бы Вам начать новое дело рядом с тем местом, где Вы\n живете?»).
QText (98, «Мог бы кто-то еще считать Вас по-настоящему активным?»).
QText (99, «Вы предпочитаете ждать развития событий вместо того, чтобы начать\n действовать самому?»).
QText (100, «Другие люди помыкают Вами?»).
QText (101, «Возмущают ли Вас усилия других людей указывать Вам, что Вы должны\n делать?»).
QText (102, «Вы больше предпочитаете отдавать приказы, чем исполнять их?»).
QText (103, «Согласились бы Вы на строгую дисциплину?»).
QText (104, «Можете ли Вы признать, что были неправы, только ради того, чтобы\n сохранить мир?»).
QText (105, «Думаете ли Вы, что Ваши мнения недостаточно важны, чтобы сообщать\n их другим людям?»).
QText (106, «Являетесь ли Вы настолько самоуверенным, что это иногда раздражает\n других?»).
QText (107, «Беспокоит ли Вас мысль о потере чувства собственного достоинства?»).
QText (108, «Считают ли Вас иногда властным человеком в Ваших действиях и\n взглядах?»).
QText (109, «Легко ли бы Вы отказались от выбранного направления действий, если\n бы оно причинило Вам незначительное число затруднений?»).
QText (110, «Отказываетесь ли Вы от ответственности за что-либо из-за Ваших сомнений, что Вы можете с этим не справиться?»).
QText (111, «Считаете ли Вы себя энергичным в Вашем отношении к жизни?»).
QText (112, «Когда Вы встречаете открытое сопротивление, попытаетесь ли\n все-таки сделать что-то по-своему?»).
QText (113, «В тех областях, где Вы не являетесь специалистом, является ли Ваше\n мнение достаточно важным, чтобы высказывать его другим людям?»).
QText (114, «Легко ли Вам смириться с поражением, при этом не испытывая чувства\n досады?»).
QText (115, «Беспокоит ли Вас определенное количество незавершенных текущих дел?»).
QText (116, «Являются ли Ваш голос и манеры определенными и выразительными?»).
QText (117, «Часто ли Вы убеждены в правильности Вашей точки зрения о предмете,\n даже если Вы не являетесь специалистом по данному вопросу?»).
QText (118, «Кажется ли Вам, что Ваши знакомые более высокого мнения о Ваших\n способностях, чем Вы сами?»).
QText (119, «Если бы Вы подумали, что кто-то относится к Вам и к Вашим\n действиям с подозрением, стали бы Вы выяснять с ними этот вопрос вместо того, чтобы предоставить им самим во всем разобраться?»).
QText (120, «Имеете ли Вы склонность прятать свои чувства?»).
QText (121, «Если Вас попросят принять какое-то решение, может ли Вас \nпоколебать Ваше чувство расположения или нерасположения по отношению к человеку, о котором идет речь?»).
QText (122, «Сильно ли Вас интересуют другие люди?»).
QText (123, «Охотно ли Вы включаетесь в разговоры других людей?»).
QText (124, «Считаете ли Вы, что способны дать ценное моментальное суждение?»).
QText (125, «Часто ли Вы ощущаете, что люди смотрят на Вас или говорят о Вас\n за Вашей спиной?»).
QText (126, «Легко ли Вам относиться непредвзято к происшедшему?»).
QText (127, «Когда Вы слушаете лектора, посещает ли Вас иногда мысль, что\n лектор обращается исключительно к Вам?»).
QText (128, «Имеете ли Вы склонность к тому, чтобы быть беззаботным и не\n тревожиться ни о чем?»).
QText (129, «Склонны ли Вы быть ревнивым?»).
QText (130, «Есть ли у Вас чувствительные места, затрагивание которых вызывает\n Вашу болезненную реакцию?»).
QText (131, «Склонны ли Вы думать, что Ваша школа, колледж, клуб, коллектив и\n т. п. лучше других?»).
QText (132, «Присутствует ли логика и научный подход в Вашем образе мыслей?»).
QText (133, «Оказывает ли влияние на формирование Вашего мнения взгляд на вещи\n с позиции Вашего жизненного опыта, профессии, образования?»).
QText (134, «Оказывают ли влияние на Ваши решения Ваши личные интересы?»).
QText (135, «Можете ли Вы понять точку зрения другого человека, если Вы этого\n захотите?»).
QText (136, «Когда Вы голосуете, голосуете ли Вы за одну и ту же партию вместо\n того, чтобы изучить кандидатов и их предвыборные программы?»).
QText (137, «Представляют ли Ваши интересы и области знаний для Вас такую \nважность, что оставляют Вам мало времени для чего-нибудь\n другого?»).
QText (138, «Можете ли Вы положиться на то, что подсказывает Ваш здравый смысл\n в эмоциональной ситуации, в которую Вы попали?»).
QText (139, «Во время спора трудно ли Вам понять, почему другой человек не\n может принять Вашу точку зрения и, таким образом,\n согласиться с Вами?»).
QText (140, «Проявляете ли Вы снисходительность к своим друзьям в тех случаях,\n когда к другим Вы отнеслись бы более строго?»).
QText (141, «Трудно ли Вам обычно откровенно в чем-то признаться и взять на\n себя вину?»).
QText (142, «Доставляет ли Вам удовольствие рассказывать самые свежие сплетни\n о Ваших знакомых?»).
QText (143, «Воздерживаетесь ли Вы от высказывания недовольства, если кто-то \nопоздал на встречу?»).
QText (144, «Считаете ли Вы, что есть люди, которые явно недружелюбны по\n отношению к Вам и копают под Вас?»).
QText (145, «Когда Вы критикуете кого-нибудь, пытаетесь ли Вы в то же самое\n время его подбодрить?»).
QText (146, «Правда ли, что Вы полностью осуждаете человека из-за того, что он\n Ваш соперник или оппонент в каком-то вопросе Ваших с ним отношений?»).
QText (147, «Стали бы Вы критиковать недостатки и указывать человеку на плохие\n черты его характера или на плохо сделанную им работу?»).
QText (148, «Легко ли и без обид воспринимаете критику?»).
QText (149, «Правда ли, что Вы редко подвергаете сомнениям поступки других\n людей?»).
QText (150, «Имеете ли Вы склонность преувеличивать оправданную обиду?»).
QText (151, «Может ли расхождение во мнениях повлиять на Ваши общие отношения\n с другим человеком?»).
QText (152, «Являетесь ли Вы тем человеком, которому легко доставить\n удовольствие?»).
QText (153, «Критикуете ли Вы обычно фильм или спектакль, который Вы смотрите,\n или книгу, которую Вы читаете?»).
QText (154, «Расстраиваетесь ли Вы, если не можете что-то сделать, вместо того,\n чтобы найти замену этой деятельности?»).
QText (155, «Редко ли Вы выражаете свое недовольство?»).
QText (156, «Считаетесь ли Вы с лучшими сторонами большинства людей и лишь\n редко отзываетесь неуважительно о них?»).
QText (157, «Бывает ли так, что люди критикуют Вас в разговоре с другими людьми?»).
QText (158, «Урегулировав спорный вопрос, продолжаете ли Вы чувствовать\n недовольство какое-то время?»).
QText (159, «Если Вы теряете какую-то вещь, приходит ли Вам в голову мысль о\n том, что кто-то, должно быть, украл ее или положил не туда?»).
QText (160, «Часто ли Вы ворчите об условиях жизни, с которыми Вам приходится\n сталкиваться?»).
QText (161, «Намереваетесь ли Вы иметь двух детей (или менее) в семье, даже\n если состояние Вашего здоровья и уровень доходов позволяют иметь\n больше детей?»).
QText (162, «Считаете ли Вы, что на социальное обеспечение должно расходоваться\n больше денежный средств?»).
QText (163, «Помешает ли Вам охотиться или ловить рыбу мысль о причинении боли\n дичи (птицам), маленьким животным или рыбам?»).
QText (164, «Бываете ли Вы обычно тактичны в своих требованиях к подчиненным,\n родственникам, ученикам?»).
QText (165, «Если бы Вы увидели в магазине товар, на котором явно по ошибке\n проставлена более низкая цена, попытались бы Вы приобрести его\n по этой цене?»).
QText (166, «Есть ли у Вас четкие устоявшиеся нормы вежливого поведения с\n членами Вашей семьи?»).
QText (167, «Правда ли, что Вы больше считаетесь с интересами группы людей, нежели со своими личными интересами?»).
QText (168, «Считаете ли Вы, что современная система тюрьмы без решеток обречена на неудачу?»).
QText (169, «Верно ли, что Вы предпочитаете действовать в соответствии с пожеланиями других, чем стремитесь делать все по-своему?»).
QText (170, «Если бы Ваша страна вторглась в другую страну, сочувствовали бы Вы\n тем ее гражданам, которые отказались от военной службы по\n политическим или религиозным убеждениям?»).
QText (171, «Остановитесь ли Вы и попытаетесь узнать, нужна ли человеку помощь,\n если ее непосредственно не попросили?»).
QText (172, «Примените ли Вы телесное наказание к ребенку в возрасте 10 лет, если\n бы он отказался Вас слушаться?»).
QText (173, «Относитесь ли Вы с подозрением к людям, которые просят у Вас денег\n взаймы?»).
Подобные документы
Технология экспертных систем на основе искусственного интеллекта: разработка и внедрение компьютерных программ, способных имитировать, воспроизводить области деятельности человека, требующих мышления, определенного мастерства и накопленного опыта.
курсовая работа [264,8 K], добавлен 22.12.2008Понятия, классификация и структура экспертных систем. Базы знаний и модели представления знаний. Механизмы логического вывода. Инструментальные средства проектирования и разработки экспертных систем. Предметная область ЭС "Выбор мобильного телефона".
курсовая работа [2,2 M], добавлен 05.11.2014Структура экспертных систем, их классификация и характеристики. Выбор среды разработки программирования. Этапы создания экспертных систем. Алгоритм формирования базы знаний с прямой цепочкой рассуждений. Особенности интерфейса модулей "Expert" и "Klient".
курсовая работа [1,1 M], добавлен 18.08.2009Основные этапы при создании экспертных систем: идентификация, концептуализация, формализация, выполнение, отладка и тестирование, опытная эксплуатация и внедрение. Соответствия между этапами проекта RAD и стадиями технологии быстрого прототипирования.
лекция [38,8 K], добавлен 07.11.2013Этапы разработки экспертных систем. Требования к организации-разработчику. Правильный выбор подходящей проблемы, работа с экспертом. Разработка прототипной системы. Развитие прототипа до промышленной экспертной системы. Особенности оценки системы.
презентация [169,1 K], добавлен 14.08.2013Отличительные черты компьютерных программ экспертных систем, их разработка. Составные части систем: база знаний, механизм вывода, система пользовательского интерфейса. Структура базы знаний экспертной системы для помощи медикам в постановке диагноза.
курсовая работа [325,0 K], добавлен 04.02.2011Обобщенная структура и принципы функционирования экспертных систем. Выбор модели представления знаний. Разработка логического блока программы и графического пользовательского интерфейса. Текст программы и экспериментальная оценка результатов работы.
дипломная работа [2,4 M], добавлен 06.03.2013Ханойские башни: постановка задачи, условия перемещения дисков со стержня на стержень. Стратегия решения, используемые предикаты. Текст программы на языке Пролог. Построение модели решения задачи о ферзях. Примеры использования списков в языке Пролог.
презентация [72,0 K], добавлен 29.07.2012Разработка программы для бухгалтерского учета на предприятии, которое занимается розничной торговлей медицинскими препаратами. Выбор среды разработки. Особенности системы "1С: Предприятие". Тестирование и отладка программы, входные и выходные данные.
курсовая работа [1,1 M], добавлен 31.01.2016Ознакомление с возможностями языка Си как средой программирования высокого уровня. Циклы программирования параметрического оператора for и функции форматированного ввода. Разработка программы средствами Си: блок-схема, текст и тестирование программы.
контрольная работа [204,4 K], добавлен 26.01.2013
