Министерство образования Украины
Севастопольский Государственный Технический

Университет
 
                                                                                        Департамент ИС
 

ИСПОЛЬЗОВАНИЕ табличного симплекс - метода для РЕШЕНИЯ ЗАДАЧ

 ЛИНЕЙНОГО ПРОГРАММИРОВАНИЯ

ДЛЯ

ОПТИМИЗАЦИИ ЭКОНОМИЧЕСКИХ задач
Пояснительная записка к курсовой работе

по дисциплине “Методы исследования операций”
Гибкий магнитный диск

59 листов
                                                                Выполнил:    ст. гр. И-22 д

                                                                                      Крыльцова Т.В.

                                                                Принял:       Старобинская Л.П.
Севастополь

1997






- 3 -
СОДЕРЖАНИЕ
    ВВЕДЕНИЕ . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .    5

1. КРАТКИЙ ОБЗОР АЛГОРИТМОВ РЕШЕНИЯ ЗАДАЧ

     ДАННОГО ТИПА . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .      6

       1.1 Математическое программирование . . . . . . . . . . . . . . . . . . .      6

       1.2 Табличный симплекс - метод . . . . . . . . . . . . . . . . . . . . . . . . . .     7

       1.3 Метод искусственного базиса . . . . . . . . . . . . . . . . . . . . . . . . .      8

       1.4 Модифицированный симплекс - метод . . . . . . . . . . . . . . . . .       8

2. СОДЕРЖАТЕЛЬНАЯ ПОСТАНОВКА ЗАДАЧИ . . . . . . . . . . . .    10

3. РАЗРАБОТКА И ОПИСАНИЕ АЛГОРИТМА РЕШЕНИЯ

    ЗАДАЧИ . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .   11

       3.1 Построение математической модели задачи . . . . . . . . . . . . . .   11

       3.2 Решение задачи вручную . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .   12

4. АНАЛИЗ МОДЕЛИ НА ЧУВСТВИТЕЛЬНОСТЬ . . . . . . . . . . . .    16

       4.1 Построение двойственной задачи и её численное

             решение . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .     16

       4.2 Определение статуса ресурсов . . . . . . . . . . . . . . . . . . . . . . . . .     16

       4.3 Определение значимости ресурсов . . . . . . . . . . . . . . . . . . . . . .    17

       4.4 Определение допустимого интервала изменения запаса

            ресурсов . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .      17

      4.5 Исследование зависимости оптимального решения от

            изменений запасов ресурсов . . . . . . . . . . . . . . . . . . . . . . . . . . .      19
- 4 -
5. ГРАФИЧЕСКОЕ ПРЕДСТАВЛЕНИЕ ПОЛУЧЕННЫХ

    РЕЗУЛЬТАТОВ . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .     20   

6. ВЫВОДЫ И РЕКОМЕНДАЦИИ ПО ПРАКТИЧЕСКОМУ

    ИСПОЛЬЗОВАНИЮ . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .     22

    ПРИЛОЖЕНИЕ . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .    23

    ЛИТЕРАТУРА  . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .      11


- 5 -
ВВЕДЕНИЕ
   Цель данного курсового проекта - составить план производства требуемых изделий, обеспечивающий максимальную прибыль от их реализации, свести данную задачу к задаче линейного программирования, решить её              симплекс  -  методом  и  составить программу для решения задачи этим методом  на ЭВМ.


         - 6 -
1.  КРАТКИЙ ОБЗОР АЛГОРИТМОВ РЕШЕНИЯ ЗАДАЧ

     ДАННОГО ТИПА
1.1 Математическое программирование
Математическое программирование занимается изучение экстремальных задач и поиском методов их решения. Задачи математического программирования формулируются следующим образом :  найти экстремум некоторой функции многих переменных f ( x₁, x₂, ... , x_n ) при ограничениях                g_i ( x₁, x₂, ... , x_n ) * b_i ,  где g_i - функция, описывающая ограничения,  *  -  один из следующих знаков £ ,  = ,  ³ ,  а b_i - действительное число, i = 1, ... , m.                      f  называется  функцией цели ( целевая функция ).

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

