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

q:=strtoint(Form1.Edit3.Text);

mm:=2*(Form1.TrackBar1.Position-1);

nn:=2*(Form1.TrackBar1.Position-1)+(Form1.TrackBar1.Position-2-p)+(Form1.TrackBar1.Position-2-q)+1;

for i:=1 to nn do

Basis[i]:=0;

for j:=1 to nn do //

for i:=1 to mm do //перебор начальной матрицы коэфицентов по столбцам сверху вниз

begin;

Simp[i,j]:=Fkoef[i,j];

if Fkoef[i,j]=1 then //если в столбце есть еденица

if nullcheck(j,Fkoef) then //проверка является ли данный столбец базисным

Basis[j]:=i;

end;

fullBasis:=AddVars(Basis); //вызов функции для добавления искусственных столбцов чтобы получить базисное решение

for j:=1 to NumOfNewVars do

for i:=1 to mm do

if i=fullBasis[nn+j] then

Simp[i,nn+j]:=1

else

Simp[i,nn+j]:=0;

ArtificialVars:=Simp;

end;

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

function TForm1.SelectCol(fullSimp: FullSimplex):integer;

var

j,mm,nn,p,q,napravCol:integer;

maxdelt:real;

begin

p:=strtoint(Form1.Edit1.Text);