Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2009

[Date Index] [Thread Index] [Author Index]

Search the Archive

Bug in Plot3D?

  • To: mathgroup at smc.vnet.net
  • Subject: [mg105217] Bug in Plot3D?
  • From: SixWingedSeraph <wellsoberlin at gmail.com>
  • Date: Tue, 24 Nov 2009 05:51:44 -0500 (EST)

The two plot commands in the notebook below should give identical
outputs, but they don't.  The notebook is posted at http://abstractmath.org/MM/MmaBugQ.nb

a := 9; b := 18;

ff[x_, y_, z_] := x + y + z

gg[x_, y_, z_] := 2*x - 2*y - z

f[x_, y_] := z /. Solve[ff[x, y, z] == a, z]

f[x, y]

g[x_, y_] := z /. Solve[gg[x, y, z] == b, z]

g[x, y]

Plot3D[{-x - y + 9, 2*(x - y - 9)}, {x, 6, 10}, {y, -5, 1},
   BoxRatios -> {4, 6, 24}, ViewPoint -> {4.5, 3, 20},
 MeshStyle -> Gray,
   AxesLabel -> {x, y, z}, PlotStyle -> {{Red, Opacity[0.7]},
       {Green, Opacity[0.7]}}, ColorFunction -> White]

Plot3D[{f[x, y], g[x, y]}, {x, 6, 10}, {y, -5, 1},
   BoxRatios -> {4, 6, 24}, ViewPoint -> {4.5, 3, 20},
 MeshStyle -> Gray,
   AxesLabel -> {x, y, z}, PlotStyle -> {{Red, Opacity[0.7]},
       {Green, Opacity[0.7]}}, ColorFunction -> White]



  • Prev by Date: Re: Importing fonts into Inkscape
  • Next by Date: Re: Re: Re: I broke the sum into pieces
  • Previous by thread: Re: how to find a function
  • Next by thread: Re: Bug in Plot3D?