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

cntx:=cntx+1;

end;

end;

cntx:=TrackBar1.Position+1;

for i:=TrackBar1.Position to 2*(TrackBar1.Position-1) do

begin

Matr[i,1]:=newTools[i-(TrackBar1.Position-1)];

if TrackBar1.Position-2-p >= i-(TrackBar1.Position-1) then

begin

Matr[i,cntx]:=1;

cntx:=cntx+1;

end;

end;

for i:=TrackBar1.Position to 2*(TrackBar1.Position-1) do

if TrackBar1.Position-2-q >= i-(TrackBar1.Position-1) then

begin

Matr[i,cntx]:=1;

cntx:=cntx+1;

end;

for i:=TrackBar1.Position to 2*(TrackBar1.Position-1) do

begin

Matr[i,cntx]:=1;

if i>TrackBar1.Position then

Matr[i,cntx-1]:=-1;

cntx:=cntx+1;

end;

Simp:=ArtificialVars(Matr);

fSimp:=SimplexTables(simp);

if fsimp[1,1]<>-1 then