Реферат: Линейное программирование: решение задач графическим способом
SetLineStyle(0,0,NormWidth);
OutTextXY(300,230,Result);{Выводим строку ответа}
end
else
OutTextXY(7,3,'Вычисления не закончены!!!');
{Завешение программы}
Bar(0,0,GetMaxX,MaxY-1);
SetColor(White);
OutTextXY(7,3,'Нажмите любую клавишу для выхода');
ReadKey;
End;
BEGIN
i:=0;{Начальное значение кол-ва неравенств}
Gd:=Detect;
InitGraph(Gd, Gm, 'C:\BP\BGI'); { Путь к BGI драйверам }
if GraphResult <> grOk then Halt(1);
ShowXOY;
EnterNerav;
EnterMainF;
GetResult;
CloseGraph;
END.
Заключение
Программа решения задач линейного программирования графическим способом на IBM PC была написана на языке Borland Pascal 7.1. В ней, для удобства, рассматривается случай когда количество переменных равно двум т. е. решение задачи можно разместить на плоскости. С помощью этой программы можно наглядно продемонстрировать метод графического решения задач.
Вообще, с помощью графического метода может быть решена задача линейного программирования, система ограничений которой содержит n неизвестных и m линейно независимых уравнений, если N и M связаны соотношением N – M = 2.
Действительно, пусть поставлена задача линейного программирования.
Найти максимальное значение линейной функции
Z = С1 х1 +С2 х2 +... +СN xN при ограничениях
a11 x1 + a22 x2 + ... + a1N ХN = b1
a21 x1 + a22 x2 + ... + a2N ХN = b2
. . . . . . . . . . . . . . .
aМ1 x1 + aМ2 x2 + ... + aМN ХN = bМ
xj ≥ 0 (j = 1, 2, ..., N)
где все уравнения линейно независимы и выполняется cоотношение N - M = 2.
Используя метод Жордана-Гаусса, производим M исключений, в результате которых базисными неизвестными оказались, например, M первых неизвестных х1 , х2 , ..., хM , а свободными - два последних: хМ+1 , и хN , т. е. система ограничений приняла вид:
x1 + a1,М+1 xМ+1 + a1N ХN = b1
x2 + a2,М+1 xМ+1 + a2N ХN = b2
. . . . . . . . . . . .
xМ + aМ, М+1 x2 + aМN ХN = bМ