Навигация
Главная
Поиск
Форум
FAQ's
Ссылки
Карта сайта
Чат программистов

Статьи
-Delphi
-C/C++
-Turbo Pascal
-Assembler
-Java/JS
-PHP
-Perl
-DHTML
-Prolog
-GPSS
-Сайтостроительство
-CMS: PHP Fusion
-Инвестирование

Файлы
-Для программистов
-Компонеты для Delphi
-Исходники на Delphi
-Исходники на C/C++
-Книги по Delphi
-Книги по С/С++
-Книги по JAVA/JS
-Книги по Basic/VB/.NET
-Книги по PHP/MySQL
-Книги по Assembler
-PHP Fusion MOD'ы
-by Kest
Professional Download System
Реклама
Услуги

Автоматическое добавление статей на сайты на Wordpress, Joomla, DLE
Заказать продвижение сайта
Программа для рисования блок-схем
Инженерный калькулятор онлайн
Таблица сложения онлайн
Популярные статьи
OpenGL и Delphi... 65535
Форум на вашем ... 65535
HACK F.A.Q 65535
Бип из системно... 65535
Гостевая книга ... 65535
Содержание сайт... 65535
Вызов хранимых ... 65535
Программируемая... 65535
Эмулятор микроп... 65535
Подключение Mic... 65535
Приложение «Про... 65535
Оператор выбора... 65535
Invision Power ... 65321
Организация зап... 63993
Модуль Forms 60879
Создание отчето... 60758
ТЕХНОЛОГИИ ДОСТ... 57086
Создание потоко... 56465
Пример работы с... 54337
Имитационное мо... 52534
Реклама
Сейчас на сайте
Гостей: 13
На сайте нет зарегистрированных пользователей

Пользователей: 13,065
новичок: railval
Новости
Реклама
Выполняем курсовые и лабораторные по разным языкам программирования
Подробнее - курсовые и лабораторные на заказ
Delphi, Turbo Pascal, Assembler, C, C++, C#, Visual Basic, Java, GPSS, Prolog, 3D MAX, Компас 3D
Заказать программу для Windows Mobile, Symbian

Моделирование автомойки на GPSS + Отчет + Блок схемы
Моделирование работы крупного аэропорта на GPSS + Пояснительная записка
Моделирование работы участка термической обработки шестерен на GPSS + По...

Реклама



Подписывайся на YouTube канал о программировании, что бы не пропустить новые видео!

ПОДПИСЫВАЙСЯ на канал о программировании
ПРЕОБРАЗОВАНИЕ АРИФМЕТИЧЕСКИХ ВЫРАЖЕНИЙ
Рассмотрим арифметическое выражение, составленное из функторов * и +, имеющих по два аргумента. Пусть мы хотим отобразить одно выражение в другое, устраняя при этом все умножения на 1. Это алгебраическое приведение могло быть определено с помощью предиката 'п' такого, что 'п'(ОР,L,R,ANS) означает, что выражение, состоящее из операции ОP с левым аргументом L и правым аргументом R, приводится к упрощенному выражению ANS. Факты, необходимые для устранения умножения на 1, могли бы выглядеть так (из-за коммутативности умножения нужны два факта):
'п'(*,1,Х,Х).
'п'(*,Х,1,Х).



Эта таблица упрощений позволяет нам любое выражение вида 1*Х отобразить в Х. Посмотрим, как можно воспользоваться этим в программе.
При приведении выражения Е с помощью таблицы упрощений мы вначале должны привести левый аргумент Е, затем привести правый аргумент Е и, наконец, посмотреть, подходит ли этот приведенный результат под случаи, предусмотренные в нашей таблице. Если это так, то мы порождаем новое выражение в соответствии с указаниями таблицы. В качестве "листьев" дерева, представляющего выражение, фигурируют целые числа или атомы, поэтому для приведения листьев к ним самим в граничном условии мы должны использовать встроенный предикат atomic. Целевое утверждение atomic(X) согласуется с базой данных, если на текущий момент Х обозначает либо целое число, либо атом. Чтобы разложить выражение Е на функтор и компоненты, будем использовать предикат '=..'.
'привести'(Е,Е) :- atomic(Е),!.
'привести'(Е,F) :-Е=..[ОР,L,R],'привести'(L,Х),'привести'(R,Y),
'п'(ОР,Х,Y,F).



