Программирование на языке ПРОЛОГ для искуственного интеллекта




Процедура рассмотреть - часть 6


        продолжить( Ответ1, Цель1 и Цель2, Трасса, Ответ) :-
                положительный( Ответ1),
                рассмотреть( Цель2, Трасса, Ответ2),
                ( положительный( Ответ2), Ответ = Ответ1 и Ответ2;
                отрицательный( Ответ2), Ответ = Ответ2).

        продолжить( Ответ1, Цель1 и Цель2, _, Ответ1) :-
                отрицательный( Ответ1).

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

        истинность( Ответ1 и Ответ2, ПравдаЛожь) :-
                истинность( Ответ1, правда),
                истинность( Ответ2, правда),  !,
                ПравдаЛожь = правда;
                ПравдаЛожь = ложь.

        положительный( Ответ) :-
                истинность( Ответ, правда).

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

line();

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




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