Re: Help with 3D graphics
- To: mathgroup at smc.vnet.net
- Subject: [mg33864] Re: Help with 3D graphics
- From: "Allan Hayes" <hay at haystack.demon.co.uk>
- Date: Sat, 20 Apr 2002 02:49:59 -0400 (EDT)
- References: <a9og0m$df8$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Debbie,
1. For each show option type, Show[ gr1, gr2, .. , grn, showoptions] uses
the firse option of that type in , showoptions options from gr1 (options
from gr2 ... are not used); so in your code the option PlotRange -> {0,1} is
not effective.
2. The SurfaceGraphics object generated by Plot3D will be automatically
converted to a Graphics3D object when shown with such an object.
3. We can collect the points together in a list and use single directive
PointSize[.05].
Show[Plot3D[2*x + y, {x, 0, 1}, {y, 0, 1},
PlotRange -> {0, 1}, ClipFill -> None],
Graphics3D[{PointSize[0.05], Point[{0, 0, 0}],
Point[{0, 0, 1}], Point[{0, 1, 0}],
Point[{0, 1, 1}]}]]
4. If we want to show only the last picture we can turn display off and then
on.
Show[Plot3D[2*x + y, {x, 0, 1}, {y, 0, 1},
DisplayFunction -> Identity],
Graphics3D[{PointSize[0.05], Point[{0, 0, 0}],
Point[{0, 0, 1}], Point[{0, 1, 0}],
Point[{0, 1, 1}]}], DisplayFunction ->
$DisplayFunction, PlotRange -> {{0, 1}, {0, 1},
{0, 1.1}}];
(I have used (0,1.1} to show the highest point)
--
Allan
---------------------
Allan Hayes
Mathematica Training and Consulting
Leicester UK
www.haystack.demon.co.uk
hay at haystack.demon.co.uk
Voice: +44 (0)116 271 4198
Fax: +44 (0)870 164 0565
"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
>
>