Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2002
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2002

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

Search the Archive

Re: Help with 3D graphics

  • To: mathgroup at smc.vnet.net
  • Subject: [mg33862] Re: Help with 3D graphics
  • From: adam.smith at hillsdale.edu (Adam Smith)
  • Date: Sat, 20 Apr 2002 02:49:55 -0400 (EDT)
  • References: <a9og0m$df8$1@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

The simple answer is that you have an extra "Graphics3D[] that is not
needed with the Plot[ ] command.

Try this:

plotpoints = Show[ 
    Graphics3D[{ PointSize[0.05], Point[{0, 0, 0}] } ], 
    Graphics3D[{ PointSize[0.05], Point[{0, 0, 1}] } ], 
    Graphics3D[{ PointSize[0.05], Point[{0, 1, 0}] } ], 
    Graphics3D[{ PointSize[0.05], Point[{0, 1, 1}] } ] ] 

plotplane = 
  Plot3D[2x + y, {x, 0, 1}, {y, 0, 1}, PlotRange -> {0, 1} , ClipFill
-> None,
     PlotPoints -> 50]

Show[plotplane,plotpoints]

Note the ordering has an effect.  Doing Show[plotpoints,plotplane]
also works but the axes are taken from the first entry and it looks
different

Adam Smith


"Debbie Carlini" <dmc522 at earthlink.net> wrote in message news:<a9og0m$df8$1 at smc.vnet.net>...
> I am doing a project for school and need to be able to plot a 3D graph that
> goes from 0 to 1 in x, y and z directions.  I also need to be able to plot a
> set of 3d points on the same graph as the 3d graph.
> Here is what i have so far, the problem is that my second graph does not go
> from 0 to 1 in the z direction like the first graph.  I think it is a
> problem with converting Plot3D to Graphics3D.
> 
> Show[
>   Graphics3D[{ PointSize[0.05], Point[{0, 0, 0}] } ],
>   Graphics3D[{ PointSize[0.05], Point[{0, 0, 1}] } ],
>   Graphics3D[{ PointSize[0.05], Point[{0, 1, 0}] } ],
>   Graphics3D[{ PointSize[0.05], Point[{0, 1, 1}] } ],
>   Graphics3D[
>     Plot3D[2x + y, {x, 0, 1}, {y, 0, 1}, PlotRange -> {0, 1},
>       ClipFill -> None  ]]
> 
>   ]
> 
> Would my problem be solved if i used ScatterPlot3D to plot the points.  The
> problem i've found with this is that ScatterPlot3D will not work in Show
> command.
> 
> Thanks


  • Prev by Date: Need a algorithm
  • Next by Date: Re: Help with 3D graphics
  • Previous by thread: Help with 3D Graphics
  • Next by thread: Re: Help with 3D graphics