Задачу линейного программирования можно сформулировать так .  Найти max

при условии :          a₁₁ x₁ + a₁₂ x₂  + . . . + a_1n x_n  £ b₁ ;

                                                   a₂₁ x₁ + a₂₂ x₂  + . . . + a_2n x_n  £ b₂ ;

                                                    _{.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .}

                                  a_m1 x₁ + a_m2 x₂  + . . . + a_mn x_n  £ b_m ;

                                 x₁ ³ 0,   x₂ ³ 0,  _{. . .} ,  x_n ³ 0 _.  

Эти ограничения называются условиями неотрицательности. Если все ограничения заданы в виде строгих равенств, то данная форма называется канонической.

- 7 -
В матричной форме  задачу линейного программировани записывают следующим образом. Найти    max c^T x

при условии

A x  £  b ;

x  ³  0 ,

где А - матрица ограничений размером ( m´n), b^(m´1)  - вектор-столбец свободных членов, x^{(n ´ 1)}  - вектор переменных,  с^Т = [c₁, c₂, ... , c_n ] - вектор-строка коэффициентов целевой функции.

Решение х₀ называется оптимальным, если для него выполняется условие        с^Т х₀  ³ с^Т х ,  для всех х Î R(x).

Поскольку  min f(x)  эквивалентен  max [ - f(x) ] , то задачу линейного программирования всегда можно свести к эквивалентной задаче максимизации. 

Для решения задач данного типа применяются методы:

1) графический;

2) табличный ( прямой, простой ) симплекс - метод;

3) метод искусственного базиса;

4) модифицированный симплекс - метод;

5) двойственный симплекс - метод.

 

       1.2 Табличный симплекс - метод
Для его применения необходимо, чтобы знаки в ограничениях были вида       “ меньше либо равно ”, а компоненты вектора b - положительны.

Алгоритм решения сводится к следующему :

1.    Приведение системы ограничений к каноническому виду путём введения   дополнительных переменных для приведения неравенств к равенствам.

2.    Если в исходной системе ограничений присутствовали знаки “ равно ”

- 8 -
или    “ больше либо равно ”, то в указанные ограничения добавляются

искусственные переменные, которые так же вводятся и в целевую функцию со знаками, определяемыми типом оптимума.

3.    Формируется симплекс-таблица.

4.    Рассчитываются симплекс-разности.

5.    Принимается решение об окончании либо продолжении счёта.

6.    При необходимости выполняются итерации.

7.    На каждой итерации определяется вектор, вводимый в базис, и вектор, выводимый из базиса. Таблица пересчитывается по методу Жордана-Гаусса или каким-нибудь другим способом.
1.3 Метод искусственного базиса
Данный метод решения применяется при наличии в ограничении знаков        “ равно ”, “ больше либо равно ”, “ меньше либо равно ” и является модификацией табличного метода. Решение системы производится путём ввода искусственных переменных со знаком, зависящим от типа оптимума, т.е. для исключения из базиса этих переменных последние вводятся в целевую функцию с большими отрицательными коэффициентами m ,  а в задачи минимизации - с положительными m . Таким образом из исходной получается новая m - задача.

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

       1.4 Модифицированный симплекс - метод

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

В процессе работы алгоритма происходит спонтанное обращение матрицы ограничений по частям, соответствующим текущим базисным векторам. Указанная способность делает весьма привлекательной машинную реализацию вычислений вследствие экономии памяти под промежуточные переменные и значительного сокращения времени счёта. Хорош для ситуаций, когда число переменных n значительно превышает число ограничений m.

В целом, метод отражает традиционные черты общего подхода к решению задач линейного программирования, включающего в себя канонизацию условий задачи, расчёт симплекс-разностей, проверку условий оптимальности, принятие решений о коррекции базиса и исключение Жордана-Гаусса.

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


