Роман Сотниченко

E - 3D координаты центра Земли
M - 3D координаты центра Луны
S - 3D координаты центра Солнца
dotproduct(A, B) - скалярное произведение векторов A и B
arc(A) - арккосинус угла A

угол = arc( dotproduct( M-E, S-E) );