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