MathGroup Archive 2010

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

Search the Archive

Re: edge labels

  • To: mathgroup at smc.vnet.net
  • Subject: [mg107920] Re: [mg107899] edge labels
  • From: Patrick Scheibe <pscheibe at trm.uni-leipzig.de>
  • Date: Tue, 2 Mar 2010 07:56:40 -0500 (EST)
  • References: <201003020837.DAA04069@smc.vnet.net>

Hi,

what about

sty[s_String] := Style[s, 28]
TreePlot[{{1 -> 2, sty["0"]}, {2 -> 4, sty["0"]}, {3 -> 6, sty["0"]},  
{1 -> 3,
     sty["1"]}, {2 -> 5, sty["1"]}, {3 -> 7, sty["1"]}}, Top]

?

Cheers
Patrick


Am Mar 2, 2010 um 9:37 AM schrieb Andre Hautot:

> I need to enlarge the size of the characters "0" and "1" in the  
> display
> of the following binary tree :
>
> TreePlot[{{1 -> 2, "0"}, {2 -> 4, "0"}, {3 -> 6, "0"}, {1 -> 3,  "1"},
> {2 -> 5, "1"}, {3 -> 7, "1"}}, Top]
>
> but I have no idea how to do that.  Any idea ?
> Thanks in advance,
> Andre
>
>



  • References:
  • Prev by Date: Re: Select Maximum Value
  • Next by Date: Re: Harmonic Numbers
  • Previous by thread: edge labels
  • Next by thread: Re: edge labels