Продолжение приложения б
begin
if (vert = 1) then y := plan.Width-1
else x := 0;
while (x < plan.Width) and (y >= 0) { plan.Height) } and (not flag) do
begin
if (plan.Arr[x,y] <> 0) and (a.Arr[x,y] = 0) then
begin
a.Arr[x,y] := val;
if (x = x_m) and (vert = 0) then
flag := true;
end;
if (vert = 1) then dec(y)
else inc(x);
end;
end;
procedure Find( var x, y: integer; vert, val: integer );
begin
if (vert = 1) then y := 0
else x := 0;
while (x < plan.Width) and (y < plan.Height) do
begin
if a.Arr[x,y] = val then
break;
if (vert = 1) then inc(y)
else inc(x);
end;
end;
var
index, index2, x1, y1: integer;
path: array [0..100] of TPoint;
begin
FillChar( path, sizeof(path), 0 );
x_m := -1;
y_m := -1;
v_m := MaxInt;
for index := 0 to plan.Height-1 do
- Введение
- 1 Обзор существующих информационных систем оптимизации грузопотоков
- 1.1 Анализ состояния и перспективы роста грузопотоков в системе развития транзитного потенциала транспортной инфраструктуры Республики Казахстан
- 1.2. Высокопроизводительный механизм математического программирования ibm ilog cplex
- 1.2.1 Применение iLog в транспорте
- 1.3 Оптимизация транспортной логистики
- 1.4 Постановка исследуемой транспортной задачи
- 2 Модели и методы решения транспортных задач
- 2.1 Математическая модель исследуемой транспортной задачи
- 2.2 Постановка математической задачи оптимизации
- 2.3 Модель транспортной задачи
- 3 Выбор и обоснование метода реализации математической модели
- 3.1 Методы оптимизации транспортной задачи
- 3.2 Метод решения транспортной задачи
- 3.3 Разработка алгоритма решения исследуемой транспортной задачи
- 3.4 Пример решения исследуемой транспортной задачи
- 3.5 Разработка алгоритма и программного обеспечения
- 3.6 Диалоговая программная система для решения транспортных задач
- 3.7 Расчет примера транспортной задачи
- Заключение
- Список использованных источников
- Приложение а
- Продолжение приложения а
- Продолжение приложения а
- Продолжение приложения а
- Продолжение приложения а
- Продолжение приложения а
- Продолжение приложения а
- Продолжение приложения а
- Продолжение приложения а
- Продолжение приложения а
- Продолжение приложения а
- Продолжение приложения а
- Продолжение приложения а
- Продолжение приложения а
- Продолжение приложения а
- Продолжение приложения а
- Продолжение приложения а
- Продолжение приложения а
- Продолжение приложения а
- Продолжение приложения а
- Приложение б
- Продолжение приложения б
- Продолжение приложения б
- Продолжение приложения б
- Продолжение приложения б
- Продолжение приложения б
- Продолжение приложения б
- Продолжение приложения б
- Продолжение приложения б
- Продолжение приложения б
- Продолжение приложения б
- Продолжение приложения б
- Продолжение приложения б
- Продолжение приложения б
- Продолжение приложения б
- Продолжение приложения б
- Продолжение приложения б
- Продолжение приложения б
- Продолжение приложения б
- Продолжение приложения б
- Продолжение приложения б