Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Для новичков > Работа с TChart


Автор: nikav 7.5.2010, 15:08
   Приветствую Вас!

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

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

Автор: superVad 7.5.2010, 17:14
 smile я ерунду написал

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

Автор: nikav 12.5.2010, 11:27
   Вот, сам выложу ответ на мой же вопрос  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: Общие вопросы".

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)