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

nikav

Дата 8.5.2010, 16:37 (ссылка)

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

Загрузка ...

Новичок

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

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

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

Писал этот вопрос на "Delphi: Для новичков" но никто помочь не смог или не захотел smile

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

Или это нужно проверять через функции которыми линии строятся?

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

kuzyara

Дата 11.5.2010, 18:59 (ссылка)

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

Загрузка ...

Бывалый

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

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

интересненько

ОНАЛитическая геометрия )))

Код


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)or(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;

--------------------

подпись

nikav

Дата 11.5.2010, 20:36 (ссылка)

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

Загрузка ...

Новичок

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

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

Огромное спасибо! Идею понял. Буду воплощать smile

Цитата

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

Да это и есть окончательный код smile

Даже менять ниче не надо, только под задачу подогнать smile

Еще раз спасибо kuzyara smile

Считаю вопрос решенным smile

Это сообщение отредактировал(а) nikav - 12.5.2010, 11:14

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