[Klyaksa]

Всем привет! Вобщем суть вопроса такова. Как мне найти угол в 3-ех мерном пространстве по двум точкам по оси Y http://http://www.delphisources.ru/f...d=142522009 3 Юзаю такую формулу

Код:

....
L:=SQRT(sqr(cell.x_f-cord.x_f)+sqr(cell.z_f-cord.z_f)); // длина отрезка между двумя этими точками
If L<>0 Then // если длина не нулевая (точки не совпадают)
      If cell.z_f<=cord.z_f Then
            ag:=-ArcCos((cell.x_f-cord.x_f)/L)
//caption:=('Угол равен  '+floatToStr((ang/Pi*360))+'  градусов') end
      Else
            ag:=Arccos((cell.x_f-cord.x_f)/L)
Else
      Begin
      //ShowMessage('Точки совпадают.');
      Exit;
      End;
gr:=ag/Pi*180;
 If cell.z_f>cord.z_f Then
....

Работает отлично, но только по X.
P.S.
В коде указан координата Z вместо Y. Если подставить Y то абракадабра получается.