Save variables values and definition

Question

I used to do a lot of programming in R and recently switched to Mathematica. One thing that bothers me is that I haven't found a way to save variables, their values and definition!

Let's look at an example:

idx = Partition[RandomSample[Range[20], 20], 3];
Table[Subscript[vars, idx[[i]]] = Total[idx[[i]]], {i, 1, 
Length[idx]}];
Subscript[vars,{9,15,8}]
(*32*)

Is there a way to save the variable names as well as the corresponding values. And how would I read them into a new file? So that in a new file I can access with Subscript[vars,{9,15,8}] the value.

I tried it with Table[...]>>values.mx and read it in with values=<<values.mx but that only gives me the values, whereas I also need the definitions. I also tried:

DumpSave["values.mx", 
 Table[Subscript[vars, idx[[i]]] = Total[idx[[i]]], {i, 1, Length[idx]}]]

but got an error

DumpSave::bsnosym: "Table[..] is not defined as a symbol or a context"

Answer 1

There are two easy ways I can think of to do this, but both require a change to your methods.

The first is to merely use indexed objects instead of Subscript, e.g. vars[1] = x; vars["thing"] = y; . . .. You would then use Save["file.m", vars].

The second will allow you to use Subscript but you will need to change the way the definitions are made, to attach the definitions to the symbol vars rather than Subscript. (Described here.)

vars /: Subscript[vars, n] = . . .

This creates UpValues on the symbol vars which will be saved by Save["file.m", vars].

---

A complete working example:

idx = Partition[RandomSample[Range[20], 20], 3];

Table[vars /: Subscript[vars, i] = Total[i], {i, idx}];

Save["vars-test.m", vars];

Now check what was saved:

FilePrint["vars-test.m"]

---

For additional (general) methods of saving definitions see this post.

Answer 2

Start with your data idx. What you are calculating is the Total of each of the triplets in idx. Let's do this the easy way and assign it to a variable

vars = Map[Total, idx]

You can save vars to a file like this:

DumpSave["test.mx", vars]

Then, after quitting and starting again, you can get the saved variables and data back by

<<test.x

Now, if you want the nth entry of vars, you type

 vars[[n]]