Угол между двумя векторами
Data
:
D
1
,
I
1
,
D
2
,
I
2
Result:
j
Formulas
:
1.
D
1
,
I
1
,
R
1
=1
⇒
x
1
,
y
1
,
z
1
2.
D
2
,
I
2
,
R
2
=1
⇒
x
2
,
y
2
,
z
2
3.
cos
j
=
x
1.
x
2
+
y
1
y
2
+
z
1
z
2
Pascal listing
:
di2xyz
(
Decl1
,
Incl1
,x1,y1,z1);
di2xyz
(
Decl2
,
Incl2
,x2,y2,z2);
Angle
:=
ArcCosDeg
(x1*x2+y1*y2+z1*z2);
See:
di2xyz
ArcCosDeg