Geographical Models with Mathematica