Re: Graph with different edge thicknesses
- To: mathgroup at smc.vnet.net
- Subject: [mg85523] Re: Graph with different edge thicknesses
- From: dh <dh at metrohm.ch>
- Date: Wed, 13 Feb 2008 04:17:53 -0500 (EST)
- References: <fopbs0$c3b$1@smc.vnet.net>
Hi,
here is a simple solution using a counter:
count = 1;
g = LayeredGraphPlot[{1 -> 2, 1 -> 3},
EdgeRenderingFunction -> ({Thickness[0.001 count++], Arrow[#1]} &)]
However, there is a hitchup. The EdgeRenderingFunction is called twice
on every edge (I do not know why). To prevent drawing each edge twice
with different thickness, we may use a function that remembers its values:
count=1;
Clear[getThickness];
getThickness[d_]:=getThickness[d]=0.004 count++;
g=LayeredGraphPlot[{1->2,1->3},EdgeRenderingFunction->({Thickness[getThickness[#1]],Arrow[#1]}&)]
hope this helps, Daniel
Gaudium wrote:
> Hello all, I created a graph with edges {1->2,1->3,2->4,2->5}. But I
> want that these edge lines have thickness values {0.01,
> 0.02,0.03,0.04} respectively. How can I do that with
> EdgeRenderingFunction? Thank you.
>