Services & ResourcesWolfram ForumsMathGroup Archive

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

Re: variables/objects with sequential naming?

• To: mathgroup at smc.vnet.net
• Subject: [mg130180] Re: variables/objects with sequential naming?
• From: James Stein <mathgroup at stein.org>
• Date: Sun, 17 Mar 2013 03:11:29 -0400 (EDT)
• Delivered-to: l-mathgroup@mail-archive0.wolfram.com
• Delivered-to: l-mathgroup@wolfram.com
• Delivered-to: mathgroup-newout@smc.vnet.net
• Delivered-to: mathgroup-newsend@smc.vnet.net
• References: <20130316071540.34E2969C3@smc.vnet.net>

I recommend writing a general purpose function 'set',
then writing a more specific routine 'setGraph':

set [ name_String, val_ ] := ( Clear[name]; Set [ Evaluate [ Symbol [
name ]] , val ] );
setGraph [ k_Integer ] :=
  set [ "graph" <> ToString [k], Graph [ cities,
DeleteDuplicates@edges [ [ 1 ] ] ] ];


On Sat, Mar 16, 2013 at 12:15 AM,  <northerndream at gmail.com> wrote:
> Dear all,
>
> the simplest way to explain what I'd like to achieve is to show you the long way I had to go, not knowing how to automate this:
>
> graph1 = Graph[cities, DeleteDuplicates@edges[[1]]];
> graph2 = Graph[cities, DeleteDuplicates@edges[[2]]];
> graph3 = Graph[cities, DeleteDuplicates@edges[[3]]];
> graph4 = Graph[cities, DeleteDuplicates@edges[[4]]];
> graph5 = Graph[cities, DeleteDuplicates@edges[[5]]];
> graph6 = Graph[cities, DeleteDuplicates@edges[[6]]];
> graph7 = Graph[cities, DeleteDuplicates@edges[[7]]];
> ...
>
> and I think you got the point (no need to paste the whole list!)
>
> I will of course have the same problem on the way around, when I'll want to obtain a table of values for all my graph1, graph2...
>
> I used ToString to produce output files with sequential names, but this... no clue! (googling didn't help either)
>
> Could anywone help?
> Thank you
> - Stefano
>

• References:
  • variables/objects with sequential naming?
    • From: northerndream@gmail.com