negative ( "форма", "stratocaster" ), !.
Пример работы программы:
Текстпрограммына Leonardo:
1. if 'Form of the guitar' is 'Les Paul'
and 'material' is 'wood'
and 'Strana Proizvoditel' is 'China'
and 'Nalichie vstroennogo effecta' is 'yes'
then Guitar is 'Epiphone LP Studio'
2. if 'Form of the guitar' is 'Les Paul'
and 'material' is 'wood'
and 'Strana Proizvoditel' is 'China'
and 'Nalichie vstroennogo effecta' is 'no'
then Guitar is 'Fender LS11'
3 if 'Form of the guitar' is 'Les Paul'
and 'material' is 'wood'
and 'Strana Proizvoditel' is 'Korea'
then Guitar is 'Gibson LP-100'
4 if 'Form of the guitar' is 'Les Paul'
and 'material' is 'wood'
and 'Strana Proizvoditel' is 'Indonesia'
and 'nalichie rychaga' is 'yes'
then Guitar is 'JacksonDK2FS'
5 if 'Form of the guitar' is 'Les Paul'
and 'material' is 'wood'
and 'Strana Proizvoditel' is 'Indonesia'
and 'nalichie rychaga' is 'no'
then Guitar is 'Epiphone LP Standart'
6 if 'Form of the guitar' is 'Les Paul'
and 'material' is 'another'
and 'Strana Proizvoditel' is 'Korea'
then Guitar is 'ESP LTD H-200FM'
7 if 'Form of the guitar' is 'Les Paul'
and 'material' is 'another'
and 'Strana Proizvoditel' is 'Indonesia'
then Guitar is 'Epiphone LP Custom'
8 if 'Form of the guitar' is 'Stratocaster'
and 'material' is 'wood'
and 'Strana Proizvoditel' is 'China'
and 'number of hambekers' is '2'
then Guitar is 'Washburn WG 587'
9 if 'Form of the guitar' is 'Stratocaster'
and 'material' is 'wood'
and 'Strana Proizvoditel' is 'China'
and 'number of hambekers' is '3'
then Guitar is 'Ibanez AF75 BS'
10 if 'Form of the guitar' is 'Stratocaster'
and 'material' is 'wood'
and 'Strana Proizvoditel' is 'Korea'
then Guitar is 'Ibanez SZ520QM GAB'
11 if 'Form of the guitar' is 'Stratocaster'
and 'material' is 'wood'
and 'Strana Proizvoditel' is 'Indonesia'
then Guitar is 'Washburn J9'
12 if 'Form of the guitar' is 'Stratocaster'
and 'material' is 'another'
and 'Strana Proizvoditel' is 'Korea'
and 'Nalichie vstroennogo effecta' is 'yes'
then Guitar is 'ESP LTD JH-200'
13 if 'Form of the guitar' is 'Stratocaster'
and 'material' is 'another'
and 'Strana Proizvoditel' is 'Korea'
and 'Nalichie vstroennogo effecta' is 'no'
then Guitar is 'Fender FG-200'
14 if 'Form of the guitar' is 'Classic'
and 'material' is 'wood'
and 'Strana Proizvoditel' is 'China'
and 'number of hambekers' is '2'
then Guitar is 'JacksonJS30DKT'
15 if 'Form of the guitar' is 'Classic'
and 'material' is 'wood'
and 'Strana Proizvoditel' is 'China'
and 'number of hambekers' is '3'
then Guitar is 'Squaer Standart'
16 if 'Form of the guitar' is 'Classic'
and 'material' is 'another'
and 'Strana Proizvoditel' is 'China'
then Guitar is 'ESP M-200FM'
17 if 'Form of the guitar' is 'Classic'
and 'material' is 'another'
and 'Strana Proizvoditel' is 'Korea'
then Guitar is 'Washburn N3'
if 'Form of the guitar' is 'Classic'
and 'material' is 'another'
and 'Strana Proizvoditel' is 'Indonesia'then Guitar is 'Washburn 30 B'
seekGuitar
Выводы:
По результатам проделанной работы реализации экспертной системы в LEONARDO и PROLOG можно отметить, некоторые удобства и неудобства программ:
1) Неудобства переключения языка в программе LEONARDO, язык не переключается как в системе Windows, в отличие от PROLOG, как следствие увеличение времени на программирование ЭС в LEONARDO.
2) Неудобство в LEONADRO при создании экспертной системы, надо заполнять отдельно правила и объекты, что увеличивает время на создание экспертной системы, в отличие от этого в системе PROLOG достаточно написать тест программы руководствуясь нужными операторами.
3) Неудобства в программе PROLOG при выводе результатов на экран пользователю необходимо самому вводить ответ на вопрос, а в LEONARDO достаточно выбрать нужный ответ и нажать на ENTER.
4) Неудобства в программе LEONARDO при выводе результатов на экран и ответе на вопросы вы не видите вопросов, на которые уже ответили и ваших ответов, чтобы посмотреть при ошибке в каком вопрос вы не правильно ответили.