Вантажу методом північна – західного кута
Додаток 5
Текст процедури побудови опорного плану перевезень вантажу методом північна – східного кута
// TT[m+1, n+1] – транспортна таблиця, де у (n+1)-ї колонці знаходяться обсяги
запасів, а у (m+1)-ї строки – обсяги заявок вантажу
// m – кількість постачальників вантажу
// n – кількість споживачів вантажу
i := 1;
j := n;
21:i_ := i;
j_ := j;
if (TT[i,n+1] <= TT[m+1,j]) then
TT[i,j] := TT[i,n+1]
else
TT[i,j] := TT[m+1,j];
TT[i,n+1] := TT[i,n+1] - TT[i,j];
TT[m+1,j] := TT[m+1,j] - TT[i,j];
if (TT[i,n+1] = 0) then
i := i + 1;
if (TT[m+1,j] = 0) then
j := j - 1;
if ((i_ <> m) Or (j_ <> 1)) then
goto 21;
Додаток 6
Текст процедури побудови опорного плану перевезень вантажу методом південна – західного кута
// TT[m+1, n+1] – транспортна таблиця, де у (n+1)-ї колонці знаходяться обсяги
запасів, а у (m+1)-ї строки – обсяги заявок вантажу
// m – кількість постачальників вантажу
// n – кількість споживачів вантажу
i := m;
j := 1;
31:i_ := i;
j_ := j;
if (TT[i,n+1] <= TT[m+1,j]) then
TT[i,j] := TT[i,n+1]
else
TT[i,j] := TT[m+1,j];
TT[i,n+1] := TT[i,n+1] - TT[i,j];
TT[m+1,j] := TT[m+1,j] - TT[i,j];
if (TT[i,n+1] = 0) then
i := i - 1;
if (TT[m+1,j] = 0) then
j := j + 1;
if ((i_ <> 1) Or (j_ <> n)) then
goto 31;
Додаток 7
Текст процедури побудови опорного плану перевезень вантажу методом південна – східного кута
// TT[m+1, n+1] – транспортна таблиця, де у (n+1)-ї колонці знаходяться обсяги
запасів, а у (m+1)-ї строки – обсяги заявок вантажу
// m – кількість постачальників вантажу
// n – кількість споживачів вантажу
i := m;
j := n;
41:i_ := i;
j_ := j;
if (TT[i,n+1] <= TT[m+1,j]) then
TT[i,j] := TT[i,n+1]
else
TT[i,j] := TT[m+1,j];
TT[i,n+1] := TT[i,n+1] - TT[i,j];
TT[m+1,j] := TT[m+1,j] - TT[i,j];
if (TT[i,n+1] = 0) then
i := i - 1;
if (TT[m+1,j] = 0) then
j := j - 1;
if ((i_ <> 1) or (j_ <> 1)) then
goto 41;
Додаток 8
Текст процедури побудови опорного плану перевезень
вантажу методом найменшого елемента строки ТТ
// A[m, n] – матриця транспортних комунікацій (суміжності), де у A[i, j]-ї
клітинці знаходяться вартість транспортування одиниці вантажу із і-того транспортного вузла в j-й
// TT[m+1, n+1] – транспортна таблиця, де у (n+1)-ї колонці знаходяться обсяги
запасів, а у (m+1)-ї строки – обсяги заявок вантажу
// m – кількість постачальників вантажу
// n – кількість споживачів вантажу
for k:=1 to n do
for i:=1 to m do
begin
min := A[i,1];
j_ := 1;
for j:=2 to n do
if (A[i,j] < min) then
begin
min := A[i,j];
j_ := j;
end;
if (min<>1000) then
begin
if (A[m+1,j_] <= A[i,n+1]) then
TT[i,j_] := A[m+1,j_]
else
TT[i,j_] := A[i,n+1];
A[i,j_] := 999;
A[m+1,j_] := A[m+1,j_] - TT[i,j_];
A[i,n+1] := A[i,n+1] - TT[i,j_];
if (A[m+1,j_] = 0) then
for l:=1 to m do
A[l,j_] := 999;
if (A[i,n+1]=0) then
for l:=1 to n do
A[i,l] := 999;
end;
end;
Додаток 9