Customised plotting functions for Mathematica