Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2009

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

Search the Archive

Re: ListPointPlot3D not composable?

  • To: mathgroup at smc.vnet.net
  • Subject: [mg97501] Re: ListPointPlot3D not composable?
  • From: "Sjoerd C. de Vries" <sjoerd.c.devries at gmail.com>
  • Date: Sat, 14 Mar 2009 05:40:33 -0500 (EST)
  • References: <gpdaam$jpn$1@smc.vnet.net>

Hi Roger,

Actually this is documented in the Epilog help page:

"In three-dimensional graphics, two-dimensional graphics primitives
can be specified by the Epilog option. The graphics primitives are
rendered in a 0,1 coordinate system. "

Translation: Epilog needs 2D Graphics primitives and not the 3D you
are providing it with.

If you want to inclued an additional 3D point you could simply use
Show to combine the plot and a separate Graphics:

Show[
 ListPointPlot3D[
  ReplacePart[
   Partition[Range[100],
    10], {{3, 3} -> None, {5, 7} -> I, {8, 4} ->
     Missing["NotAvailable"]}], PlotStyle -> PointSize[Large]],
 Graphics3D[Point[{6, 6, 50}]]]


wrt to q1: you can't do a Graphics3D of a Graphics3D...
Cheers -- Sjoerd

On Mar 13, 11:51 am, congruentialumina... at yahoo.com wrote:
> Hello MathGroup:
>
> I want to annotate my 3D point plot, so I start with some Epilog
> statements (e.g. Point[]). An example is:
>
> ListPointPlot3D[ReplacePart[Partition[Range[100], 10]
>    , {{3, 3} -> None, {5, 7} -> I, {8, 4} -> Missing["NotAvailable"]}=
]
>    , PlotStyle -> PointSize[Large]
>    , Epilog -> Point[{6, 6, 50}]
>    ]
>
> I kept getting a message like:
>
> "Array {6, 6, 50} has the wrong dimensions for a graphics coordinate
> list."
>
> This does not make sense since this works fine:
>
> Graphics3D@Point[{6, 6, 50}]
>
> Now since the help for ListPointPlot3D[] says: "returns Graphics3D[]"
> I decided to try a list of Graphics3D[{e1,e2}] and then I get stuck
> on:
>
> (* no Epilog statement now! *)
> q1 = ListPointPlot3D[ReplacePart[Partition[Range[100],
>      10], {{3, 3} -> None, {5, 7} -> I, {8, 4} ->
>       Missing["NotAvailable"]}], PlotStyle -> PointSize[Large]];
> Head@q1>> Graphics3D
> Graphics3D[q1]
> >> "Graphics is not a Graphics3D primitive or directive."
> Show@Graphics3D[q1]
> >> "Graphics is not a Graphics3D primitive or directive."
>
> q1
> (* output displays fine *)
>
> So should this work? What I am doing seems simple. I am trying to
> think of another workaround for this. Is there some other way to make
> this work?
>
> TIA.
>
> Roger Williams
> Franklin Laboratory



  • Prev by Date: Re: Re: Re: How to get data from Histogram
  • Next by Date: Re: Shooting Method Help
  • Previous by thread: Re: ListPointPlot3D not composable?
  • Next by thread: Looking for automated search engine for conjectures in algebraic