Использование табличного симплекс-метода для решения задач линейного программирования для оптимизации экономических задач
| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: сочинение по английскому, реферат на
| Добавил(а) на сайт: Lachkov.
Предыдущая страница реферата | 5 6 7 8 9 10 11 12 13 14 15 | Следующая страница реферата
FileOfOutput : text;
{ Описание процедур }
procedure ReadDates; { считывание данных из файла } var
DateFile : text;
procedure ReadDatesTargetVector; { считывание данных целевого вектора
} var i : integer; begin for i:=1 to n do Readln(DateFile, TargetVector[i]); end;
procedure ReadDatesVectorA; { считывание вектора А и заполнение единицами диагонали} var i,j : integer; begin for j:=0 to n do for i:=1 to m do
Readln(DateFile, VectorA[i, j]); i:=1; for j:=n+1 to n+m do
- 31 -
begin
VectorA[i, j]:=1; inc(i) end; end;
procedure ReadDatesBasisVector; var i : integer; begin for i:=1 to m do BasisVector[i]:=n+i; end;
begin
Assign(DateFile, 'kurs97.dat');
Reset(DateFile);
ReadDatesTargetVector;
ReadDatesVectorA;
ReadDatesBasisVector;
Close(DateFile); end;
procedure CountSimplexVector; { расчет симплек-вектора } var i,j : integer;
Summa : real;
Simplex : real; begin
SimplexVector[0]:=0; for i:=1 to m do
SimplexVector[0]:=SimplexVector[0] +
DigitOfBasisVector[i]*VectorA[i, 0]; for j:=1 to m+n do begin
Summa:=0; for i:=1 to m do Summa:=Summa + DigitOfBasisVector[i]*VectorA[i, j];
SimplexVector[j]:=Summa - TargetVector[j]; if abs(SimplexVector[j]) SimplexVector[i] then
Рекомендуем скачать другие рефераты по теме: шпоры по праву, реферат по физкультуре.
Категории:
Предыдущая страница реферата | 5 6 7 8 9 10 11 12 13 14 15 | Следующая страница реферата
Главная