Re: VertexStyle determined by List elements
- To: mathgroup at smc.vnet.net
- Subject: [mg54163] Re: VertexStyle determined by List elements
- From: bghiggins at ucdavis.edu
- Date: Sat, 12 Feb 2005 01:57:16 -0500 (EST)
- References: <cuhs6t$9eg$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Henning , Try this
SetGraphOptions[graph, Apply[Sequence, Table[{
n, VertexStyle -> Disk[ToExpression["var" <> ToString[n]]]}, {n, 1,
10}]]]
SetGraphOptions[graph, {1, VertexStyle -> Disk[var1]}, {2, VertexStyle
-> \
Disk[var2]}, {3, VertexStyle -> Disk[var3]}, {4, VertexStyle -> Disk[
var4]}, {5, VertexStyle -> Disk[var5]}, {6, VertexStyle -> Disk[
var6]}, {7, VertexStyle -> Disk[var7]}, {8, VertexStyle -> Disk[
var8]}, {9, VertexStyle -> Disk[var9]}, {10, VertexStyle -> Disk[
var10]}]
Cheers,
Brian