Объединенный Открытый Проект

У меня лично работал. Хотя однажды мне прислали описание ситуации, когда он зацикливался (как позже выяснилось, из-за накопления погрешности при проверке решения на целые числа).

Я понял, почему такое происходит, но пока не очень понимаю, как с этим бороться (тут разбираться надо). А происходит такое из-за идеальной симметрии задачи и неоднозначности ее решения: тут возможны 2 варианта решения: (2,1) и (1,2). Короче, вечером попробую еще посмотреть...

люди, помогите плиз!!!!!!!!!!!!
У меня дипломная работа: расчет шихты; так вот, там симплексом считается оптимальный состав шихты. т.е. цена X ->min. Составляется список компонентов, т.е. иксов; каждый компонент имеет свой химический состав и по каждому хим. элементу составляется ограничение. С этим все в норме! Есть нюанс: не знаю перед, после расчета, или как, но нужно ,например, что-бы X1=0,4 а X2=0.33. Добавлять ограничение типа:
1*x1+0*x2+0*x3+0*x4=0,4
0*x1+1*x2+0*x3+0*x4=0,338 Получается ошибка с базисом.

Я в тупике!!!!!

У меня проблема с целочисленом результате ! XXXX Pro, пожалуйста, если у тебя есть ,то пошли мне последную версию TIntSimplex по адресу : teodor .ognianov на сайте gmail .com
Когда ввожу :

70*x1 + 30*x2 -> max
10*x1 + 4*x2 <= 40
6*x1 + 4*x2 <= 36

Возвращает : no solution :( но решение есть : 290, x1 = 2, x2 = 5

SetLength(L, 2);
L[0] := 70;
L[1] := 30;
tedko := TIntSimplex.Create(L, true);

SetLength(a, 2);
a[0] := 10;
a[1] := 4;
b := 40;
tedko.AddCons(b, a, Less);

SetLength(a2, 2);
a2[0] := 6;
a2[1] := 4;
b := 36;
tedko.AddCons(b, a2, Less);

if (tedko.IntSolve = SIMPLEX_DONE) then
begin
writeln ('solution: ', tedko.getintmin);
res := tedko.GetIntSolution;

for i := 0 to Length(res) - 1 do
begin
writeln ('i [', i, ']= ', res);
// readln;
end;
end
else
writeln ('no solution');

tedko.Free;

write ('press enter to continue...');
readln;