黄道直交座標（ｘ，ｙ，ｚ）を球面座標（ｒ，λ，β）に変換する。 惑星の位置をベクトルで表して、P＝＜ｘ，ｙ，ｚ＞ とすれば、ｒ＝vlength(P) により、惑星までの距離ｒを得る。 もし、(P.x＝0 & P.y＝0) ならば、H＝0、そうでなければ、H＝atan2(P.y ,P.x)…