- 10 -
2. СОДЕРЖАТЕЛЬНАЯ ПОСТАНОВКА ЗАДАЧИ
 Для производства двух видов изделий А и В используется три типа технологического оборудования. На производство единицы изделия А идёт времени, часов :  оборудованием 1-го типа - а₁ ,   оборудованием 2-го типа - а₂ ,  оборудованием 3-го типа - а₃ . На производство единицы изделия В идёт времени, часов :  оборудованием 1-го типа - b₁ ,  оборудованием 2-го типа - b₂ ,_, оборудованием 3-го типа - b₃ .

На изготовление всех изделий администрация предприятия может предоставить оборудование 1-го типа не более, чем на  t₁ ,  оборудование 2-го типа не более, чем на  t₂ ,  оборудование 3-го типа не более, чем на  t₃  часов.

Прибыль от реализации единицы готового изделия А составляет a рублей, а изделия В -  b рублей.

Составить план производства изделий А и В, обеспечивающий максимальную прибыль от их реализации. Решить задачу простым симплекс-методом. Дать геометрическое истолкование задачи, используя для этого её формулировку с ограничениями-неравенствами.

а₁ = 1          b₁ = 5          t₁ = 10          a  = 2

а₂ = 3          b₂ = 2          t₂ = 12          b = 3

а₃ = 2          b₃ = 4          t₃ = 10            
- 11 -
3. РАЗРАБОТКА И ОПИСАНИЕ АЛГОРИТМА РЕШЕНИЯ ЗАДАЧИ
3.1 Построение математической модели задачи

	На произв-во изделия А, часов	На произв-во изделия B, часов	Предпр-е предоставит, часов
Оборуд-е 1го типа	1	5	10
Оборуд-е 2го типа	3	2	12
Оборуд-е 3го типа	2	4	10
Прибыль от реализации, за ед. изд-я	2	3

- 15 -
Так как все симплекс-разности положительны, то оптимальное решение найдено :

X = ( 7/2 ,   3/4 ,   11/4 ,   0 ,   0  )   ( единиц )

max F = 9  1/4  ( рублей )
- 16 -
4. АНАЛИЗ МОДЕЛИ НА ЧУВСТВИТЕЛЬНОСТЬ
       4.1 Построение двойственной задачи и её численное решение
Проведение анализа на чувствительность связано с теорией двойственности, поэтому в курсовой работе необходимо построить двойственную задачу и найти её численное решение.

Для рассматриваемой модели двойственная задача имеет вид :

min  T( y ) = min ( 10y₁ + 12y₂ + 10y₃ )   при условиях

                                                    y₁ + 3y₂ + 2y₃  ³ 2                А₁

                                                                            5y₁ + 2y₂ + 4y₃ ³ 3                А₂

                                               y₁ ³ 0 ,   y₂ ³0 ,   y₃ ³ 0.          А₃,  А₄,  А₅

Оптимальное решение двойственной задачи получается  при решении прямой задачи из последней симплекс-таблицы. В результате получаем оптимальное решение двойственной задачи :

Y_опт = ( 0, 1/4, 5/8, 0, 0 ), для которого Т(y_опт) = 9  1/4.

Оптимальное значение целевой функции в двойственной задачи совпадает с оптимумом целевой функции прямой задачи, в чём не трудно убедиться.
       4.2 Определение статуса ресурсов
Ресурсы относятся к дефицитным, если оптимальный план предусматривает их полное использование, при частичном использовании ресурсов, они считаются не дефицитными. Статус ресурсов для любой модели линейного программирования можно установить непосредственно из оптимальной симплекс-таблицы исходной по значению дополнительных переменных. Положительное значение до -
- 17 -
полнительной переменной указывает на неполное использование соответствующего ресурса, т.е. на его недефицитность, нулевое значение дополнительной переменной указывает на дефицитность ресурса.

Для данного примера  дополнительные переменные х₄  и  х₅ равны нулю, следовательно, оборудование второго и третьего типов являются “дефицитными”, а первого типа - “недефицитным” ( х₃ = 2,75 ). Такой же вывод можно сделать из решения двойственной задачи.
       4.3 Определение значимости ресурсов
Значимость ресурса характеризуется величиной улучшения оптимального значения целевой функции F, приходящейся на единицу прироста данного ресурса. Значимость ресурсов всегда можно определить по значению двойственных переменных в оптимальном решении двойственной задачи.

