Продолжение приложения б
inc(c);
ceq.solved := true;
end
else if (fV[ ceq.p2 ].solved) then
begin
fV[ ceq.p1 ].v := ceq.sum - fV[ ceq.p2 ].v;
fv[ ceq.p1 ].solved := true;
inc(c);
ceq.solved := true;
end;
end;
if (c = 0) then
exit;
end;
end;
procedure TForm1.CalcPotential(data: TData; var plan, x: TData);
function to_sign( v: integer ): integer;
begin
if (v = 0) then
Result := 1
else
Result := -1;
end;
var
index, index2, t: integer;
solve: TEqSolve;
s: string;
begin
solve := TEqSolve.Create( plan.Height, plan.Height + plan.Width );
for index := 0 to plan.Height-1 do
for index2 := 0 to plan.Width-1 do
if (plan.Arr[index2,index] > 0) then
solve.AddEq( index, index2, data.Arr[index2,index] );
index := 0;
index2 := 0;
while (solve.fEqCount < plan.Height + plan.Width-1) do
begin
inc(index2);
if (index2 = plan.Width) then
- Введение
- 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 Расчет примера транспортной задачи
- Заключение
- Список использованных источников
- Приложение а
- Продолжение приложения а
- Продолжение приложения а
- Продолжение приложения а
- Продолжение приложения а
- Продолжение приложения а
- Продолжение приложения а
- Продолжение приложения а
- Продолжение приложения а
- Продолжение приложения а
- Продолжение приложения а
- Продолжение приложения а
- Продолжение приложения а
- Продолжение приложения а
- Продолжение приложения а
- Продолжение приложения а
- Продолжение приложения а
- Продолжение приложения а
- Продолжение приложения а
- Продолжение приложения а
- Приложение б
- Продолжение приложения б
- Продолжение приложения б
- Продолжение приложения б
- Продолжение приложения б
- Продолжение приложения б
- Продолжение приложения б
- Продолжение приложения б
- Продолжение приложения б
- Продолжение приложения б
- Продолжение приложения б
- Продолжение приложения б
- Продолжение приложения б
- Продолжение приложения б
- Продолжение приложения б
- Продолжение приложения б
- Продолжение приложения б
- Продолжение приложения б
- Продолжение приложения б
- Продолжение приложения б
- Продолжение приложения б