Листинг 2. Пример работы эс для оценки надежности поставщика

********************************

* Экспертная система *

* Оценка надежности поставщика *

******* press any key ********

Введите рентабельность (1 – есть, 2 – нет): 1

Введите задолженность (1 – есть, 2 – нет): 2

Введите рекламации (1 – есть, 2 – нет): 1 с уверенностью 30

Статус предприятия:

1 – государственное,

2 – акционерное,

3 – совместное,

4 – малое,

5 – кооперативное,

6 – индивидуальное

Укажите статус предприятия: 2

Введите удаленность поставщика км: 500

*** Ввод значений завершен ***

*** press any key ***

********************************

* Экспертная система *

* Оценка надежности поставщика *

* Вывод результатов *

******* press any key ********

Надежность поставщика – True

Фактор уверенности = 81

Пример объяснений

Rule R1 (fired)

Если рентабельность высокая и нет задолженности, то финансовое состояние достаточно высокое

(2) Рентабельность true cf 100

(3) Задолженность false cf 100

(4) Финансовое состояние true cf 100

Rule R4 (fired)

Если финансовое состояние хорошее, то надежность поставщика высокая

(4) Финансовое состояние true cf 100

(1) Надежность поставщика true cf 90

Rule R6 (fired)

Если рекламации есть, то надежность поставщика низкая

(5) Рекламации 1 cf 30

(1) Надежность поставщика true cf -18

Rule R9 (fired)

Если предприятие акционерное, то надежность высокая

(6) Статус предприятия akc cf 100

(1) Надежность поставщика true cf 70

Rule R14 (fired)

Если удаленность поставщика небольшая, то надежность высокая

(7) Удаленность поставщика 500 cf 100

(1) Надежность поставщика true cf 70

Листинг 3. Подсистема прогнозирования цен Текст программы

GOAL: PRICES

INITIAL:

e.cfjo = «M» /* факторы уверенности левой и правой частей правил объединяются по формуле Min(a, b) */

e.cfco = «P» /* факторы уверенности результатов для одной переменной объединяются по формуле a + b - (a * b) / 100 */

e.trac = «n» /* отмена трассировки; v – включить */

e.lstr = 75 /* максимальная длина строки */

? «Для начала консультации нажмите любую клавишу»

wait;

/* Исходные данные */

prodvol = {200 cf 90, 100 cf 30};

demvol = {150 cf 80, 50 cf 20};

PRICES = unknown;

DO:

? «Конец консультации»;

RULE: R1

IF: prodvol > demvol

THEN: PRICES = «падают»; cfv(PRICES, prodvol > demvol);

? «с КУ = », hicf(PRICES) , «% можно сказать, что цены»;

? «в будущем году упадут»;

wait;

RULE: R2

IF: prodvol < demvol

THEN: PRICES = «растут»; cfv(PRICES, prodvol < demvol);

? «с КУ = », hicf(PRICES) , «% можно сказать, что цены»;

? «в будущем году поднимутся»;

wait;

RULE: R3

IF: prodvol = demvol

THEN: PRICES = «6eз изменений»; cfv(PRICES, prodvol equal demvol);

? «с КУ = », hicf(PRICES) , «% можно сказать, что в будущем»

? «году цены не изменятся»;

wait;

VAR: PRODVOL

LABEL: Объем производства

VAR: DEMVOL

LABEL: Объем спроса

VAR: PRICES

END:

Пример консультации

Для начала консультации нажмите любую клавишу

с КУ = 87.00% можно сказать, что цены в будущем году упадут

110