Объединенный Открытый Проект - Сайт для Настоящих Компьютерщиков

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

Сайт для Настоящих Компьютерщиков

; Логин:
  Пароль:
Обычный
Безопасный
Запомнить пользователя



Зарегистрироваться
Забыли пароль?
 
 
 
Объединенный Открытый Проект »   Прочее »   Форум поддержки прочих разработок »   вопрос по симплексу
RSS

вопрос по симплексу

Текущий рейтинг темы: Нет

<<Назад  Вперед>>Печать
 
Mostovou
Новичок


Всего сообщений: 2
Рейтинг пользователя: 0





Дата регистрации на форуме:
14 мая 2008
При нажатии на кнопку выдает ошибку подскажите что не так.
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.
4X_Pro
Руководитель Проекта
Настоящий Компьютерщик
4X_Pro
Откуда: Москва
Всего сообщений: 2994
Рейтинг пользователя: 79





Дата регистрации на форуме:
29 сен. 2001
А текст ошибки где?
Без него могу только предположить, что причина ошибки — нумерация массива с 1, а не с 0. Т.е. элемента с индексом 6 не существует, т.к. SetLength(l,6) создает массив с элементами от 0 до 5.

---
Каждый человек всегда может найти, чем он может быть полезен окружающим. Проблема только в одном: слишком многие не хотят это искать.
Mostovou
Новичок


Всего сообщений: 2
Рейтинг пользователя: 0





Дата регистрации на форуме:
14 мая 2008
Project D:\Downloads\simplex\Project.exe faulted with message: 'access violation at 0x00405945: write of address 0x00030fb0' - вот такая ошибочка! Помогите плиз!
<<Назад  Вперед>>Печать
Объединенный Открытый Проект »   Прочее »   Форум поддержки прочих разработок »   вопрос по симплексу
RSS
Быстрый переход в раздел:


Время выполнения скрипта: 0.0998. Количество выполненных запросов: 19, время выполнения запросов 0.0162