и Цель2, Трасса, Ответ)

        продолжить( Ответ1, Цель1 и Цель2, Трасса, Ответ) :-

                положительный( Ответ1),

                рассмотреть( Цель2, Трасса, Ответ2),

                ( положительный( Ответ2), Ответ = Ответ1 и Ответ2;

                отрицательный( Ответ2), Ответ = Ответ2).

        продолжить( Ответ1, Цель1 и Цель2, _, Ответ1) :-

                отрицательный( Ответ1).

        истинность( Вопрос это ПравдаЛожь было Найдено,

                                                                            ПравдаЛожь) :-  !.

        истинность( Ответ1 и Ответ2, ПравдаЛожь) :-

                истинность( Ответ1, правда),

                истинность( Ответ2, правда),  !,

                ПравдаЛожь = правда;

                ПравдаЛожь = ложь.

        положительный( Ответ) :-

                истинность( Ответ, правда).

        отрицательный( Ответ) :-

                истинность( Ответ, ложь).

line();

Рис. 14. 10.  Основная процедура оболочки экспертной системы.


Содержание  Назад  Вперед

---

Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий

---

---

---