В данном случае Y_опт = ( 0, 1/4, 5/8, 0, 0 ). Таким образом, из двух “дефицитных” ресурсов оборудование второго типа имеет большую значимость и увеличении интервала работы на этом оборудовании более выгодно с точки зрения влияния на значение целевой функции.
       4.4 Определение допустимого интервала изменения запаса ресурсов
 Изменение отведённого администрацией предприятия времени ( т.е. правых частей ограничений ) может привести к недопустимости текущего решения. Поэтому важно определить диапазон изменений компонент вектора ограничений, в котором допустимость решений не нарушается.

Оборудование второго типа, которое используется для изготовления изделий, является “дефицитным и имеет большую значимость. Определим диапазон допустимых изменений интервала работы на этом оборудовании. Оптимальная
- 18 -
симплекс-таблица задачи имеет вид :

		C	2	3	0	0	0
Б	Cб	A0	A1	A2	A3	A4	A5
A2	3	3/4	0	1	0	-1/4	3/8
A3	0	11/4	0	0	1	3/4	-13/8
A1	2	7/2	1	0	0	1/2	-1/4
	d	9  1/4	0	0	0	1/4	5/8

Так как начальными базисными переменными являлись x₁, x₂, x₃ в оптимальной симплексной таблице в соответствующих столбцах расположена матрица А^-1 Изменим время работы на оборудование второго типа на величину D₂, тогда время работы будет 12 + D₂ .

Найдём базисное решение, соответствующее изменённому времени работы на оборудовании второго типа :


 0.75 - D₂ / 4 ³ 0 ,   D₂ = 3;

2.75 + 3D₂ / 4 ³ 0 ,   D₂ = -3.66;

3.5 + D₂ / 2 ³ 0 ,   D₂ = -7.

Отсюда видно, что    -3.66 £ D₂ £ 3 ,  т.е. 8.34 £ b₂ £ 15 .

Таким образом первоначальный интервал работы на оборудовании второго типа можетбыть увеличен до 15 часов или уменьшен до 8.34 часа без нарушения допустимого решения. Уменьшение времени влечёт за собой уменьшение единиц вырабатываемой продукции, поэтому является не целесообразным.
- 19 -
      4.5 Исследование зависимости оптимального решения от

            изменений запасов ресурсов
Изменение свободного члена ограничения исходной задачи на величину D₂ вызывает изменение целевой функции на DF = D _i  × y _j   .Если приращение времени работы бертся из интервала допустимых изменений, значений двойственных оценок остаются неизменными. Таким образом, изменение целевой функции будет линейно зависеть от изменения времени работы.

В данном примере DF = D _i  × 12 = 12 × D _i   . Ищется зависимость значений целевой функции от изменения времени работы на оборудовании второго типа. Для этого изменяется время работы начиная от 0 часов с шагом h = 0.5  до 3 часов.Результаты измерений приведены в таблице 1.

Таблица      1

D2, часов	0	0.5	1	1.5	2	2.5	3
b2, часов	12	12.5	13	13.5	14	14.5	15
DF, руб.	0	6.25	13	20.25	28	36.25	45
F, руб.	9.25	-	-	-	-	-

Т.к. зависимость F( b₂ ) - линейная, то достаточно подсчитать значение функции в двух крайних точках  интервала.

Cледовательно, с увеличением времени работы на оборудовании второго типа на 2 часа увеличивается и объём  изделий на общей стоимостью 28 рублей.
- 20 -
5. ГРАФИЧЕСКОЕ ПРЕДСТАВЛЕНИЕ ПОЛУЧЕННЫХ

    РЕЗУЛЬТАТОВ
Графический метод применим только для двух и менее переменных х, что подходит к данному заданию.Линии, соответствующие ограничения, строятся на осях Ох. Заштрихованная область - область допустимых стратегий.

x₁  + 5x₂    £    10 ;

3x₁  + 2x₂   £  12 ;     

2x₁  + 4x₂  £  10 .

x₁  ³ 0 ;  x₂ ³ 0 .

