Курсовая работа: Применение методов распространения ограничений при поиске допустимых решений

Название: Применение методов распространения ограничений при поиске допустимых решений
Раздел: Рефераты по информатике
Тип: курсовая работа

Курсовая работа

Применение методов распространения ограничений
при поиске допустимых решений

Ярошук Юлия Викторовна – студентка 4 курса специальности «Экономическая кибернетика»

Печко Елена Владимировна – преподаватель кафедры математического моделирования

Брест 2010


СОДЕРЖАНИЕ

ВВЕДЕНИЕ. 3

1 ОБЩИЕ СВЕДЕНИЯ ОБ ИНТЕРВАЛЬНОЙ АРИФМЕТИКЕ. 4

1.1 Интервальная арифметика. Интервальные числа. 4

1.2 Стандартная интервальная арифметика. 5

1.3 Интервальная арифметика с нестандартными вычитанием и делением. 6

1.4 Теоретические аспекты методов распространения ограничений. 7

2 МЕТОДЫ РАСПРОСТРАНЕНИЯ ОГРАНИЧЕНИЙ.. 9

2.1 Алгоритм Indigo. 9

2.2 Реализация на ЭВМ алгоритма Indigo. 12

2.3 Алгоритм Incremental Hierarchical Constraint Solver (IHCS)14

ЗАКЛЮЧЕНИЕ. 17

СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ.. 18

ПРОЛОЖЕНИЕА. Текст программы на Delphi19


ВВЕДЕНИЕ

Распространение ограничений (иногда также называемое удовлетворением ограничениям или программированием в ограничениях) является одной из наиболее интенсивно развивающихся областей искусственного интеллекта, связанной с решением разнообразных задач. Представление проблемы в виде задачи распространения ограничений позволяет применять для ее решения наряду со специальными методами прикладной области достаточно эффективные и универсальные методы решения задач распространения ограничений. В настоящее время техника распространения ограничений все чаще используется как основа для решения различных прикладных задач, таких как временные рассуждения, задачи ресурсного и календарного планирования, математическое и инженерное моделирование, задачи на графах и т.д. Поэтому естественным является большое внимание, уделяемое исследованию и методов решения задач удовлетворения ограничений.

Как правило, эти задачи представляют собой совокупность уравнений и неравенств, связывающих некоторые непрерывные переменные, хотя иногда ограничения могут задаваться в виде таблиц, а также включать целочисленные переменные.

Целью данной курсовой работы является рассмотрение применения методов распространения ограничений при поиске допустимых решений.

Курсовая работа состоит из двух частей.

В первое части рассмотрены теоретические аспекты задачи распространения ограничений, а также общие сведения об интервальной арифметике.

