MathGroup Archive 2009

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

Search the Archive

Re: issues with GraphPlot



Hi Sean,

to get an narrower picture you ,may use "ImageSize". But as this simply 

makes the picture smaller, you need to adapt the circle size and arrows. 

E.g.:

GraphPlot[{{"B" -> "A", "+"}, {"A" -> "B", "+"}},

  DirectedEdges -> True, VertexLabeling -> True,

  VertexRenderingFunction -> ({White, EdgeForm[Black], Disk[#, .1],

      Black, Text[#2, #1]} &), EdgeLabeling -> True,

  EdgeRenderingFunction -> ({Arrowheads[Medium], Arrow[#1, 0.12]} &),

  PlotStyle -> Thickness[0.005], ImageSize -> 200 ]

Daniel



sean_incali at yahoo.com wrote:

> Hello group,

> 

> A few things that I just can't figure out.

> 

> 1. EdgeRenderingFunction ignores edge labels.

> 

> GraphPlot[{{"B" -> "A" , "+"}, {"A" -> "B", "+"}},

>  DirectedEdges -> True, VertexLabeling -> True,

>  VertexRenderingFunction -> ({White, EdgeForm[Black], Disk[#, .05],

>      Black, Text[#2, #1]} &), EdgeLabeling -> True,

>  EdgeRenderingFunction -> ({ Arrowheads[Medium],

>      Arrow[#1 , 0.07]} &), PlotStyle -> Thickness[0.005]]

> 

> 2. As it is, above code produces a graph that is stretched

> horizontally a bit too much. About the half the horizontal width works

> better for me. How do I accomplish that? AspectRatio-> 1/GoldenRatio

> doesn't work since disk gets stretch also.

> 

> 3. For node A to appear on the left, "B"-> "A" has to be defined

> first. If I reverse it, then the node B will appear on the left. What

> is the reason for this?

> 

> Thanks in advance for any info.

> 

> Sean

> 

> 

> 

> 

> 




  • Prev by Date: Re: Manipulate problems again
  • Next by Date: Re: Copy/paste selection of a pdf on Mac
  • Previous by thread: Re: issues with GraphPlot
  • Next by thread: Re: issues with GraphPlot