Re: variables/objects with sequential naming?
- To: mathgroup at smc.vnet.net
- Subject: [mg130173] Re: variables/objects with sequential naming?
- From: "Louis Talman" <talmanl at gmail.com>
- Date: Sun, 17 Mar 2013 03:09:08 -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>
Try
Do[Evaluate[ToExpression["Graph"<>ToString[k]]] = k^2, {k, 1, 8}]
Note that the "Evaluate" terminates *on the left side* of the Set.
You can leave off the "Evaluate" when you want what's in your variables:
Table[ToExpression["Graph"<>ToString[k]],{k, 1, 8}]
On Sat, 16 Mar 2013 01:15:40 -0600, <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
>
--Louis A. Talman
Department of Mathematical and Computer Sciences
Metropolitan State University of Denver
<http://rowdy.msudenver.edu/~talmanl>
- References:
- variables/objects with sequential naming?
- From: northerndream@gmail.com
- variables/objects with sequential naming?