Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2005
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2005

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

Search the Archive

Re: VertexStyle determined by List elements

  • To: mathgroup at smc.vnet.net
  • Subject: [mg54228] Re: [mg54135] VertexStyle determined by List elements
  • From: Henning Heiberg-Andersen <Henning.Heiberg-Andersen at fi.uib.no>
  • Date: Sun, 13 Feb 2005 22:17:17 -0500 (EST)
  • Sender: owner-wri-mathgroup at wolfram.com

Hi,

During the time it took for my request to pass the queue I had time to 
explore the faboluos capabilities of Mathematica, so here is a small
routine for plotting the values of eigenvector number m at the n 
vertices of the graph g:

vec=Extract[N[Eigenvalues[SparseArray[ToAdjacencyMatrix[g]]]],m];

AssignColor[x_]:=If[x>0,Blue,Brown];

AssignDisk[x_,scale_]:={x,VertexColor->AssignColor[Extract[vec,x],
                       VertexStyle->Disk[Abs[vec,x]/scale]}

ScaleVertices[scale_]:=Table[AssignDisk[x,scale],{x,1,n}]

Now the m'th eigenvector will be visualized by typing:

ShowGraph[SetGraphOptions[g,ScaleVertices[15]]

(when 'scale' is chosen equal to 15).

Best regards,

Henning Heiberg-Andersen




On Fri, 11 Feb 2005, Chris Chiasson wrote:

> Is the list of fixed or variable length? What is the function you
> would like to use to permute the parameter going to the Disk function?
> 
> 
> On Fri, 11 Feb 2005 03:34:01 -0500 (EST), Henning Heiberg-Andersen
> <Henning.Heiberg-Andersen at fi.uib.no> wrote:
> > 
> > Hi,
> > 
> > I have generated some large graphs with the Combinatorica Package,
> > and have a large List of different variables I would like to apply in the
> > VertexStyle command.
> > 
> > More specific, how can I get from typing by hand
> > 
> > SetGraphOptions[graph,{1,VertexStyle->Disk[var1]},
> >                       {2,VertexStyle->Disk[var2]},...
> >                    ...{N,VertexStyle->Disk[varN]}]
> > 
> > to a more sensible solution?
> > 
> > Best regards,
> > 
> > Henning Heiberg-Andersen
> > 
> > 
> 
> 
> 


  • Prev by Date: Re: finding package in ExtraPackages`Enhancements`
  • Next by Date: Re: Probable answer to a mystery
  • Previous by thread: Re: VertexStyle determined by List elements
  • Next by thread: Create Permanent Self Defined Function?