1). x₁  + 5x₂    £    10 ;

    x₁ = 0,   x₂  = 2   ;

    x₁ = 10,  x₂  = 0  .

2). 3x₁  + 2x₂   £  12 ;

     x₁ = 0,   x₂  = 6   ;

     x₁ = 4,  x₂  = 0  .

3). 2x₁  + 4x₂  £  10 ;

     x₁ = 0,   x₂  = 2.5   ;

     x₁ = 5,  x₂  = 0  .

4). Найдём экстремум функции :

      F = 2x₁ + 3x₂ ,



Графически область допустимых решений показана на рисунке 1.
- 21 -
Рисунок 1 - Область допустимых решений данной системы.
- 22 -
6. ВЫВОДЫ И РЕКОМЕНДАЦИИ ПО ПРАКТИЧЕСКОМУ

    ИСПОЛЬЗОВАНИЮ
Составление математической модели и решение систем линейных неравенств часто имеет место в реальной жизни. Примеры таких задач :

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

Пример 2.  Группа истребителей поднимается в воздух для перехвата одиночного самолёта противника. Цель операции - сбить самолёт. Показатель эффективности - вероятность поражения цели.

Пример 3. Ремонтная мастерская занимается обслуживанием машин; её рентабельность определяется количеством машин, обслуженных в течение дня. Показатель эффективности - среднее число машин, обслуженных за день.

Пример 4.   Группа радиолокационных станций в определённом районе ведёт наблюдение за воздушным пространством. Задача группы - обнаружить любой самолёт, если он появится в районе. Показатель эффективности - вероятность обнаружения любого самолёта, появившегося в районе.

Пример 5. Предпринемается ряд мер по повышения надёжности электронной цифровой вычислительной техники ( ЭЦВТ ). Цель операции - уменьшить частоту появления неисправностей ( “сбоев” ) ЭЦВТ, или, что равносильно, увеличить средний промежуток времени между сдоями ( “наработку на отказ” ). Показатель эффективности - среднее время безотказной работы ЭЦВТ.

Пример 6. Проводится борьба за экономию средств при производстве определённого вида товара. Показатель эффективности - количество сыкономленных средств.

С помощью анализа модели на чувствительность определить параметр, от которого результат зависит больше и решить, каким способом возможно увеличение эффективности и на сколько, а так же многое другое.
- 23 -
ПРИЛОЖЕНИЕ
- 24 -
СОДЕРЖАНИЕ
    ВВЕДЕНИЕ . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .    25

1. НАЗНАЧЕНИЕ ПРОГРАММЫ. . . . . . . . . . . . . . . . . . . . . . . . . . . .    26

2. УСЛОВИЯ ПРИМЕНЕНИЯ . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .    26

       1.1 Ограничения и область применения . . . . . . . . . . . . . . . . . . . . .     6

       1.2 Требования к техническим средствам . . . . . . . . . . . . . . . . . . . .     7

3. ВХОДНЫЕ И ВЫХОДНЫЕ ДАННЫЕ . . . . . . . . . . . . . . . . . . . . . .     5

4. ИНСТРУКЦИЯ ПОЛЬЗОВАТЕЛЮ . . . . . . . . . . . . . . . . . . . . . . . . .    11

5. ТЕКСТ ИСХОДНОГО МОДУЛЯ . . . . . . . . . . . . . . . . . . . . . . . . . . .     11

6. ОПИСАНИЕ ЛОГИКИ СТРУКТУРНОЙ СХЕМЫ . . . . . . . . . . . .     11

7. ТЕСТОВЫЙ ПРИМЕР. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .     25
- 25 -
    ВВЕДЕНИЕ
В данной части пояснительной записки к курсовой работе представлена и описана программа, релизующая решение систем линейных неравенств табличным методом.
- 26 -
1. НАЗНАЧЕНИЕ ПРОГРАММЫ
Программа предусмотрена для решения систем линейных неравенств табличным методом, а так же для попытки оптимизации различных экономических, социальных и т. д. проблем.

Метод, описанный в программе, может применяться на государственных и частных предприятиях для улучшения эффективности производства.
- 27 -
2. УСЛОВИЯ ПРИМЕНЕНИЯ
       1.1 Ограничения и область применения
