Предыдущая страница реферата | 5  6  7  8  9  10  11  12  13  14  15 | Следующая страница реферата

- 32 -

begin

GetEnterVector:=i;

Min:=SimplexVector[i]; end; end;

function GetOutputString : integer; { поиск выводимой строки } var i : integer;

Temp : real; begin

GetOutputString:=1; if VectorA[1, IndexOfEnterVector] > 0 then MinimumBuffer:=VectorA[1,
0] / VectorA[1, IndexOfEnterVector]; for i:=2 to m do begin

Temp:=VectorA[i, 0] / VectorA[i, IndexOfEnterVector]; if Temp > 0 then if MinimumBuffer >= Temp then begin

MinimumBuffer:=Temp;

GetOutputString:=i; end; end; end;

procedure ReCountOutputString; { пересчет коэффициентов выводимой строки } var i,j : integer;

Buffer : real;

procedure ReCountDigitOfBasisVector; begin

DigitOfBasisVector[IndexOfOutputString]:=TargetVector[IndexOfEnterVector]; end;

procedure ReCountBasisVector; begin

BasisVector[IndexOfOutputString]:=IndexOfEnterVector; end;

begin

ReCountDigitOfBasisVector;

ReCountBasisVector;

Buffer:=VectorA[IndexOfOutputString, IndexOfEnterVector]; for i:=0 to m+n do begin

VectorA[IndexOfOutputString, i]:=VectorA[IndexOfOutputString, i] /
Buffer; end; end;

- 33 -

procedure ReCountVectorA; var i,j : integer; begin for j:=0 to m+n do begin for i:=1 to m do begin if i IndexOfOutputString then if j IndexOfEnterVector then VectorA[i, j]:=VectorA[i, j] - VectorA[i,
IndexOfEnterVector]*VectorA[IndexOfOutputString, j]; end; end; for i:=1 to m do if i IndexOfOutputString then VectorA[i, IndexOfEnterVector]:=0; end;

function AllIsPositiv : boolean; var i : integer; begin

AllIsPositiv:=True; for i:=1 to m+n do if SimplexVector[i] < 0 then AllIsPositiv:=False; end;

Рекомендуем скачать другие рефераты по теме: шпоры по праву, реферат по физкультуре.



Предыдущая страница реферата | 5  6  7  8  9  10  11  12  13  14  15 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки