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

napravRow:=i;

end;

end;

SelectRow:=napravRow;

end;

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

function Delta(fullSimp: FullSimplex;j: integer):real;

var

i,mm:integer;

delt: real;

begin

delt:=0;

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

for i:=2 to mm do

delt:=delt+fullSimp[i,j] * fullSimp[i,1];

Delta:=delt-fullSimp[1,j];

end;

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

function TForm1.NewTable(fullSimp: FullSimplex; TarFunc: TTarFunc):FullSimplex;

var

p,q,mm,nn,NapravCol,NapravRow,i,j: integer;

NapravEl:real;

NewTab: FullSimplex;

err: boolean;

begin

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

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

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

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