Из программных средств требуется операционная система MS DOS                версии 5.0, программная Среда NORTON COMMANDER, язык программирования Borland Pascal 7.0 . Кроме того НГМД должен содержать файлы в директории KURSOVIK:

1. Файл входных данных - KURS97.DAT

2. Программный файл - KURS97.EXE
       1.2 Требования к техническим средствам
IBM PC или IBM PC - совместимый компьютер с дисководом 3.25”  ёмкостью 1.2 Мб.
- 28 -
3. ВХОДНЫЕ И ВЫХОДНЫЕ ДАННЫЕ

                                     

Входные и выходные данные заносятся в файлы KURS97.DAT  и  KURS97.RES соответственно.  Входные данные записываются в определённом порядке. Выходные данные записываются в виде симплекс-таблиц.
- 29 -
4. ИНСТРУКЦИЯ ПОЛЬЗОВАТЕЛЮ
Входные данные вносятся в файл KURS 97.DAT в следующей очерёдности :

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

Результаты вычислений вы найдёте в файле KURS 97.REZ.
- 30 -
5. ТЕКСТ ИСХОДНОГО МОДУЛЯ
Полный текст программы KURS97.PAS выглядит следующим образом :

. program Kurs97;
uses crt;
const

  n = 2;

  m = 3;

  Epsilon = 0.000001;
var

  VectorA              : array [1..m, 0..m+n] of real;

  TargetVector         : array [1..m+n]       of real;

  SimplexVector        : array [0..m+n]       of real;

  DigitOfBasisVector   : array [1..m]         of real;

  BasisVector          : array [1..m]         of integer;
  IndexOfEnterVector  : integer;

  IndexOfOutputString : integer;

  MinimumBuffer       : real;
  key   : char;

  FileOfOutput : text;
{ Описание процедур }
procedure ReadDates; { считывание данных из файла }

var

  DateFile : text;
  procedure ReadDatesTargetVector; { считывание данных целевого вектора }

  var i : integer;

  begin

    for i:=1 to n do Readln(DateFile, TargetVector[i]);

  end;
  procedure ReadDatesVectorA; { считывание вектора А и заполнение единицами диагонали}

  var i,j : integer;

  begin

    for j:=0 to n do

      for i:=1 to m do

        Readln(DateFile, VectorA[i, j]);

    i:=1;

    for j:=n+1 to n+m do
- 31 -
    begin

      VectorA[i, j]:=1;

      inc(i)

    end;

  end;
  procedure ReadDatesBasisVector;

  var i : integer;

  begin

    for i:=1 to m do BasisVector[i]:=n+i;

  end;
begin

  Assign(DateFile, 'kurs97.dat');

  Reset(DateFile);

  ReadDatesTargetVector;

  ReadDatesVectorA;

  ReadDatesBasisVector;

  Close(DateFile);

end;
procedure CountSimplexVector; { расчет симплек-вектора }

var

  i,j      : integer;

  Summa    : real;

  Simplex  : real;

begin

  SimplexVector[0]:=0;

  for i:=1 to m do

    SimplexVector[0]:=SimplexVector[0] + DigitOfBasisVector[i]*VectorA[i, 0];

  for j:=1 to m+n do

  begin

    Summa:=0;

    for i:=1 to m do Summa:=Summa + DigitOfBasisVector[i]*VectorA[i, j];

    SimplexVector[j]:=Summa - TargetVector[j];

    if abs(SimplexVector[j]) <= Epsilon then SimplexVector[j]:=0;

  end;

end;
function GetEnterVector : integer; { поиск вводимого вектора }

var

  i   : integer;

  Min : real;

begin

  GetEnterVector:=1;

  Min:=SimplexVector[1];

  for i:=2 to m+n do

    if Min > SimplexVector[i]

      then

 
- 32 -
    begin

        GetEnterVector:=i;

        Min:=SimplexVector[i];

      end;

end;
function GetOutputString : integer; { поиск выводимой строки }

var

  i   : integer;

  Temp : real;

