Mathematica 3.0.0 on WinNT 4: Bug in Show[]
- To: mathgroup at smc.vnet.net
- Subject: [mg8848] Mathematica 3.0.0 on WinNT 4: Bug in Show[]
- From: Gregor Overney <overney at worldnet.att.net>
- Date: Mon, 29 Sep 1997 02:40:21 -0400
- Organization: AT&T WorldNet Services
- Sender: owner-wri-mathgroup at wolfram.com
Please try the following code that should overlap a CountourPlot
together with a
DensityPlot using Mathematica 3.0.0 on WinNT 4.0. Any idea how to fix
this
problem?
If you are replacing PlotPoints->300 with PlotPoints->100 and
PlotPoints->200 with
PlotPoints->50, respectively, it should work, but then the quality of
the output is far
from publication quality.
I do not think that the problem is related to RAM size, nor do I believe
that a hardware
related problem (e.g. graphics board, CPU, ...) could cause this strange
behavior.
gregor
Func[x_, y_] = Sin[x^2*y - 4 x*y^2] + x*y;
Cont1 = DensityPlot[
Func[x, y], {x, -nres, nres}, {y, -nres, nres},
PlotPoints -> 300, Mesh -> False, ColorFunction -> Hue,
DisplayFunction -> Identity];
Cont2 = ContourPlot[Func[x, y], {x, -nres, nres}, {y, -nres, nres},
PlotPoints -> 200, Contours -> {0}, ContourShading -> False,
ContourStyle -> {RGBColor[0, 0, 0]}, DisplayFunction ->
Identity];
Show[{Cont1,Cont2}, DisplayFunction -> $DisplayFunction];