Delphi-проект реалізує процес знаходження опорного плану транспортної задачі використовуючи при цьому алгоритм методу Фогеля. Основна ідея даного методу полягає в знаходженні різниці (по модулю) між парою мінімальних тарифів в кожному рядку і стовпці. Потім рядок або стовпець з найбільшою різницею заповнюється в напрямку від клітини з мінімальним тарифом до клітки з максимальним. Більш детальну інформацію про метод Фогеля можна знайти за посиланням Побудова опорного плану транспортної задачі методом Фогеля.
Головне вікно розглядуваного delphi-проекту ділиться на три частини: панелі інструментів (складається з двох компонентів типу TSpinEdit та двох кнопок типу TButton), робочої області (містить транспортну таблицю) та статусного рядка, основним призначенням якого є вивід загальної вартості перевезень згідно побудованого опорного плану. Розглянемо призначення кожного з цих елементів більш детально:
- Поля вибору “Пункти призначення” та “Пункти відправлення” відповідають за кількість пунктів які беруть участь в перевезенні, а також розмірність транспортної таблиці.
- Кнопки “Знайти опорний план методом Фогеля” та “Очистити” відповідають за побудову початкового плану транспортної задачі та підготовку програми до нового прикладу відповідно.
- Нарисована на канві форми транспортна таблиця у комірки якої, способом введення з клавіатури, записуються тарифи на перевезення одиниці продукції, загальні потреби у товарі кожного з пунктів призначення і загальна кількість запасів кожного з пунктів відправлення.
Після того, як призначення кожного з елементів форми відомо, провіримо його роботу на конкретному прикладі. Відмітимо, що в якості прикладу візьмемо задачу, яку ми розв’язували при розгляді теоретичної частини методу Фогеля (містится за вищевказаним посиланням). Отже, запустимо проект на виконання, у відповідні поля форми задамо розмірність таблиці та заповнимо її даними.
Далі, скориставшись кнопкою “Знайти опорний план методом Фогеля” запишемо у відповідні комірки таблиці числа, які означатимуть можливий план перевезення продукції загальна вартість якого міститься в статусному рядку.
Скачати delphi-проект Побудова опорного плану транспортної задачі методом Фогеля.