mathematica plotrange clipping