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