Реферат: Нахождение опорного плана транспортной задачи

Лист

Кп-км-п-44-2203-99

cmin:=c[i,j];

imin:=i;

jmin:=j

end;

// определение величины поставки

d[imin,jmin]:=min(a[imin],b[jmin]);

// определяем исключаемую строку столбец

a[imin]:=a[imin]-d[imin,jmin];

if a[imin]=0 then

exclude(set_i,imin);

b[jmin]:=b[jmin]-d[imin,jmin];