jimmi
Новичок
Всего сообщений: 5 Рейтинг пользователя: 0
Дата регистрации на форуме: 11 нояб. 2006
|
Профиль | Сообщить модератору | ИгнорироватьNEW! Сообщение отправлено: 12 ноября 2006 17:41
var
Form1: TForm1;
Simplex : TSimplex;
l,a1,res: TExtArray;
b1: extended;
implementation
{$R *.dfm}
begin
SetLength(l,5);
l[1]:=3;
l[1]:=1;
l[1]:=0;
l[1]:=0;
l[1]:=0;
Simplex:=TSimplex.Create(L,false);
SetLength(A1,5);
a1[1]:=2;
a1[2]:=6;
a1[3]:=1;
a1[4]:=0;
a1[5]:=0;
Simplex.AddCons(150,A1,equal);
a1[1]:=1;
a1[2]:=0;
a1[3]:=0;
a1[4]:=1;
a1[5]:=0;
Simplex.AddCons(30,A1,equal);
a1[1]:=0;
a1[2]:=1;
a1[3]:=0;
a1[4]:=0;
a1[5]:=1;
Simplex.AddCons(20,A1,equal);
if (Simplex.Solve=SIMPLEX_DONE) then begin form1.caption:='Результат:'+floattostr(Simplex.GetMin);
Res:=Simplex.GetSolution;
end
else form1.caption:='Решения не существует!';
Simplex.Free;
end.
выдает ошибку invalid pointer operator
|