Основы построения и функционирования интеллектуальных информационных систем. Былкин В.Д - 75 стр.

    //альтернативный метод


    for j:=l to varik do mid[j]:=0;
    for j:=l to varik do mid[j]:=meanl[j]-mean2[j];


    decision:=0;
    for i:=l to varik do decision:=decision+vaIuemas[i]*mid[i];
    //
    for j:=l to varik do meanl[j]:=meanl[j]*n1+valuemas[j]/(nl+1); //формирование правила принятия
решения
    for j:=l to varik do rules[j]:=meanl[j]-mean2[j];
    //используем это правило для формирования decision decision:=0;
    for j:=l to varik do decision:=decision+valuemas[j]*rules[j]; ShowMessage('искомое значение
переменной decision=‘ + floattostr(decision) );
    end;
    end;
     end.
                                      Испытание экспертной системы

    Предположим, что мы модифицировали исходную программу таким образом, чтобы
исключить из нее некоторые переменные после анализа их максимальных и минимальных
значений. Листинг модифицированной программы приведен в конце этого параграфа.
    Чтобы убедиться, насколько хорошо (или плохо) работает экспертная система, рассмотрим
пример Птица - Самолет - Планер. Для простоты разберем только, три признака: Крылья, Клюв и
Двигатель. Птица имеет Крылья и Клюв, но не имеет Двигателя; Самолет имеет Крылья и
Двигатель, но не имеет Клюва, и, наконец, Планер имеет Крылья, но не имеет ни Клюва, ни
Двигателя.
    Перед началом вычислений массив RULES обнуляется. Мы сообщаем экспертной системе, что
наша задача содержит три переменные и три возможных исхода. Каждой переменной и каждому
исходу присваивается определенное имя. Затем вводятся в программу минимальные и
максимальные значения этих переменных. Ясно, что они равны 0 и 1, что соответствует отсутствию
или наличию данного признака в запросе:




                                                   75