Во второй части рассмотрены два алгоритма распространения ограничений Indigoи IHCS(IncrementalHierarchicalConstraintSolver.


1 ОБЩИЕ СВЕДЕНИЯ ОБ ИНТЕРВАЛЬНОЙ АРИФМЕТИКЕ

1.1 Интервальная арифметика. Интервальные числа

Пусть – множество всех вещественных чисел. Под интервалом понимается замкнутое ограниченное подмножество вида .

Множество всех интервалов обозначим через . Элементы обычно записывают прописными буквами. Если – элемент , , то его левый и правый концы обозначаются как . Элементы называются интервальными числами .

Символы и т. п. понимаются в обычном теоретико-множественном смысле, причем обозначает не обязательно строгое включение, то есть соотношение допускает равенство интервалов. Два интервала и равны тогда и только тогда, когда .

Отношение порядка на множестве определяется следующим образом: тогда и только тогда, когда . Возможно так же упорядочение по включению: не превосходит , если .

Пересечение интервалов и пусто, если или, в противном случае – снова интервал.

Симметричным является интервал , у которого .

Шириной интервала называется величина

. (1.1)

Середина есть полусумма концов интервала

: . (1.2)

Абсолютная величина определяется как

. (1.3)

Наконец, . Нетрудно заметить, что , когда , причем , если и .

Расстояние между элементами вводится равенством .

Вырожденныйинтервал , то есть интервал с совпадающими концами , отождествим с вещественным числом . Таким образом, .

1.2 Стандартная интервальная арифметика

Арифметические операции над интервальными числами определяются следующим образом. Пусть , . Тогда

, (1.4)

причем в случае деления .

Легко проверить, что определение (1.4) эквивалентно соотношениям

, (1.5)

, (1.6)

, (1.7)

. (1.8)

Заметим, что операцию вычитания можно выразить через сложение и умножение, положив и .

В зависимости от знака чисел правило (1.7) для интервального умножения будет выглядеть так (мы полагаем ):

1.

2.

3.

4.

5.

6.

7.

8.

9. .

Отсюда видно, что только в одном (последнем) случае для нахождения произведения требуется четыре умножения, а в остальных достаточно двух умножений.

Если и – вырожденные интервалы, то равенства (1.5) – (1.8) совпадают с обычными арифметическими операциями над вещественными числами. Таким образом, интервальное число есть обобщение вещественного числа, а интервальная арифметика – обобщение вещественной.

Из определения (1.4) непосредственно видно, что интервальные сложение и умножение ассоциативны и коммутативны, иначе говоря, для имеют место равенства

,

.

Роль нуля и единицы играют обычные 0 и 1, которые, как отмечалось, отождествляются с вырожденными интервалами и . Другими словами,

для любого . В дальнейшем точку для обозначения умножения будем, как правило, опускать.

Равенство (1.4) (как и (1.5) – (1.8)) показывает, что если один из операндов является невырожденным интервалом, то результат арифметической операции также невырожденный интервал. Исключение составляет умножение на . Отсюда, в частности, следует, что для невырожденного интервала не существует обратных по сложению и умножению элементов, так как если , то должны быть в силу сказанного вырожденными,
т.е вычитание не обратно сложению, деление не обратно умножению. Значит, , когда . Понятно, однако, что всегда .

1.3 Интервальная арифметика с нестандартными вычитанием и делением

Нестандартные операции вычитания и деления , определенные для элементов , вводятся следующим образом:

,

,

Обозначим и укажем некоторые свойства, связанные с операциями и .

1. .

2. , , для (по определению ).

3. Из равенства не следует ; например, .

4. Для уравнение имеет единственное решение: .

5. Для уравнение имеет решение . В случае у этого уравнения есть еще одно решение: .

6. Уравнение имеет решение . Если , то существует еще одно решение: .

7. тогда и только тогда, когда или , или .

8. .

9. , для (по определению ).

10. Из равенства не следует ; например, .

Определим для элементов функцию следующим образом:

.

11. Уравнение при имеет решение тогда и только тогда, когда , которое выражается в виде .

12. Уравнение при имеет решение . Если , то существует еще одно решение: .

13. Уравнение имеет решение . Если , то имеется еще одно решение: .

14. тогда и только тогда, когда или , или .

1.4 Теоретические аспекты методов распространения ограничений

Областью определения переменной называется множество всех возможных значений, которые могут быть присвоены этой переменной. Обозначается . Если же является непрерывной переменной, то соответствующая область содержит бесконечное число элементов, являющихся вещественными числами, большинство из которых не представимо в компьютере. Так как на компьютере можно представить только множество чисел с плавающей запятой, то тем самым в практических приложениях бесконечная область значений непрерывной переменной заменяется конечной.Мы будем обозначать множество чисел с плавающей запятой через FP . Таким образом, для вещественных чисел, не входящих во множество FP , мы используем аппроксимацию элементами из FP [1].

Самым точным и надежным с вычислительной точки зрения является представление вещественного числа интервалом . Таким образом, мы аппроксимируем бесконечное множество значений конечным, заменяя одним элементом бесконечное множество значений, лежащих в данном интервале и не являющихся элементами из FP . Таким образом, мы используем описанные в предыдущей главе методы интервальной математики для определения значений переменных и нахождения значений ограничений, то есть в этом случае результатом вычисления значения левой части отношения будет некоторый интервал.

Пусть мы имеем ограничение , заданное в виде отношения равенства .

Будем говорить, что отношение на множестве непрерывных переменных справедливо для множества значений , где каждое есть интервал, если .

Численной задачей удовлетворения ограничений (ЧЗУО) называется тройка ,

где – конечное множество переменных ,

– функция, отображающая каждую переменную из на множество объектов произвольного типа:

Будем рассматривать как множество объектов, отображенных из функцией . Эти объекты называются значениями переменной , а множество – областью [1].

– конечное (возможно пустое) множество ограничений на произвольном подмножестве переменных из .

Решением численной ЗУО называется множество значений переменных , такое что и все ограничения из удовлетворяются.

2 МЕТОДЫ РАСПРОСТРАНЕНИЯ ОГРАНИЧЕНИЙ

2.1 Алгоритм I ndigo

Входными данными для алгоритма Indigo является множество ограничений, включая равенства и неравенства, и набор переменных. Алгоритм определяет оптимальный интервал для всей системы.

Выполнение алгоритма происходит от самого сильного ограничения к самому слабому, в ходе которого мы пытаемся удовлетворить каждое ограничение путем сжимания границ переменных, входящих в него. Сжимание границ одних переменных ограничения может стать причиной сжимания границ других переменных. Для реализации этого алгоритм содержит очередь ограничений, которые необходимо проверить. Изначально очередь содержит только исходные ограничения . Если мы можем сжать границы любой переменной ограничения , мы добавляем в очередь другие ограничения, содержащие эту переменную. Продолжаем обрабатывать ограничения из очереди до тех пор, пока она не станет пустой. После того, как все ограничения были обработаны, мы получаем значения всех переменных [3].

Псевдокод алгоритм выглядит следующим образом:

all constraints := list of all constraints, strongest first;

all variables := set of all variables;

active_constraints := new set;

for v in all variables do

initialize v.bounds to unbounded;

end for;

for current constraint in all constraints do

tight_variables := new set;

queue := new queue;

queue.add(current_constraint);

while queue not empty do

cn := queue.front;

tighten_bounds(cn, queue, tight_variables,

active_constraints);

check_constraint(cn, active_constraints);

queue.dequeue;

end while;

end for;

Переменная active_constraints содержит множество ограничений, которые уже были рассмотрены, но которые могут быть рассмотрены опять, если мы сожмем границы одной из переменной ограничений. Во время обработки каждого ограничения очередь (queue ) содержит множество ограничений, границы чьих переменных может потребоваться сжать, и tight_variables – это множество переменных, чьи границы были сжаты во время обработки текущего ограничения. Во время обработки текущего ограничения мы никогда не сжимаем границы одной переменной дважды.

Процедура tighten_bounds сжимает границы переменных ограничения , и добавляет в очередь другие затронутые ограничения. Процедура check _ constraint проверяет на неудовлетворенность требуемые ограничения и также определяет, когда ограничения должны быть добавлены или удалены из множества active _ constraints .

Procedure tighten_bounds(cn, queue, tight variables, active constraints)

for v in cn.variables and v not in tight_variables do

tighten_flag := cn.tighten_bounds_for(v);

tight_variables.add(v);

if tighten_flag then

for c in v.constraints do

if c in active_constraints and c not in queue then

queue.add(c);

end if;

end for;

end if;

end for;

endproceduretighten_bounds;

В процедуре tighten _ bounds процедура tighten _ bounds _ for сжимает границы переданной переменной, на сколько это возможно, и возвращает истину, если границы изменились.

Procedure check_constraint(cn, active constraints)

If cn is unary then

If cn is required and cn is not satisfiable then

exception(required_constraint_not_satisfied);

end if;

return;

end if;

if not all of c’s variables have unique values then

active_constraints.add(cn);

return;

end if;

if cn is satisfied then

active_constraints.delete(cn);

else if cn is required then

exception(required_constraint_not_satisfied);

else exception(constraints_too_difficult);

end if;

end procedure check_constraint;

В процедуре check _ constraint мы в первую очередь смотрим, унарное ли ограничение . Унарным является то ограничение, которое содержат только одну переменную. Унарное ограничение должно быть обработано только один раз, т.к. нет больше причин рассматривать его, потому что его влияние полностью представлено в текущих границах переменной, которую оно содержит. Иначе ограничение является -арным. Если не все переменные имеют уникальные значения, то нам необходимо добавить в active _ constraints , т.к. нам будет необходимо рассмотреть опять, когда границы одной из его переменных будут сжаты. Однако, если все переменные имеют уникальные значения, больше никогда не нужно будет рассматривать, и ограничение нужно удалить из active _ constraints , если оно там находится.

Рассмотрим применение алгоритма Indigo на следующем примере. Пусть нам дана система уравнений

(2.1)

В данной системе первых четыре уравнения являются самыми сильными, т.е. они будут удовлетворятся в первую очередь. Пятое уравнение – строгое, шестое – среднее, а последних четыре являются слабыми.

Ограничения начинают обрабатываться от самого сильного к слабому. Так после обработки неравенства мы сжимаем границыдо . Затем обрабатываем следующее сильное ограничение , сжимая границы к . Оба из этих ограничений одноместны, так что они не добавляются к активным ограничениям. Затем, мы обрабатываем , сжимая границы до . С этого момента переменные этого ограничения имеют уникальную ценность, поэтому мы записываем это ограничение в активные ограничения. Последнее требуемое ограничение – . Мы обрабатываем его и сжимаем границы до , и также добавляем его в активные ограничения.

Теперь переходим к строгому ограничению . Благодаря этому неравенству границы сжимаются до . Сжатие границ приводит к тому, что нам необходимо пересмотреть через неравенство , которое находится в активных ограничениях, т.е. новые границы будут . А так как границы изменились, пересматриваем еще одно активное ограничение , получаем, что границы равны , а границы равны .

Затем мы обрабатываем среднее ограничение . С этих пор границы переменной устанавливаем и сжимаем границы до , до , и до .

Наконец мы обрабатываем самое слабое ограничение . Оно не имеет ни какого значения, в то время как сжимает границы до . Возвращаясь к активным ограничениям, получаем и границы и соответственно. Остающиеся слабые ограничения не имеет никакого значения. Таким образом, мы нашли решение , , , .

2.2 Реализация на ЭВМ алгоритма Indigo

На основе материала данной курсовой работы была разработана программа «Метод Индиго» на языке программирования Delphi, реализующая применение алгоритма Indigo для решения системы ограничений (2.1).

После запуска программы перед пользователем появляется диалоговое окно, наглядный вид которого представлен на рис.2.1.

Рисунок 2.1 – Диалоговое окно метода Indigo

Основная часть данного окна разделена на две составляющие:

– текстовое поле «Условие», предназначенное для ввода исходной системы ограничений;

– текстовое поле «Шаги решения», отображающее этапы решения алгоритма.

При вводе ограничений в текстовое поле «Условие» пользователю необходимо указать статус каждого уравнения: сильное – r, строгое – s, среднее – m или слабое – w (рис. 2.2)

Рисунок 2.2 – Исходные данные

В нижней части диалогового окна расположена кнопка «Решить». При нажатии на данную кнопку в правой части диалогового окна появляются пошаговые изменения переменных системы (рис 2.3), благодаря этому можно проследить на каком этапе и границы какой переменной были сжаты, а также можно увидеть решение системы в диалоговом окне «Решение» (рис. 2.4).

Рисунок 2.3 – Этапы решения

Рисунок 2.4 – Результат реализации алгоритма

Текс программной реализации алгоритма находится в приложении А.

2.3 Алгоритм Incremental Hierarchical Constraint Solver (IHCS)

Incremental Hierarchical Constraint Solver (IHCS) –алгоритмпошаговогоиерархическогорешениясистемыограничений. В алгоритме IHCS, как и в Indigo, система ограничений может содержать как равенства, так и неравенства. Алгоритм базируется на идее преобразования начальной конфигурации , соответствующей иерархии ограничений, в конфигурацию решения. При этом алгоритм обрабатывает ограничения от сильного к слабому. Конфигурация иерархии представляет собой тройку , таких, что их объединение равно , где – хранилище активных ограничений, т.е. тех, которые уже были обработаны и удовлетворены; – хранилище смягченных ограничений, т.е. обработанных, но неудовлетворенных неравенств; – хранилище неисследованных уравнений, которые в дальнейшем будут обработаны.

Псевдокод данного алгоритма выглядит следующим образом:

procedure IHCS(H: constraint hierarchy)

AS•RS•US <- 0•0•H;

while US not empty do

apply forward rule to AS•RS•US, i.e., move c from US to AS

if conflict in AS then

apply backward rule to AS•RS•US;

endif

endwhile

endIHCS

Алгоритм начинается с конфигурации . Затем, поочередно от сильного ограничения к слабому, неравенства перемещают из хранилища неисследованных (изначально ) в хранилище активных (изначально пустого). IHCSразделен на 2 фазы: прямой ход, в ходе которого используется «прямое правило», и обратный ход, соответствующий «обратному правилу», которое вызывается для разрешения любых конфликтов, возникающих во время прямого хода.

Прямой алгоритм – это адаптация алгоритма совместимости по дугам (arc consistency), основанного на распространении ограничений, обобщенного на случай ограничений с произвольным числом переменных. ПрямойходреализуетсяспомощьюфункцииForward .

Function Forward()

while US = cj US do

US ¬ US

AS ¬ ASÈ{cj }

AO ¬ AO+1

AOcj ¬ AO

Enqueue(cj ,Q) ‘Q initially epty

while Dequeue(Q,ck ) do

if not Revise(ck ,Tcj ,Q) then

if not Backward(ck ) then return false

returntrue

Счетчик всякий раз увеличивается на единицу, когда новое ограничение попадает в хранилище активных ограничений, чтобы обновить порядок активации этого ограничения.

Функция Revise осуществляет удаление несовместимых ограничений из области переменных и обновляет информацию о зависимости между ограничениями. Все эти преобразования запоминаются в стеке , а активные ограничения, содержащие затронутые ограничения, ставятся в очередь (очередь распространения). Если там нет значений, удовлетворяющих, тогда Revise возвращает false, иначе true.

Во время работы обратного алгоритма должны выполняться следующие условия:

1. Только ограничения, имеющие отношение к конфликту могут изменить статус (смягчены или деактивированы) для того, чтобы избежать бесполезного поиска.

2. Повторно должна быть достигнута потенциально лучшая конфигурация, чтобы добиться значимого результата.

3. Никакая перспективная конфигурация не должна использоваться повторно, чтобы избежать циклов.

4. Для полноты алгоритма никакая перспективная конфигурация не должна быть пропущена.

5. Должна быть достигнута глобальная совместимость нового хранилища активных ограничений, повторно выполняя при этом как можно меньше работы.

Обратное правило является правилом, которое перемещает ограничения в хранилище неисследованных ограничений. Если текущий конфликт возник не первым, то во время решения предыдущего конфликта обратное правило генерирует перспективную конфигурацию с неисследованными ограничениями.

Ограничения, смягченные в предыдущих конфликтах, следует пересмотреть на предмет реактивации, если некоторые ограничения, вовлеченные в те конфликты, сейчас смягчены. Это даст шанс, что новое смягчение также разрешит эти ранние конфликты, следовательно, позволяет ранее смягченным ограничениям стать активными. За осуществление обратного правила отвечает функция Backward .

И наконец, алгоритм IHCSостанавливается, как только конфигурация становится .

Рассмотрим следующий пример:

при этом начальные значения и равны .

В данной системе ограничений первых два неравенства являются строгими, а вторые два – слабыми. На первом шаге первое сильное ограничение помещается в хранилище . Затем оно попадает в , где проверяются значения параметров и . , тогда по правилу разности интервалов получим , далее находим пересечение . Таким образом, получили новые границы : . Аналогично для получаем .

На втором шаге из в попадает второе ограничение . Попробуем удовлетворить его. По правилу умножения и разности интервалов: . Как видно это неравенство не удовлетворяется, поэтому оно перемещается в хранилище .

Учитывая третье ограничение , мы пересчитываем границы и , откуда получаем и соответственно. Рассматривая последнее ограничение, можно сделать вывод, что это ограничение у нас, также как и второе, не удовлетворяется.


ЗАКЛЮЧЕНИЕ

В данной курсовой работе были рассмотрены основные понятия интервальной арифметики и задачи распространения ограничений.

Задачи распространения ограничений над непрерывными областями обычно называются численными задачами удовлетворения ограничений. Задачи этого класса могут быть использованы для представления большого количества описывающих физические или химические явления моделей, в частности моделей с неточными данными или частично определенными параметрами.

Для решения задач распространения ограничений существует различное множество алгоритмов. В курсовой работе были рассмотрены два из них: алгоритм распространения ограничений Indigo и IHCS (IncrementalHierarchicalConstraintSolver). Алгоритм Indigo заключается в том, что при обработке ограничений от самого сильного к самому слабому мы пытаемся удовлетворить каждое ограничение путем сжимания границ переменных, входящих в него, при этом сжимание границ одних переменных ограничения может стать причиной сжимания границ других переменных. Для выполнения этих действий в алгоритме используется очередь ограничений, которые необходимо проверить. Изначально очередь содержит только исходные ограничения . Если мы можем сжать границы любой переменной ограничения , мы добавляем в очередь другие ограничения, содержащие эту переменную. Алгоритм останавливается, когда очередь становится пустой.

Алгоритм IHCSбазируется на идее преобразования начальной конфигурации , соответствующей иерархии ограничений, в конфигурацию решения. Конфигурация иерархии представляет собой тройку , таких, что их объединение равно . Алгоритм начинается с конфигурации
. Затем, поочередно от сильного ограничения к слабому, неравенства перемещают из хранилища неисследованных (изначально ) в хранилище активных (изначально пустого). IHCSостанавливается, как только конфигурация становится .

Рассматривая эти два алгоритма можно сказать, что Indigo достаточно легок в понимании и прост в реализации, по сравнению с IHCS. В данной курсовой работе был реализован алгоритм Indigo на языке программирования Delphi (см. Приложение А). В дальнейшем планируется реализовать IHCS и сравнить результаты, получаемые с помощью двух алгоритмов.


СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ

1. Семенов, А.Л. Методы распространения ограничений: основные концепции / А.Л. Семенов // Международное совещание по интервальной математике и методам распространения ограничений: труды совещания. – Новосибирск. – 2003. – С. 6–20.

2. Лоенко, М. Решение систем нелинейных уравнений методами интервального распространения ограничений / М. Лоенко // Новосибирский филиал Российского научно-исследовательского института искусственного интеллекта. – Россия. – Том 7. – №2. – 2002.– С.84–93.

3. Borning, A. The Indigo Algorithm / A. Borning, R. Anderson, B. Freeman-Benson // TR 96-05-01, Department of Computer Science and Engineering, University of Washington. – 1996.

4. Menezes, F. Incremental Hierarchical Constraint Solver (IHCS) / F. Menezes, P. Barahoma, P. Codognet // An Incremental Hierarchical Constraint Solver, in: Proceedings of PPCP93, – Newport, 1993. – pp. 190-199.

5. Barták, R. Constraint Guide – Constraint Hierarchy Solvers / R. Barták // Guide to Constraint Programming [Электронныйресурс]. – 1998. – Режимдоступа : http://kti.mff.cuni.cz/~bartak/constraints/ch_solvers.html. – Датадоступа : 25.04.2010.


ПРОЛОЖЕНИЕ А

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, UMathParser, MyFunctions;

type

TForm1 = class(TForm)

Button1: TButton;

GroupBox1: TGroupBox;

ListBox1: TListBox;

GroupBox3: TGroupBox;

Memo1: TMemo;

procedure Button1Click(Sender: TObject);

private { Private declarations }

public { Public declarations }

end;

TConstraint = class

constructor Create(Constraint : string);

destructor Free;

function TightenBoundsForEqual(V : string) : boolean;

function TightenBoundsForNoEqual(V : string) : boolean;

function TightenBoundsForWeakEqual(V : string) : boolean;

function TightenBoundsFor(V : string) : boolean;

function IsElemInVars(Elem : string) : boolean;

public

Prior : char; // приоритет ограничения

CType : char; // тип ограничения <= = >= 'l' 'e' 'm'

Variables : TSArray; // переменные

VarCount : integer; // число переменных

LPart, RPart : TMathParser;

end;

TVariable = class

VarName : string;

LBound, RBound : extended; // границы интервала

constructor Create(pName: string; pLBound, pRBound: extended);

destructor Free;

procedure SetBounds(pLBound,pRBound : extended);

end;

TConstraintList = record

Count : integer;

List : array of TConstraint;

end;

TVariableList = record

Count : integer;

List : array of TVariable;

end;

const

LInfinity = -1e50; // минус бесконечность

RInfinity = 1e50; // плюс бесконечность

var Form1: TForm1;

implementation

uses CQueue, CSet, Math, VSet, Unit2;

{$R *.dfm}

var ConstraintList : TConstraintList; // список ограничений

VariableList : TVariableList; // список переменных

constructor TConstraint.Create(Constraint : string);

var SLPart, SRPart : string;

SVar : string;

begin

GetLeftAndRightParts(Constraint,SLPart,SRPart,Prior,CType);

GetVarList(Constraint,Variables,VarCount,SVar);

LPart:=TMathParser.create;

RPart:=TMathParser.create;

LPart.Translate(SLPart,SVar);

RPart.Translate(SRPart,SVar);

end;

destructor TConstraint.Free;

begin

VarCount:=0;

Variables:=nil;

LPart.Free;

RPart.Free;

end;

// возвращает указатель на переменную с именем Name

Function GetPVariable(Name : string) : TVariable;

var i : integer;

begin

i:=0;

while VariableList.List[i].VarName <> Name do

inc(i);

Result:=VariableList.List[i];

end;

Function Svertka(var OldL, OldR: extended; NewL, NewR: extended): boolean;

var tempL, tempR : extended;

begin

tempL:=OldL;

tempR:=OldR;

if NewL <= NewR then

begin

if NewR < OldL then

OldR:=OldL

else

if OldR < NewL then

OldL:=OldR // свертка

else

begin

OldL:=max(OldL,NewL);

OldR:=min(OldR,NewR);

end;

end;

if (tempL <> OldL) or (tempR <> OldR) then

Result:=true

else

Result:=false;

end;

// СЖАТИЕ ПЕРЕМЕННЫХ ДЛЯ РАВЕНСТВА

Function TConstraint.TightenBoundsForEqual(V : string) : boolean;

type ArrayOfE = array of extended;

var Number : integer; // номер переменной v в списке переменных

i : integer;

NumberArray : ArrayOfE;

IndexMassiv : ArrayOfE;

Svob : extended; // свободный член

PVar,tempP : TVariable;

tempLBound, tempRBound, Coef : extended;

Function FillArray(Place : integer; Chislo : integer) : ArrayOfE;

var i : integer;

begin

for i:=0 to VarCount-1 do

NumberArray[i]:=0;

NumberArray[Place]:=Chislo;

Result:=NumberArray;

end;

begin

Number:=0;

while Variables[Number] <> V do

inc(Number);

SetLength(NumberArray,VarCount);

SetLength(IndexMassiv,VarCount); // получаем коэффициенты

for i:=0 to VarCount-1 do

IndexMassiv[i]:=LPart.Get(FillArray(i,1)) - LPart.Get(FillArray(i,0)) -
RPart.Get(FillArray(i,1)) + RPart.Get(FillArray(i,0));

Svob:=LPart.Get(FillArray(0,0)) - RPart.Get(FillArray(0,0));

if IndexMassiv[Number] < 0 then

begin

for i:=0 to VarCount-1 do

IndexMassiv[i]:=-IndexMassiv[i];

Svob:=-Svob;

end;

Coef:=IndexMassiv[Number];

PVar:=GetPVariable(V);

tempLBound:=-Svob/Coef;

tempRBound:=-Svob/Coef;

for i:=0 to VarCount-1 do

if i <> Number then

begin

tempP:=GetPVariable(Variables[i]);

if IndexMassiv[i] > 0 then

begin

tempLBound:=tempLBound - IndexMassiv[i]*tempP.RBound/coef;

tempRBound:=tempRBound - IndexMassiv[i]*tempP.LBound/coef;

end

else

begin

tempLBound:=tempLBound - IndexMassiv[i]*tempP.LBound/coef;

tempRBound:=tempRBound - IndexMassiv[i]*tempP.RBound/coef;

end;

end;

Result:=Svertka(PVar.LBound,PVar.RBound,tempLBound,tempRBound);

end;

// СЖАТИЕ ПЕРЕМЕННЫХ ДЛЯ НЕРАВЕНСТВА

Function TConstraint.TightenBoundsForNoEqual(V : string) : boolean;

var PVar : TVariable;

begin

PVar:=GetPVariable(V);

if CType = 'l' then

PVar.RBound:=RPart.Get([1])

else

PVar.LBound:=RPart.Get([1]);

Result:=True;

end;

// СЖАТИЕ ПЕРЕМЕННЫХ ДЛЯ СЛАБЫХ РАВЕНСТВ

Function TConstraint.TightenBoundsForWeakEqual(V : string) : boolean;

var PVar : TVariable;

begin

PVar:=GetPVariable(V);

Result:=Svertka(PVar.LBound,PVar.RBound,RPart.Get([1]),
RPart.Get([1]));

end;

// СЖАТИЕ ПЕРЕМЕННЫХ

Function TConstraint.TightenBoundsFor(V : string) : boolean;

var t : TVariable;

Procedure ShowSteps;

var NewString : string;

i : integer;

IsNew : boolean;

begin

IsNew:=True;

t:=GetPVariable(V);

NewString:=t.VarName + ': [' + FloatToStr(t.LBound) + '; '
+ FloatToStr(t.RBound) + ']';

for i:=0 to Form1.ListBox1.Count-1 do

if Form1.ListBox1.Items.Strings[i] = NewString then

begin

IsNew:=False;

break;

end;

if IsNew then

Form1.ListBox1.Items.Append(NewString);

end;

begin

if (CType = 'l') or (CType = 'm') then

Result:=TightenBoundsForNoEqual(V)

else

if Prior <> 'w' then

Result:=TightenBoundsForEqual(V)

else

Result:=TightenBoundsForWeakEqual(V);

ShowSteps;

end;

Function TConstraint.IsElemInVars(Elem : string) : boolean;

var temp : boolean;

i : integer;

begin

temp:=False;

for i:=0 to VarCount-1 do

if Variables[i] = Elem then

begin

temp:=true;

break;

end;

Result:=temp;

end;

Procedure TVariable.SetBounds(pLBound, pRBound : extended);

begin

LBound:=pLBound;

RBound:=pRBound;

end;


constructor TVariable.Create(pName : string; pLBound, pRBound : extended);

begin

VarName:=pName;

LBound:=pLBound;

RBound:=pRBound;

end;

destructor TVariable.Free;

begin

end;

Procedure GetConstraintList(FileName : string; var List : TConstraintList);

var i : integer;

s : string;

begin

List.Count:=Form1.Memo1.Lines.Count;

SetLength(List.List,List.Count);

for i:=0 to List.Count-1 do

begin

s:=Form1.Memo1.Lines.Strings[i];

List.List[i]:=TConstraint.Create(s);

end;

end;

Procedure GetVariablesList(CList : TConstraintList; var VarList : TVariableList);

var i,j : integer;

Function IsNewVar : boolean;

var k : integer;

temp : boolean;

begin

temp:=true;

for k:=0 to VarList.Count-1 do

if VarList.List[k].VarName = CList.List[i].Variables[j] then

temp:=False;

Result:=temp;

end;

begin

VarList.Count:=CList.List[0].VarCount;

SetLength(VarList.List,VarList.Count+1);

for i:=0 to VarList.Count - 1 do

VarList.List[i]:=TVariable.Create(CList.List[0].Variables[i],

LInfinity,RInfinity);

for i:=1 to CList.Count-1 do

for j:=0 to CList.List[i].VarCount-1 do

if IsNewVar then

begin

inc(VarList.Count);

SetLength(VarList.List,VarList.Count);

VarList.List[VarList.Count-1]:=
Variable.Create(CList.List[i].Variables[j],LInfinity,RInfinity);

end;

end;

Procedure TightenBounds(cn : TConstraint; var Queue : TQueueOfC;

var TightVariables : TSetOfV; var ActiveConstraints : TSetOfC);

var i,j : integer;

TightenFlag : boolean;

v : string;

begin

for i:=0 to cn.VarCount-1 do

if not TightVariables.IsElemIn(cn.Variables[i]) then

begin

v:=cn.Variables[i];

TightenFlag:=cn.TightenBoundsFor(v);

TightVariables.Add(GetPVariable(v));

if TightenFlag then

for j:=0 to ConstraintList.Count-1 do

begin

if ConstraintList.List[j].IsElemInVars(v) then

if (ActiveConstraints.IsElemIn(ConstraintList.List[j]))

and (not Queue.IsElemIn(ConstraintList.List[j])) then

Queue.Add(ConstraintList.List[j]);

end;

end;

end;

Procedure CheckConstraints(cn : TConstraint; var ActiveConstraints : TSetOfC);

var i : integer;

temp : boolean;

v : TVariable;

begin

temp:=False; // не все переменные имеют уникальные значения

for i:=0 to cn.VarCount-1 do

begin

v:=GetPVariable(cn.Variables[i]);

if v.LBound <> v.RBound then

temp:=True;

end;

if temp then

ActiveConstraints.Add(cn)

else

ActiveConstraints.Delete(cn);

if cn.VarCount = 1 then

ActiveConstraints.Delete(cn);

end;

procedure TForm1.Button1Click(Sender: TObject);

var Queue : TQueueOfC; // очередь ограничений

ActiveConstraints : TSetOfC; // активное множество ограничений

TightVariables : TSetOfV; //

cn : TConstraint;

i : integer;

Procedure ShowDecision;

var i : integer;

begin

for i:=0 to VariableList.Count-1 do

Form2.ListBox2.Items.Append(VariableList.List[i].VarName + ' = '
+ FloatToStr(VariableList.List[i].LBound));

end;

begin

ListBox1.Clear;

Form2.Show;

Form2.ListBox2.Clear;

GetConstraintList('Data.txt',ConstraintList);

GetVariablesList(ConstraintList,VariableList);

ActiveConstraints:=TSetOfC.Create;

for i:=0 to ConstraintList.Count-1 do

begin

TightVariables:=TSetOfV.Create;

Queue:=TQueueOfC.Create;

Queue.Add(ConstraintList.List[i]);

while not Queue.IsEmpty do

begin

cn:=Queue.Front;

TightenBounds(cn,Queue,TightVariables,ActiveConstraints);

CheckConstraints(cn,ActiveConstraints);

Queue.Dequeue;

end;

end;

ShowDecision;

end;

end.

{=============================================================================}

unit Unit2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm2 = class(TForm)

GroupBox2: TGroupBox;

ListBox2: TListBox;

private { Private declarations }

public { Public declarations }

end;

var

Form2: TForm2;

implementation

{$R *.dfm}

end.

{=============================================================================}

unit MyFunctions;

interface

type

TSArray = array of string;

Procedure GetLeftAndRightParts(var Constraint : string;

var LPart, RPart: string; var Prior, CType: char);

Procedure GetVarList(Constraint : string; var Variables : TSArray;

var VarCount: integer; var SVar: string);

implementation

// ВЫРЕЗАЕМ ЛЕВУЮ И ПРАВУЮ ЧАСТЬ В ОГРАНИЧЕНИИ, ОПРЕДЕЛЯЕМ ПРИОРИТЕТ И ТИП

Procedure GetLeftAndRightParts(var Constraint : string;

var LPart, RPart: string; var Prior, CType: char);

var i : integer;

begin

Prior:=Constraint[1]; // приоритет

Delete(Constraint,1,2);

i:=pos('<=',Constraint);

if i>0 then

begin

CType:='l';

LPart:=Copy(Constraint,1,i-1);

RPart:=Copy(Constraint,i+2,Length(Constraint)-i-1);

end

else

begin

i:=pos('>=',Constraint);

if i>0 then

begin

CType:='m';

LPart:=Copy(Constraint,1,i-1);

RPart:=Copy(Constraint,i+2,Length(Constraint)-i-1);

end

else

begin

i:=pos('=',Constraint);

CType:='e';

LPart:=Copy(Constraint,1,i-1);

RPart:=Copy(Constraint,i+1,Length(Constraint)-i);

end;

end;

end;

// ПОЛУЧАЕМ СПИСОК ПЕРЕМЕННЫХ

Procedure GetVarList(Constraint : string; var Variables : TSArray;

var VarCount: integer; var SVar: string);

var NumbersSet : set of char;

s : string;

LengthS, i, j : integer;

begin

NumbersSet:=['0'..'9','<','=','>','-','+','*',' '];

VarCount:=0;

s:=Constraint + '+';

lengthS:=length(s);

i:=1;

while i<lengthS do

begin

while (s[i] in NumbersSet) and (i<lengthS) do

inc(i);

j:=i;

while (not(s[i] in NumbersSet)) and (i<lengthS) do

inc(i);

if i > j then

begin

inc(VarCount);

SetLength(Variables,VarCount);

Variables[VarCount-1]:=Copy(s,j,i-j);

end;

end;

SVar:='';

for i:=0 to VarCount-1 do

SVar:=SVar + ',' + Variables[i];

Delete(SVar,1,1);

end;

end.

{=============================================================================}

unit CSet;

interface

uses Unit1;

type

TSetOfC = class

Count : integer;

Constraints : array of TConstraint;

constructor Create;

destructor Free;

procedure Add(Elem : TConstraint);

function IsElemIn(Elem : TConstraint) : boolean;

procedure Delete(cn : TConstraint);

end;

implementation


Constructor TSetOfC.Create;

begin

Count:=0;

end;

Destructor TSetOfC.Free;

begin

Count:=0;

Constraints:=nil;

end;

Procedure TSetOfC.Add(Elem : TConstraint);

begin

inc(Count);

SetLength(Constraints,Count);

Constraints[Count-1]:=Elem;

end;

Function TSetOfC.IsElemIn(Elem : TConstraint) : boolean;

var i : integer;

temp : boolean;

begin

temp:=False;

for i:=0 to Count-1 do

if Constraints[i] = Elem then

begin

temp:=True;

break;

end;

Result:=temp;

end;

Procedure TSetOfC.Delete(cn : TConstraint);

var i,j : integer;

begin

for i:=0 to Count-1 do

if cn = Constraints[i] then

begin

for j:=i to Count-2 do

Constraints[j]:=Constraints[j+1];

Dec(Count);

SetLength(Constraints,Count);

break;

end;

end;

end.

{=============================================================================}

unit CQueue;

interface

uses Unit1;

type

TQueueOfC = class

Count : integer;

Constraints : array of TConstraint;

constructor Create;

destructor Free;

procedure Add(Elem : TConstraint);

procedure Dequeue;

function IsEmpty : boolean;

function Front : TConstraint;

function IsElemIn(Elem : TConstraint) : boolean;

end;

implementation

Constructor TQueueOfC.Create;

begin

Count:=0;

end;

Destructor TQueueOfC.Free;

begin

Count:=0;

Constraints:=nil;

end;

Procedure TQueueOfC.Add(Elem : TConstraint);

begin

inc(Count);

SetLength(Constraints,Count);

Constraints[Count-1]:=Elem;

end;

Procedure TQueueOfC.Dequeue;

var i : integer;

begin

for i:=0 to Count-2 do

Constraints[i]:=Constraints[i+1];

dec(Count);

SetLength(Constraints,Count);

end;

Function TQueueOfC.IsEmpty : boolean;

begin

if Count = 0 then

Result:=True

else

Result:=False;

end;

Function TQueueOfC.Front : TConstraint;

begin

Result:=Constraints[0];

end;

Function TQueueOfC.IsElemIn(Elem : TConstraint) : boolean;

var i : integer;

temp : boolean;

begin

temp:=False;

for i:=0 to Count-1 do

if Constraints[i] = Elem then

begin

temp:=True;

break;

end;

Result:=temp;

end;

end.

{=============================================================================}

unit VSet;

interface

uses Unit1;

type

TSetOfV = class

Count : integer;

Variables : array of TVariable;

constructor Create;

destructor Free;

procedure Add(Elem : TVariable);

function IsElemIn(v : string) : boolean;

end;

implementation

Constructor TSetOfV.Create;

begin

Count:=0;

end;

Destructor TSetOfV.Free;

begin

Count:=0;

Variables:=nil;

end;

Procedure TSetOfV.Add(Elem : TVariable);

begin

inc(Count);

SetLength(Variables,Count);

Variables[Count-1]:=Elem;

end;

function TSetOfV.IsElemIn(v : string) : boolean;

var i : integer;

temp : boolean;

begin

temp:=False;

for i:=0 to Count-1 do

begin

if Variables[i].VarName = v then

temp:=True;

break;

end;

Result:=temp;

end;

end.