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: [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
>
>




  • Prev by Date: Re: Help with 3D graphics
  • Next by Date: RE: Help with 3D graphics
  • Previous by thread: Re: Help with 3D graphics
  • Next by thread: RE: Help with 3D graphics