Henning,
Here is an example.
<< DiscreteMath`Combinatorica`
varlist = Range[5]/50;
vstyles =
Table[{i, VertexStyle -> Disk[Part[varlist, i]]}, {i, 1,
Length[varlist]}];
g = Star[5];
ShowGraph[SetGraphOptions[g, vstyles]];
David Park
djmp at earthlink.net
http://home.earthlink.net/~djmp/
From: Henning Heiberg-Andersen
To: mathgroup at smc.vnet.net
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