Computational Geosciences with Mathematica