Сферические координаты вектора из декартовых
Data: X, Y, Z
Result: D, I
Formulas:
1. p = Sqrt(X2+Y2)
2. R = Sqrt(X2+Y2 +Z2)
3. D = ArcCosDeg(X/p) Sign(Y)
4. I = ArcSinDeg(Z/R)
Pascal listing:
P:=Sqrt(X*X+Y*Y);
R:=Sqrt(X*X+Y*Y+Z*Z);
D:=ArcCosDeg(X/P)*Sign(Y);
I:=ArcSinDeg(Z/R);
See: Sqrt ArcCosDeg ArcSinDeg Sign