begin

  GetOutputString:=1;

  if VectorA[1, IndexOfEnterVector] > 0 then MinimumBuffer:=VectorA[1, 0] / VectorA[1, IndexOfEnterVector];

  for i:=2 to m do

  begin

    Temp:=VectorA[i, 0] / VectorA[i, IndexOfEnterVector];

    if Temp > 0 then

    if MinimumBuffer >= Temp then

    begin

      MinimumBuffer:=Temp;

      GetOutputString:=i;

    end;

  end;

end;
procedure ReCountOutputString; { пересчет коэффициентов выводимой строки }

var

  i,j     : integer;

  Buffer  : real;
  procedure ReCountDigitOfBasisVector;

  begin

    DigitOfBasisVector[IndexOfOutputString]:=TargetVector[IndexOfEnterVector];

  end;
  procedure ReCountBasisVector;

  begin

    BasisVector[IndexOfOutputString]:=IndexOfEnterVector;

  end;
begin

  ReCountDigitOfBasisVector;

  ReCountBasisVector;

  Buffer:=VectorA[IndexOfOutputString, IndexOfEnterVector];

  for i:=0 to m+n do

  begin

    VectorA[IndexOfOutputString, i]:=VectorA[IndexOfOutputString, i] / Buffer;

  end;

end;
- 33 -
procedure ReCountVectorA;

var i,j  : integer;

begin

  for j:=0 to m+n do

  begin

    for i:=1 to m do

    begin

      if i <> IndexOfOutputString then

        if j <> IndexOfEnterVector

          then VectorA[i, j]:=VectorA[i, j] - VectorA[i, IndexOfEnterVector]*VectorA[IndexOfOutputString, j];

    end;

  end;

  for i:=1 to m do

    if i <> IndexOfOutputString then VectorA[i, IndexOfEnterVector]:=0;

end;
function AllIsPositiv : boolean;

var i : integer;

begin

  AllIsPositiv:=True;

  for i:=1 to m+n do

    if SimplexVector[i] < 0 then AllIsPositiv:=False;

end;
function ToStr(const D : real) : string;

var S : string;

begin

  str(D:6:2, S);

  ToStr:=' ' + S + ' ';

end;
procedure WriteMatrixs;
  procedure WriteTargetMatrix;

  var i : integer;

  begin

    writeln('                   +-----------------------------------------------------+');

    write  ('                   ¦ Target ¦');

    for i:=1 to n+m do write(ToStr(TargetVector[i]),'¦');  writeln;

  end;
  procedure WriteMatrixA;

  var i,j  : integer;

  begin

    writeln(' +-----------------+--------+--------+--------+--------+--------+--------¦');

    writeln(' ¦ Basis  ¦ D.Basis¦   A 0  ¦   A 1  ¦   A 2  ¦   A 3  ¦   A 4  ¦   A 5  ¦');

    writeln(' +--------+--------+--------+--------+--------+--------+--------+--------¦');

    for i:=1 to m do

 
- 34 -
   begin

      write(' ¦  A ',BasisVector[i],'   ¦',ToStr(DigitOfBasisVector[i]),'¦');

      for j:=0 to m+n do write(ToStr(VectorA[i, j]),'¦');  writeln;

      if i = m then writeln(' +--------+--------+--------+--------+--------+--------+--------+--------¦')

               else writeln(' +--------+--------+--------+--------+--------+--------+--------+--------¦');

    end;

  end;
  procedure WriteMatrixSimplex;

  var i : integer;

  begin

    write('          ¦ Simplex¦');

    for i:=0 to m+n do write(ToStr(SimplexVector[i]),'¦'); writeln;

    writeln('          +--------------------------------------------------------------+');

  end;
begin

  clrscr;

  WriteTargetMatrix;

  WriteMatrixA;

  WriteMatrixSimplex;

