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

MathGroup Archive 2008

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

Search the Archive

Re: Text does not show up in vertices of GraphPlot3D

  • To: mathgroup at smc.vnet.net
  • Subject: [mg87893] Re: Text does not show up in vertices of GraphPlot3D
  • From: P_ter <petervansummeren at gmail.com>
  • Date: Sat, 19 Apr 2008 03:37:14 -0400 (EDT)

I asked help from Wolfram in this case with the graph gr1. 
gr1 = {"adacadabra" -> 1, "adacadabra" -> 2, 1 -> 3, 1 -> 4, 1 -> 5, 
  2 -> 6, 2 -> 5, 3 -> 7, 3 -> 8, 5 -> 8, 4 -> 7, 4 -> 9, 5 -> 9, 
  6 -> 9, 6 -> 10, 7 -> 11, 8 -> 11, 9 -> 11, 10 -> 11}
Chetiya Sahabandu came with the following answer:
GraphPlot3D[gr1, VertexLabeling -> True, 
 EdgeRenderingFunction -> (Cylinder[#1, .05] &), 
 VertexRenderingFunction -> ({{Text[#2, #1]}, {ColorData["Atoms"][
       100], Sphere[#1, .19]}, {Style[Text[#2, #1], Bold, 16, 
       Green]}, {ColorData["Atoms"][100], Sphere[#1, .19]}} &), 
 PlotStyle -> Directive[Specularity[White, 20]]]
I post this answer because I hope that people can use it.
Thanks to Chetiya Sahabandu.
with friendly greetings,
P_ter


  • Prev by Date: Re: Why isn't Expand[] grouping terms by order?
  • Next by Date: Re: Quantile and InverseCDF
  • Previous by thread: Re: Text does not show up in vertices of GraphPlot3D
  • Next by thread: Re: What determines #1 and #2 values (with &) for