graph plot

*To*: mathgroup at smc.vnet.net*Subject*: [mg88487] graph plot*From*: N K <nk200810 at yahoo.com>*Date*: Tue, 6 May 2008 06:43:29 -0400 (EDT)

Hi everyone, I have the following scenario: lst = {12, 14, 12, 13, 15, 16, 16, 12, 5, 13} clusterNumber = 3; newlst = FindClusters[lst, clusterNumber] The above gives me: {{12, 12, 12, 5}, {14, 13, 13}, {15, 16, 16}} I now want to plot the 3 clusters. I tried the following: GraphPlot[Flatten[Thread[# -> (List @@ #)] & /@ newlst], SelfLoopStyle -> None, VertexLabeling -> True] However, there are couple of issues with the above that I could not figure out: 1) Not all nodes are shown. For instance 12 is shown only once in the output. Whereas I would like to see all 3 instances of 12. 2) I would like the above to look like the following (this is sort of the representation I want): 13   13 14  16  16   15 12 12  12   5  16 is the maximum value in my lst and that is why it is in the center. The values in the cluster of 16 {16,16,15} are in the center. 15 is a little further away because of the distance of 1. The cluster of {13,13,14} appears to be closer than the {12,12,12,5} because the sum of 13+13+14 = 40 and 12+12+12+5=41. Thanks very much in advance   ____________________________________________________________________________________ Be a better friend, newshound, and know-it-all with Yahoo! Mobile. Try it now. http://mobile.yahoo.com/;_ylt=Ahu06i62sR8HDtDypao8Wcj9tAcJ