end;
procedure WriteMatrixsInFile;
  procedure WriteTargetMatrix;

  var i : integer;

  begin

    writeln(FileOfOutput, '                   +-----------------------------------------------------+');

    write  (FileOfOutput, '                   ¦ Target ¦');

    for i:=1 to n+m do write(FileOfOutput, ToStr(TargetVector[i]),'¦');  writeln(FileOfOutput);

  end;
  procedure WriteMatrixA;

  var i,j  : integer;

  begin

    writeln(FileOfOutput, ' +-----------------+--------+--------+--------+--------+--------+--------¦');

    writeln(FileOfOutput, ' ¦ Basis  ¦ D.Basis¦   A 0  ¦   A 1  ¦   A 2  ¦   A 3  ¦   A 4  ¦   A 5  ¦');

    writeln(FileOfOutput, ' +--------+--------+--------+--------+--------+--------+--------+--------¦');

    for i:=1 to m do

    begin

      write(FileOfOutput, ' ¦  A ',BasisVector[i],'   ¦',ToStr(DigitOfBasisVector[i]),'¦');

      for j:=0 to m+n do write(FileOfOutput, ToStr(VectorA[i, j]),'¦');  writeln(FileOfOutput);

      if i = m then writeln(FileOfOutput, ' +--------+--------+--------+--------+--------+--------+--------+--------¦')

               else writeln(FileOfOutput, ' +--------+--------+--------+--------+--------+--------+--------+--------¦');

    end;

  end;
- 35 -
  procedure WriteMatrixSimplex;

  var i : integer;

  begin

    write(FileOfOutput, '          ¦ Simplex¦');

    for i:=0 to m+n do write(FileOfOutput, ToStr(SimplexVector[i]),'¦'); writeln(FileOfOutput);

    writeln(FileOfOutput, '          +--------------------------------------------------------------+');

  end;
begin

  clrscr;

  WriteTargetMatrix;

  WriteMatrixA;

  WriteMatrixSimplex;

end;
{ Головная программа }

BEGIN

  ClrScr;

  ReadDates;

  Assign(FileOfOutput, 'kurs97.res');

  Rewrite(FileOfOutput);

  CountSimplexVector;

  WriteMatrixs;

  while not AllIsPositiv do

  begin

    IndexOfEnterVector:=GetEnterVector;

    IndexOfOutputString:=GetOutputString;

    ReCountOutputString;

    ReCountVectorA;

    CountSimplexVector;

    WriteMatrixsInFile;

    WriteMatrixs;

    if key=#0 then key:=readkey; key:=#0;

  end;

  Close(FileOfOutput);

END.
- 36 -
6. ОПИСАНИЕ ЛОГИКИ СТРУКТУРНОЙ СХЕМЫ
В программе реализованны следующие процедуры :

1. Процедура ReadDates - считывает данные из файла.

2. Процедура ReadDatesTargetVector - считывает коэффициенты при неизвестных в целевой функции из файла.

3. Процедура ReadDatesVector - считывание их входного файла матрицы А и заполнение диагональной матрицы.

4. Процедура CountSimplexVector - рассчёт симплекс-разностей.

5. Процедура GetEnterVector - поиск вводимого в базис столбца.

6. Процедура GetOutputString - поиск выводимой из базиса строки.

7. Процедура ReCountOutputString- пересчёе выводимой строки.

8. Процедура ReCountVectorA - пересчёт остальной матрицы ограничений.

9. Процедуры WriteMatrixA, WriteTargetMatrix, WriteMatrixSimplex - печать результирующих таблиц на экран и в файл.
- 37 -
7. ТЕСТОВЫЙ ПРИМЕР
Тестовый пример программы KURS 97.EXE представлен на рисунке 2 в виде исходной и результирующих симплекс-таблиц данного задания.
  - 39 -
ЛИТЕРАТУРА
1. ЕСПД ГОСТ 19.105-78, 19.104-78.

2. ЕСПД ГОСТ 19.502-78.

3. Венцель Е.С.  Исследование операций.-М.:Советское радио. 1972 г.

4. Дектярев Ю.И.  Исследование операций.-М.:Высшая школа. 1986 г.

5. Зайченко Ю.П.  Исследование операций.-К.:Вища школа. 1979 г.

6. Зайченко Ю.П., Шумиллова С.А.  Исследование операций ( сборник задач ).-К.:Вища школа. 1990 г.