|
Вопрос # 5 774/ вопрос открыт / |
|
Доброго времени суток, уважаемые эксперты!
В ходе написания программы по теорфизу столкнулся с проблемкой, а именно после задания начальных условий:
for i:= 1 to n do begin
x[i]:=(xmax)*random; //начальные условия коорд по х
y[i]:=(ymax)*random; // коорд по y
vx[i]:=vmin/2+vmax/2*random; // скорость по x
vy[i]:=vmin/2+vmax/2*random; // скорость по y
En:=En+vx[i]*vx[i]/2+vy[i]*vy[i]/2; // начальная энергия
end;
необходимо выполнить проверку расстояний между всеми точками, и если оно меньше необходимого - задать координаты всех точек заного (иначе может наступить "взрыв" -резкий скачек энергии и соответсвенно ошибка).
Была идея создать массив размером NxN точек, в каждой строке которого будет расстояние от "итой" точки до всех остальных и последущее сравнение всех строк. К сожалению такая процедура получилась слишком большой и довольно прожорливой ( особенно если учесть возможность просчета 100+ точек).
Поэтому решил просить помощи у Вас.
(исходник прилагается, и если заинтересует результат то лучше при запуске свернуть окошко с траекториями, просчет ускорится в разы =) )
К вопросу прикреплён файл. Загрузить » (срок хранения: 60 дней с момента отправки вопроса)
 |
Вопрос задал: homerchick (статус: Посетитель)
Вопрос отправлен: 23 ноября 2011, 11:13
Состояние вопроса: открыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 22; последнее сообщение — 25 ноября 2011, 18:33; участников в обсуждении: 5.
Страницы: [« Предыдущая] [1] [2]
|
min@y™ (статус: Доктор наук), 25 ноября 2011, 08:14 [#21]:
Цитата (homerchick):
не совсем получилось вникнуть в ваш метод
Что непонятно?
Цитата (homerchick):
ошибка стала вылетать ГОРАЗДО реже
Что за ошибка?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
Мережников Андрей (статус: Абитуриент), 25 ноября 2011, 18:33 [#22]:
Цитата:
Мережников Андрей: я имел ввиду, что нужно найти расстояния от каждой точки до каждой, не более
и я о том же - в этом случае не надо дважды считать расстояние между одними и теми же точками.
|
Страницы: [« Предыдущая] [1] [2]
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|