Курсовая работа: Задача составления оптимального графика ремонта инструмента

NapravRow:=SelectRow(fullSimp,NapravCol);

NapravEl:=fullSimp[NapravRow,NapravCol];

for j:=4 to nn+Numofnewvars+3 do

NewTab[1,j]:=TarFunc[j-3];

for j:=1 to 2 do

for i:=1 to mm+1 do

NewTab[i,j]:=fullSimp[i,j];

NewTab[NapravRow,1]:=TarFunc[NapravCol-3];

NewTab[NapravRow,2]:=NapravCol-3;

for j:=3 to nn+Numofnewvars+3 do

NewTab[NapravRow,j]:=fullSimp[NapravRow,j]/NapravEl;

for i:=2 to mm+2 do

for j:=3 to nn+3+Numofnewvars do

if i<>NapravRow then

NewTab[i,j]:=fullSimp[i,j]-NewTab[NapravRow,j]* fullSimp[i,NapravCol];

Err:=false;

for j:=3 to nn+3+Numofnewvars do

if (NewTab[mm+2,j]<>Delta(NewTab,j)) and (not Err) then

begin

err:=true;

NewTab[1,1]:=-1;

end;

NewTable:=NewTab;

end;

{------------------------------------------------------------------}

function SimplexTables(Simp: Simplex):FullSimplex;

var

FS: FullSimplex;

i,j,p,q,mm,nn,a,b,c,k,basecount, iterCnt: integer;