Mostovou
Новичок
Всего сообщений: 2 Рейтинг пользователя: 0
Дата регистрации на форуме: 14 мая 2008
|
Профиль | Сообщить модератору | ИгнорироватьNEW! Сообщение отправлено: 14 мая 2008 22:41
При нажатии на кнопку выдает ошибку подскажите что не так.
var
Form1: TForm1;
Simplex : TSimplex;
l,a1,res: TExtArray;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
SetLength(l,6);
l[1]:=16685;
l[2]:=24463;
l[3]:=66272;
l[4]:=26903;
l[5]:=26016;
l[6]:=82392;
Simplex:=TSimplex.Create(L,true);
SetLength(A1,6);
a1[1]:=3;
a1[2]:=5;
a1[3]:=6;
a1[4]:=3;
a1[5]:=5;
a1[6]:=6;
Simplex.AddCons(3200,A1,less);
a1[1]:=3;
a1[2]:=3;
a1[3]:=3;
a1[4]:=5;
a1[5]:=5;
a1[6]:=5;
Simplex.AddCons(4800,A1,less);
a1[1]:=0.24;
a1[2]:=0.30875;
a1[3]:=0.4235;
a1[4]:=0.385;
a1[5]:=0.754;
a1[6]:=0.911625;
Simplex.AddCons(2000,A1,less);
if (Simplex.Solve=SIMPLEX_DONE) then begin edit1.text:='Ðåçóëüòàò:'+floattostr(Simplex.GetMin);
Res:=Simplex.GetSolution;
end
else edit1.text:='Ðåøåíèÿ íå ñóùåñòâóåò!';
Simplex.Free;
end;
end. |