- •Содержание
- •1. Разработка требований и внешнее проектирование пс
- •1.1 Цели создания пс
- •1.2 Предметная область
- •1.2.1 Теоретическая часть. Постановка задачи.
- •1.2.2 Алгоритмы решения задач
- •1)Метод Юго-Восточного угла
- •2)Метод Лебедева
- •3)Метод квадратов
- •1.2.3 Контрольное выполнение задачи
- •Исходные данные
- •Исходные данные
- •Исходные данные
- •Исходные данные
- •Исходные данные
- •Исходные данные
- •1.3 Описание спецификаций на пс
- •Эффективность
- •1.4 Описание диалога с пользователем
- •2. Разработка пс решения транспортной задачи
- •2.1 Общие сведения о пс
- •2.2 Входная информация
- •Описание данных:
- •2.3 Выходнаяинформация
- •2.4 Архитектура пс
- •2.5 Логическая структура
- •2.6 Описание основных модулей
- •2.7 Вызов и загрузка
- •3. Программа и методика испытания пс
- •3.1 Программа проведения тестирования и отладки
- •3.2 Набор тестовых данных
- •3.3 Анализ результатов тестирования
- •4. Список литературы и интернет – ресурсов:
- •5. Приложения
- •5.1 Текстымодулей
- •5.2.Результаты тестирования и выполнения программы
- •5.3.Экранные формы
- •5.4. Заставка
2. Разработка пс решения транспортной задачи
2.1 Общие сведения о пс
Данное программное средство предназначено для решения транспортных задач линейного программирования.
ПС реализует 3 метода:
Метод Лебедева
Метод Юго-Восточного угла
Оптимизация
Для работы данного ПС необходимо, чтобы ваш компьютер удовлетворял следующие требованиям:
Процессор – Intel® Core™ 2 DuoT5xxxCPU:DuoT2370
ОС – Windows 7, XP, Vista
Оперативная память – DDRII 533/667МГц,
Жесткий диск SATA объемом до 200Гб
HD:120Gb
Memory:2Gb
Периферийные устройства (мышь, клавиатура)
Система программирования – Delphi 7
Для работы данного ПС пользователю необходимо ввести 3 массива данных.
Данное ПС защищено от ввода некорректных данных.
Данное ПС написано на языке программирования Delphi 7 и требует определенного программного обеспечения, которое изложено выше.
Длина программы в операторах – 690
Количество модулей (функций) – 4
Количество обрабатываемых переменных, типов – 9
Длительность решения задачи – 6 минут
Кол-во специалистов, разработчиков ПС – 3
Трудоёмкость создания в человека/часах –
Язык программирования – Delphi 7
2.2 Входная информация
Входная информация состоит из:
Вектор, отражающий объем поставок - A
Вектор, отражающий объем потребления -B
Матрицы стоимостей-С
Количества строк-m
Количества столбцов -n
Описание данных:
С:array of array of integer;
A,B: array of array of integer;
M,n: integer;
2.3 Выходнаяинформация
Выходная информация состоит из:
Опорный план (Х) и базисный план (Plbas)
Систему справок
Систему информационных сообщений
Описаниеданных:
х:array of array of integer;
Plbas: integer;
2.4 Архитектура пс
ПО ТЗ
ПО составления базового плана
ПО оптимизации
Потенциалов;
Квадратов;
Распределительный;
Венгерский;
Форда-Фулкерсона;
Разрешающих слагаемых;
Дифференциальных рент.
Северо-западного угла;
Минимум в столбце;
Минимум в строке;
Двойного предпочтения;
Лебедева;
Юго - восточного угла;
Минимального элемента в матрице;
Фогеля;
Лебедева - Тихомирова.
2.5 Логическая структура
2.6 Описание основных модулей
procedure TMainForm.Button1Click(Sender: TObject); |
Настройка интерфейсов(кнопок,панелей,матриц) |
procedure TMainForm.Button2Click(Sender: TObject); |
Подтверждение ввода данных по поставщикам и покупателям |
procedure TMainForm.Button3Click(Sender: TObject); |
Очистка векторов при вводе поставщиков и покупателей |
procedure TMainForm.Button4Click(Sender: TObject); |
Проверка заполненности всех полей |
procedure TMainForm.Button5Click(Sender: TObject); |
Алгоритм оптимизации 1 метода |
procedure TMainForm.Button6Click(Sender: TObject); |
Алгоритм оптимизации 2 метода |
procedure TMainForm.N11Click(Sender: TObject); |
Метод Ю-В угла |
procedure TMainForm.N8Click(Sender: TObject); |
Загрузка данных из файла |
procedure TMainForm.N21Click(Sender: TObject); |
Метод Лебедева |
procedure TMainForm.N12Click(Sender: TObject) |
Сохранение данных в файл |
procedure TMainForm.N6Click(Sender: TObject); |
Выход из программы с подтверждением |
procedure TMainForm.N9Click(Sender: TObject); |
Сброс данных |
procedure TMainForm.SG1KeyPress(Sender: TObject; var Key: Char); |
Блокировка некорректного ввода данных |
procedure LoadGrid(varGrid:TStringGrid; constFileName:string); |
Процедура загрузки из файла |
procedure OptGrid(GridPrice:TStringGrid;GridTrans:TStringGrid); |
Процедура оптимизации |