Расчёт среднего расстояния между двумя линиями (Delphi)

[Krutkin]

Здравствуйте. Я новый на этом форуме, поэтому могу не знать каких-либо неписаных правил, извиняюсь, если что не так.
Проблема такова: есть две линии, эталонная и рисуемая пользователем, известны координаты Y для каждого соответствующего X. Но при подсчёте почему-то выдаются какие-то дикие значения. Прошу помощи.

рисование исходной синусоиды
procedure TForm1.btn1Click(Sender: TObject); - 
begin
btn1.Hide;
btn2.Show;
mmo1.Hide;
edt1.Hide;
PatBlt(Form1.Canvas.Handle, 0, 0, Form1.ClientWidth, Form1.ClientHeight, WHITENESS); 
sec:=0;
form1.Canvas.MoveTo(10,(ClientHeight div 2)-50);
tmr1.Enabled:=true;
for PX:=10 to 790 do
begin                                                                       
X:=PX*4*Pi/ClientWidth;
Y:=Sin(X);
PY:=trunc(ClientHeight - (Y+1)*ClientHeight/3);
form1.Canvas.LineTo(PX,PY-115);
massiv1[PX]:=py-115;
end;
end;
end;


рисование линии пользователем и расчёт
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if (dwn=True) then
begin
Form1.Canvas.LineTo(x,y);
lbl1.caption:=IntToStr(x)+' ; '+IntToStr(y);
if (x>10) then
q:=Sqrt(Sqr(massiv1[x]-y)); - я понимаю, что в принципе формула другая, но даже так выводит что-то явно не то
end;
end;

[Прик]

Кто бы знал, что такое "среднее расстояние между двумя линиями".

[Krutkin]

среднее арифметическое кратчайших расстояний между всеми соотв. точками

[Прик]

если имеется ввиду расстояние между точками по вертикали (по оси Y) и просто среднее арифметическое расстояний, то при рисовании линии складываем расстояние между значениями Y и делим на количество прочерченных точек.

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  if dwn then begin
    Canvas.LineTo(x,y);
    if (x>10) then begin
      q := q + massiv1[x]-y;
      Inc(c);
      Label1.Caption := floatToStrF(q/c, ffFixed, 10, 2);
    end;
  end;
end;

[Serge_Bliznykov]

среднее арифметическое кратчайших расстояний между всеми соотв. точками

1) Откуда такие постулаты?
Дайте, пожалуйста, ссылку на какой-нибудь более-менее авторитетный сайт (математический или просто энциклопедический), где можно прочитать об этом? Особенно интересует понятие "соответствующие" точки? Какие точки у двух прямых являются соответствующими?

2) Вы не путаете понятия прямая и отрезок? Прямая линия по определению не имеет начала и конца, и, соответственно, состоит из бесконечного числа точек...

короче, для того, чтобы помочь Вам, надо понять, ЧТО же Вы, собственно, пытаетесь, вычислить...

[Krutkin]

2) я нигде не использовал понятия "прямая"
1) да, действительно, официально такого термина не существует, и определение дал я не очень, потому что устал, и голова уже не варила. соответствия хватило бы любого, хоть разность игреков по одному иксу.

Большое спасибо вам, Прик, вы мне очень помогли. я не понимаю, в чём разница с тем методом, который я использовал сначала, до того, как я начал перешёл на всякие дикости и, наконец, был вынужден обратиться сюда, но работает.