[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 то абракадабра получается.

[icWasya]

Посмотрите, что такое векторное произведение.
В общем, векторное произведение двух векторов даёт в итоге вектор, длина которого даёт площадь параллелограмма, построенного на этих векторах. А по-другому, площадь этого параллелограмма равна произведению длин векторов, умноженного на синус угла между ними.
Итого
Sin(Alpha) = Len(A)*Len(B)/Len(AxB)

[Bargest]

Или по теореме косинусов: длины векторов равны b и c, b^2 = x1^2 + y1^2, c^2 = x2^2 + y2^2. Расстояние между точками a = (x1 - x2)^2 + (y1 - y2)^2. Тогда cos(a) = (b^2 + c^2 - a^2) / (2bc)
Или из определения скалярного произведения, cos(a) = bc/(|b||c|), тут bc - сумма попарного произведения координат векторов b и c, (|b||c|) - произведение длин векторов, т.е. в обозначениях предыдущей формулы cos(a) = (x1*x2+y1*y2)/(sqrt(x1^2 + y1^2)*sqrt(x2^2 + y2^2))
А от того, что вы dx поделите на длину, вы получите совершенно не тот угол - это угол прямоугольного треугольника, у которого гипотенуза между заданными точками, а катеты параллельны осям координат.