Re: ListPointPlot3D not composable?
- To: mathgroup at smc.vnet.net
- Subject: [mg97476] Re: [mg97443] ListPointPlot3D not composable?
- From: Bob Hanlon <hanlonr at cox.net>
- Date: Sat, 14 Mar 2009 05:36:01 -0500 (EST)
- Reply-to: hanlonr at cox.net
Show[ListPointPlot3D[
ReplacePart[
Partition[Range[100],
10], {{3, 3} -> None, {5, 7} -> I, {8, 4} ->
Missing["NotAvailable"]}], PlotStyle -> PointSize[Large]],
Graphics3D[{Red, AbsolutePointSize[8], Point[{6, 6, 50}]}]]
Bob Hanlon
---- congruentialuminaire 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