ладнанням і т.д.
У цьому курсової була розглянута робота транспортної компанії ПП «ШимОйл», дана характеристика продукції, даний загальний огляд методів оптимізації, реалізована програма.
Представлена ??в цій роботі параметрична транспортна задача була вирішена вручну - методом потенціалів, і за допомогою програми, написаної мовою Borland Delphi 7.
Обидва способи дають однакове вирішення і визначають оптимальний план перевезень товару і мінімальну вартість всіх перевезень для кожного з маршрутів, тариф яких змінюється в залежності від обраного маршруту.
Таким чином, в даній курсовій роботі із заданими параметрами були отримані наступні результати: ПП ШимОйл доцільно вибрати Маршрут №1, так як він є найбільш оптимальним. Витрати на транспортні витрати Маршруту №1 є мінімальними і становлять 219 тис. Тенге.
Список використаної літератури
1. Моїсеєв Н.Н., Іванов Ю.П., Столярова Е.М. Методи оптимізації.- М .: Наука, 1978
. Боборикін В.А. Математичні методи розв'язання транспортних задач.- Л .: СЗПІ, 1986
. Кишень В.Г. Математичне програмування.- М .: Наука, 1986р.
. Кузнєцов Ю.М., Кузубов В.І., Волощенко А.Б. Математичне програмування.- М .: Вища школа, 1980
. Єрьомін І.І., Астаф'єв М.М. Введення в теорію лінійного і опуклого програмування - М .: Наука, 1976
. Іванов Ю.П., Лотів А.В. Математичні моделі в економіці.- М .: Наука, 1979р.
. Кузнецов А.В., Новикова Г.І., Холод І.І. Збірник завдань з математичного програмування.- Мінськ: Вища школа, 1985
Додаток
Програмний код
unit potenzial;
interface, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls, Grids, Math, ComCtrls, ExtCtrls, jpeg, XPMan, Menus ;: integer=10;// Half size=class, y: integer ;: integer ;: integer;// Type: integer;
p: integer;// При виведенні в стрінггрід
end;=class, i2: integer ;: integer ;;=class, Height: integer ;: array [0..99, 0..99] of integer ;, Top: array [0..99] of integer; Create; Reset; Assign (data: TData); AssignLT (data: TData); NoNulls: integer; Min: integer ;;=record, p2: integer ;: integer ;: boolean ;;=record:integer ;: boolean ;;=class: array [0..100] of TEquation ;: array [0..100] of TVar ;, fVarCount, fH: integer; GetU (index: integer): TVar; GetV (index:integer): TVar; AddEq (p1, p2, s: integer);
//Кількість рівнянь дінаміческое.Колічество змінних можна дізнатися
//сразу.Create (h, v_c: integer); Solve; U [index: integer]: TVar read GetU; V [index: integer]: TVar read GetV ;; {}=Class (TForm): TXPManifest ;: TImage ;: TMemo ;: TButton ;: TButton ;: TButton ;: TButton ;: TStringGrid ;: TImage ;: TMainMenu ;: TMenuItem ;: TMemo ;: TButton; Button1Click (Sender: TObject); StringGrid1KeyPress (Sender: TObject; var Key: Char); FormCreate (Sender: TObject); Button2Click (Sender: TObject); Button3Click (Sender: TObject); Button4Click (Sender: TObject); Button5Click (Sender: TObject); N1Click (Sender: TObject);
private
{Private declarations}: TData ;: TList ;: TList ;: integer ;: integer;
{Public declarations} Check (data: TData): boolean; CalcNorthWest (data: TData; var plan: TData);
procedure CalcMinEl (data: TData; var plan: TData); CalcPotential (data: TData; var plan, x: TData); Dump (data: TData; fl: integer); CalcSum (data, plan: TData): integer; ShiftPlan (var data, plan, potential: TData); IsOver (x, y: integer): integer; AddRemoveLine (i1, i2: integer) ;;
: TForm1 ;: integer ;: array [1..3] of integer;
{$ R * .dfm} size; TForm1.Button1Click (Sender: TObject) ;, minii, ii: integer;:=srav [1]; minii:=1; ii:=1 to 3 domin gt; srav [ii] then begin:=srav [ii];:=ii ;;. Clear; .Lines.Append ( Оптимальний маршрут № + IntToStr (minii)) ;. Lines.Append ( S min= + IntToStr (min)) ;;
TForm1.StringGrid1KeyPress (Sender: TObject; var Key: Char); (StringGrid1.Col=1) and (StringGrid1.Row=1) then:=# 0 ;;; (Key lt; laquo ; 0 ) or (Key gt; 9 ) then:=# 0 ;;
TForm1.FormCreate (Sender: TObject) ;. Cells [1,0]:= Магазини raquo ;;. Cells [0,1]:= Заводи raquo ;;. Cells [1, 1]:= Нал. Потреб. raquo ;;. Cells [0,2]:= А1 raquo ;;. Cells [0,3]:= А2 raquo ;;. Cells [2,0]: = B1 raquo ;;. Cells [3,0]:= B2 raquo ;;. Cells [4,0]:= B3 raquo ;;. Cells [5,0]:= B4 raquo ;;. Cells [6,0]:= B5 raquo ;; (fData, sizeof (fData), 0);:=TList.Create;:=TList.Create;:=0;:=1 ;;
TForm1.Button2Click (Sender: TObject); GetInt (x, y: inte...
