mathematica densityplot plotrange