Угол между двумя векторами
Data: D1, I1, D2, I2
Result: j
Formulas:
1. D1, I1, R1=1 ⇒ x1, y1, z1 
2. D2, I2, R2=1 ⇒ x2, y2, z2 
3. cosj = x1.x2 + y1y2 + z1z2 
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