A Geometrical Geodesy Package for Mathematica