Наименьшее расстояние между двумя точками

[DarkHacker]

Здравствуйте. Подскажите пожалуйста есть ли готовый алгоритм для поиска самой ближней точки для заданной точки из массива точек?

Есть массив из точек (array of TPoint) которые расположены по эллипсу и есть какая-то условная точка. Нужно вычислить какая точка из массива лежит ближе всего к условной точке.

Вот что сделал я:

 
	temp_distance:=1000;
	
	//Находим ближнюю точку
	for i:=0 to length(arr_points)-1 do
	  if(sqrt(power((arr_points[i].X-players_points[0].X),2)+power((arr_points[i].Y-players_points[0].Y),2))<temp_distance) then
	   begin
		 temp_distance:=round(sqrt(power((arr_points[i].X-players_points[0].X),2)+power((arr_points[i].Y-players_points[i].Y),2)));
		  player_position:=1+i; 
		end;

Но этот алгоритм дает ошибки.

[Arigato]

Проведите прямую между центром эллипса и этой точкой. Ближайшее пересечение данной прямой с эллипсом - искомая точка.

[DarkHacker]

Дело в том что фигуры как таковой не существует, есть набор точек которые БЫЛИ на этой фигуре.

[Arigato]

Тогда перебор точек и поиск минимального расстояния до нашей точки.

[northener]

Сообщение от DarkHacker

Но этот алгоритм дает ошибки.

Какие ошибки? Секретные?

[DarkHacker]

Не правильно рассчитывает минимальное расстояние. Т.е. в ряде случаев все ок, но иногда появляются неточности, точки имеют определенную плотность видимо по этому и возникают неточности. Если тот вариант что я представил является более-менее оптимальным, значит мне следует поработать над входящими данными.

[kropotkina-alice]

Сообщение от DarkHacker

Здравствуйте. Подскажите пожалуйста есть ли готовый алгоритм для поиска самой ближней точки для заданной точки из массива точек?

Полно!
Но их собирают в разделе "Помощь студентам" - они там нужнее...

[Smitt&Wesson]

Подскажите пожалуйста есть ли готовый алгоритм для поиска самой ближней точки для заданной точки из массива точек?

Есть. Уравнение прямой на плоскости называется. 4-й класс среднеобразовательной школы. Эвклидова геометрия.

[Utkin]

Код похож на правду, только отвратительный. Напишите отдельную функцию для расчета расстояний между двумя точками и проходите циклом.
Ошибки могут возникать из-за разницы в системе отсчета. Как правило для строительства эллипса используют свою систему координат. Ваш игрок и эллипс отсчитываются в одном пространстве?

Эвклидова геометрия.

У него и есть квадратичная разница между координатами.

Т.е. в ряде случаев все ок, но иногда появляются неточности, точки имеют определенную плотность видимо по этому и возникают неточности.

Что это значит? Ваши координаты не вещественные? Если влияет погрешность масштабируйте координаты (умножив на 100 например) перед вычислением расстояния.

[Stilet]

Я бы наверное писал так:

ax:=players_points[0].x;
ay:=players_points[0].Y;
for i:=1 to length(arr_points)-1 do
 with arr_points[i] do
	  if (sqrt(sqr(X-aX)+sqr(Y-aY))<temp_distance) or (i=1) then
	   begin
		 temp_distance:=sqrt(sqr(X-aX)+sqr(Y-aY)));
		  player_position:=i; 
	   еnd;

И переменные все одного типа бы сделал.