Итак, предикат 'привести' отображает выражение Е в выражение F, используя для этого факты, имеющиеся в таблице упрощений 'п'. А что делать, если невозможны такие упрощения? Чтобы избежать в этом случае неудачного завершения 'п'(OP,X,Y,F), мы должны поместить в конец каждого раздела таблицы упрощений, относящегося к определенному оператору, правило-ловушку. Приведенная таблица упрощений содержит правила для сложения и умножения. Кроме того, в ней выделены правила ловушки для каждого вида операций.
'п'(+,Х,0,Х).
'п'(+,0,Х,Х).
'п'(+,Х,Y,Х+Y)./* ловушка
для + */
'п'(*,_,0,0).
'п'(*,0,_,0).
'п'(*,1,Х,Х).
'п'(*,Х,1,Х).
'п'(*,Х,Y,Х*Y)./* ловушка
для * */



При наличии правил-ловушек возникает вопрос о выборе способа упрощения некоторых выражений. Например, если нам дано выражение 3+0, мы можем либо использовать первый факт, либо применить правило-ловушку для +. Благодаря способу упорядочения фактов, прежде чем применить правило-ловушку, Пролог всегда будет пытаться применить правило для специальных случаев.











Опубликовал Kest November 18 2009 11:33:36 · 0 Комментариев · 7193 Прочтений · Для печати

• Не нашли ответ на свой вопрос? Тогда задайте вопрос в комментариях или на форуме! •


Комментарии
Нет комментариев.
Добавить комментарий
Имя:



smiley smiley smiley smiley smiley smiley smiley smiley smiley
Запретить смайлики в комментариях

Введите проверочный код:* =
Рейтинги
Рейтинг доступен только для пользователей.

Пожалуйста, залогиньтесь или зарегистрируйтесь для голосования.

Нет данных для оценки.
Гость
Имя

Пароль



Вы не зарегистрированны?
Нажмите здесь для регистрации.

Забыли пароль?
Запросите новый здесь.
Поделиться ссылкой
Фолловь меня в Твиттере! • Смотрите канал о путешествияхКак приготовить мидии в тайланде?
Загрузки
Новые загрузки
iChat v.7.0 Final...
iComm v.6.1 - выв...
Visual Studio 200...
CodeGear RAD Stud...
Шаблон для новост...

Случайные загрузки
Visual Basic for ...
DiZsubmit
Swing. Эффектные...
WinAmp
Библия хакера 2. ...
Geo-Whois
Plasma
Рисование PopupMenu
SynEdit
ActiveX в Delphi
39 статьи по Delphi
Delphi 2005 Учимс...
IPAddresseEdit
PHP 5 в подлинник...
Программирование ...
UmEdit
Blobs [Исходник н...
FileFind
Формирование отче...
Delphi 6. Учебный...

Топ загрузок
Приложение Клие... 100376
Delphi 7 Enterp... 83135
Converter AMR<-... 20046
Borland C++Buil... 11186
GPSS World Stud... 10962
Borland Delphi ... 8131
Turbo Pascal fo... 6973
Visual Studio 2... 4964
Калькулятор [Ис... 4376
FreeSMS v1.3.1 3510
Случайные статьи
Matrix: срезка дву...
Операнды памяти
Программа ,имитиру...
Вспомогательные пр...
Error In statement
Удаления ненужных ...
Форматы таблиц
Трёхмерные построе...
участвует агент SN...
Вычислить среднее ...
InfoSeek Express 2.2
Динамические маршр...
Иногда поддерживаю...
9.4. Принципы
Перегрузка шаблоно...
Black SEO
После утверждения ...
Фильтр
Добавление и измен...
Выбор качества соз...
9.3. Запись грамм...
Распространение по...
TRANSFER (ПЕРЕДАТЬ)
В среде Active Dir...
Проектирование про...
Статистика



Друзья сайта
Программы, игры


Полезно
В какую объединенную сеть входит классовая сеть? Суммирование маршрутов Занимают ли таблицы память маршрутизатора?