Решение задач оптимизации симплекс-методом

Автор работы: Пользователь скрыл имя, 19 Декабря 2012 в 16:02, курсовая работа

Краткое описание

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

Содержание

1. Цель работы…………………………………………………………3
2. Постановка задачи…………………………………………….……4
3. Описание метода решения………………………………………….5
4. Программная реализация…………………………………………..7
4.1. Описание основных процедур и функций……………………..7
4.2. Блок-схемы основных процедур……………………………….8
4.3. Листинг………………………………………………………….15
5. Контрольный пример………………………………………………26
6. Инструкция пользования…………………………………………..28

Прикрепленные файлы: 1 файл

КУРСОВИК исходный.doc

— 82.50 Кб (Скачать документ)

 

count:= count+1

 

i:=i+1

 

count:=xov

 

 

Asnw:=false

exit

 

ColSet:=NumMinCol

RowSet:=1

j:=1

 

date:=(StrToFloat(SimplexM1.StrGr.Cells[1,j]))/

(StrToFloat(SimplexM1.StrGr.Cells[NumMinCol,j]))

 

1

 

1

 

j:=j+1

 

date>0

 

 

RowSet:=j-1

 

i:=j

 

i:=MaxRow-2

 

 

t:=(StrToFloat(SimplexM1.StrGr.Cells[1,i]))/

(StrToFloat(SimplexM1.StrGr.Cells[NumMinCol,i]))

 

t>0

 

t<date

 

date:=t

RowSet:=i

 

i:=i+1

 

end

 

Tform1.Res

 

Res:=true

 

i:=2

 

i:=MaxRow-2

 

 

StrToFloat(SimplexM1.StrGr.Cells[I,MaxRow-1])<0

 

NumMinCol:=i

Res:=false

break

 

Resultat

 

i:=i+1

 

end

 

 


Информация о работе Решение задач оптимизации симплекс-методом