VPF::Работа с TChart - Форум программистов

nikav

Дата 7.5.2010, 15:08 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 29
Регистрация: 18.10.2009

Репутация: нет
Всего: нет

   Приветствую Вас!

   У меня такая проблемка:
На графике 2 ломаные линии Series1 и Series2. Мне необходимо узнать попадает ли точка (x,y) в зону между линиями или нет.

   Заранее спасибо!

superVad

Дата 7.5.2010, 17:14 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 735
Регистрация: 6.4.2006
Где: Черкассы, Украина

Репутация: 7
Всего: 15

я ерунду написал

Это сообщение отредактировал(а) superVad - 7.5.2010, 17:15

nikav

Дата 8.5.2010, 12:15 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 29
Регистрация: 18.10.2009

Репутация: нет
Всего: нет

бывает. Но хоть в какую сторону мыслить, может подскажешь? Или проще будет проверить попадание точки, используя функции по которым строятся линии?

nikav

Дата 12.5.2010, 11:27 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 29
Регистрация: 18.10.2009

Репутация: нет
Всего: нет

Вот, сам выложу ответ на мой же вопрос smile

Решение сводится к аналитической геометрии.

Код


function InOrNotToIn(S1,S2:TCustomSeries; O_x,O_y:single):boolean;
var
  A1,A2,B1,B2:TPointFloat;
  y1,y2:single;
  i:integer;
begin
  if (O_x<S1.MinXValue) o r(O_x>S1.MaxXValue) or (O_x<S2.MinXValue) or (O_x>S2.MaxXValue) then
  begin
     showmessage('Error: точка выходит за пределы графика');
     exit;
  end;

  for i:=0 to S1.Count-1 do
     if S1.XValue[i]>O_x then
     begin
        A2.y:=S1.YValue[i]; A2.x:=S1.XValue[i];
        A1.y:=S1.YValue[i-1]; A1.x:=S1.XValue[i-1];
        break;
     end;

  for i:=0 to S2.Count-1 do
     if S2.XValue[i]>O_x then
     begin
        B2.y:=S2.YValue[i]; B2.x:=S2.XValue[i];
        B1.y:=S2.YValue[i-1]; B1.x:=S2.XValue[i-1];
        break;
     end;

  // (x-x1)/(x2-x1)=(y-y1)/(y2-y1);
  // y=y1+(y2-y1)*(x-x1)/(x2-x1)
  y1:=A1.y+((A2.y-A1.y)*(O_x-A1.x))/(A2.x-A1.x);
  y2:=B1.y+((B2.y-B1.y)*(O_x-B1.x))/(B2.x-B1.x);

  if ((y1<O_y) and (O_y<y2)) or ((y2<O_y) and (O_y<y1)) then
     result:=true
  else
     result:=false;

end;

Кстати, огромное спасибо kuzyara за помощь. smile

типа авторские права smile

Ответ я получил в разделе "Delphi: Общие вопросы".

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »