Разработка экспертной системы «Аналитический тест»
Тест разделен на 10 подтестов по 20 вопросов — группы A, B, C, D, E, F, G, H, I, J. Группа A определяет стабильность, группа B — счастье и подавленность, группа С — спокойствие и нервозность, группа D — уверенность, группа E — активность, группа F — способность, группа G — ответственность, группа H — критичность, объективность, группа I — открытость, замкнутость, группа J — уровень общения… Читать ещё >
Разработка экспертной системы «Аналитический тест» (реферат, курсовая, диплом, контрольная)
ПОЯСНИТЕЛЬНАЯ ЗАПИСКА К КУРСОВОЙ РАБОТЕ
Разработка экспертной системы «Аналитический тест»
В течение последнего десятилетия в рамках работ по искусственному интеллекту сформировалось самостоятельное направление — экспертные системы или инженерия знаний. В задачу этого направления входят исследование и разработка программ, использующих знания и процедуры решения задач, которые являются трудными для людей — экспертов. Области применения экспертных систем разнообразны: военные приложения, медицина, электроника, вычислительная техника, геология, математика, космос, сельское хозяйство, управление, финансы, бизнес, и т. д.
Экспертная система — это программа, которая использует принципы искусственного интеллекта и знания эксперта для обработки оперативной информации и принятия обоснованных решений в анализируемой области По форме представления знания эксперта можно отнести к следующим общим категориям. Декларативные знания — это утверждения, которые могут быть истинными или ложными. Такие знания могут быть сохранены в стандартной базе данных. Некоторые знания являются алгоритмическими и поэтому могут быть представлены в виде блок-схемы. Такие знания могут быть выражены в виде подпрограммы на любом процедурном языке программирования.
Опыт по разработке интеллектуальных или экспертных систем показал, что эксперты обладают знаниями, которые не являются ни строго декларативными, ни строго алгоритмическими. Эти знания являются интуитивными и их наличие связано с опытом экспертов. Общими являются типичные знания, которые можно представить как строго декларативное или алгоритмическое знание. Опыт, с другой стороны, — это знание частных случаев и исключений из общего знания, который нельзя эффективно преподавать в классе или перечислить в книгах. Знание частных случаев, которое приобретается на опыте, — это только одна форма более широкого класса условного знания, которое является по существу трудно организуемым и поэтому его трудно изобразить схематически в виде, например, блок-схемы. Любая программа, в которой рассматривается большое количество условных логических выражений, может быть практически трудно реализуема.
Обычно к экспертным системам относят системы, основанные на знаниях. Знания можно подразделить на формализованные (универсальные знания — законы, модели, алгоритмы) и на неформализованные (эпирические, опыт, умение, интуиция).
Традиционное программирование в качестве основы для разработки программного обеспечения использует формализованное знание (алгоритм) и не подходит для решения неформализованных задач, к которым можно отнести следующие:
· алгоритмическое решение задачи неизвестно;
· задача не может быть определена в числовой форме;
· цели задачи не могут быть выражены в терминах точно определенной функции.
Как правило, такие задачи обладают неполнотой, ошибочностью, неоднозначностью и противоречивостью.
Экспертные системы не отвергают традиционного подхода к программированию, они предлагают технологию и методы решения неформализованных задач. Эти методы практически не зависят от типов решаемых задач.
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©, 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
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©, write©,
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 («Спасибо.nnnnnnnnnnnnn (Нажмите любую клавишу для продолжения)»),
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 взаймы?»).