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

MathGroup Archive 2008

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

Search the Archive

Re: Re: TreePlots and GraphPlots

  • To: mathgroup at smc.vnet.net
  • Subject: [mg88631] Re: [mg88609] Re: TreePlots and GraphPlots
  • From: Murray Eisenberg <murray at math.umass.edu>
  • Date: Sat, 10 May 2008 06:53:36 -0400 (EDT)
  • Organization: Mathematics & Statistics, Univ. of Mass./Amherst
  • References: <fvudp8$eck$1@smc.vnet.net> <200805091117.HAA21604@smc.vnet.net>
  • Reply-to: murray at math.umass.edu

And not that once the TreePlot is displayed, you may want to move the 
leaves around a bit so as to keep their labels better separated.  YOu 
can do this by double-clicking on the graphic that gives a particular 
vertex label and just drag it to a new position.

Jean-Marc Gulliet wrote:
> Namrata Khemka wrote:
> 
>> I have a question regarding TreePlot and GraphPlots. I have the following
>> list :
>>  myList1 = {{1.9124437047927545`, 2.140934695277407`,
>>       2.4290608973234304`}, {3.1220434925197633`}, {3.193277882536842`,
>>       3.321086033303083`, 3.3624160109272454`}, {3.8240882444935016`,
>>       4.778362811870326`}}
>>
>> One of the elements in this list is set as the root node for a tree - based
>> structure. For instance :
>>      treeRoot = myList1[[2]]
>>
>>    Based on the list above : I would like the root node will have 3 children
>> The first child has 3 leaf nodes
>> {1.9124437047927545`, 2.140934695277407`,  2.4290608973234304`}, the second
>> child has three leaf nodes
>> {3.193277882536842`, 3.321086033303083`,  3.3624160109272454`} and finally
>> the third child has 2 leaf nodes :
>> {3.8240882444935016`, 4.778362811870326`}.
>>
>> In other words, I am trying to represent myList1 in a tree structure.   I am
>> not able to create a list of rules for the tree. Any suggestions/
>>   ideas would be great.
> 
> The following may suit your needs.
> 
> myList1 = {{1.9124437047927545`, 2.140934695277407`,
>      2.4290608973234304`}, {3.1220434925197633`}, {3.193277882536842`,
>      3.321086033303083`, 3.3624160109272454`}, {3.8240882444935016`,
>      4.778362811870326`}};
> 
> myList2 =
>   Thread[Table[myList1[[2]], {Length[myList1] - 1}] ->
>     Delete[myList1, 2]]
> 
> TreePlot[myList2, VertexLabeling -> True]
> 
> {{3.12204} -> {1.91244, 2.14093,
>     2.42906}, {3.12204} -> {3.19328, 3.32109,
>     3.36242}, {3.12204} -> {3.82409, 4.77836}}
> 
> [... Tree plot deleted ...]
> 
> Regards,
> -- Jean-Marc
> 

-- 
Murray Eisenberg                     murray at math.umass.edu
Mathematics & Statistics Dept.
Lederle Graduate Research Tower      phone 413 549-1020 (H)
University of Massachusetts                413 545-2859 (W)
710 North Pleasant Street            fax   413 545-1801
Amherst, MA 01003-9305


  • Prev by Date: Re: Display commands in a package
  • Next by Date: Re: Tracking a dynamic variable
  • Previous by thread: Re: TreePlots and GraphPlots
  • Next by thread: A bug in Show[]?