I had an Excel spreadsheet with a list of symbols names in the first column and a list of values in the second column. I imported it. Working with the resulting expression, I now have (in Mathematica) a list of names and a list of corresponding values.

names[[1 ;; 44]]
{"avogadro", "kgPerAmu", "gasConstant"...

values[[1 ;; 44]]
{6.02214*10^23, 1.66054*10^-27, 8.31446

What I want is a package with "assignement statements."


etc. I have no idea how to convert a pair of lists into a series of expressions. In fact, I don't know what functions to look up in the documentation. How to get my constants into a package?

  • $\begingroup$ I think it is covered by the generic topic I've linked, let me know if you disagree with closing. $\endgroup$ – Kuba Aug 7 '18 at 7:29

You can try this:

 ToExpression["Set[" <> #1 <> "," <> ToString[#2] <> "]"] &,
 {names, values}
| improve this answer | |
  • 1
    $\begingroup$ Or ToExpression@StringTemplate["``=``"][##] & $\endgroup$ – Kuba Aug 7 '18 at 7:39


MapThread[Set, {Symbol /@ names, values}] (* or *)
Set @@@ Transpose[{Symbol /@ names, values}]
| improve this answer | |
  • $\begingroup$ OK, MapThread[ ToExpression["Set[" <> #1 <> "," <> ToString[#2] <> "]"] &, {namesd, valuesd}] worked, but how do I make the symbols permanent? It is my experience that symbols in Mathematica just go away after a few days. It was a big deal creating the lists of names and symbols. I don't want to have to repeat it every day. $\endgroup$ – Gene Naden Aug 7 '18 at 7:07
  • 2
    $\begingroup$ @GeneNaden Unless you save them they will go away, take a look at this topic and other topics linked there: mathematica.stackexchange.com/q/121/5478 As well as documentation for Save/DumpSave etc. $\endgroup$ – Kuba Aug 7 '18 at 7:36
  • $\begingroup$ Yeah, I used Save command and it created a file with the lists in it, so that solved it. $\endgroup$ – Gene Naden Aug 8 '18 at 14:50

Not the answer you're looking for? Browse other questions tagged or ask your own question.