This question already has an answer here:

This is probably a really simple one, but I'm stumped. I want Symbol["x"]=3 to work just like x=3. However I can't figure out how to get Mathematica to evaluate the Symbol, converting the string to the symbol x, but then not evaluate x.

x = 2


Symbol["x"] = 3

Set::write: Tag Symbol in Symbol[x] is Protected. >>


Evaluate[Symbol["x"]] = 2

Set::setraw: Cannot assign to raw object 3. >>


I know that I can remove the definition, but I have a ton of these and would like to be able to replace their values that have been already set. x=3 doesn't require that I remove the definition of x to set it.

In case it matters, I'm using 10.0.0.


marked as duplicate by Jens, C. E., Mr.Wizard Aug 28 '14 at 18:18

This question has been asked before and already has an answer. If those answers do not fully address your question, please ask a new question.

  • $\begingroup$ This fundamental question has been asked and answered repeatedly: (197) (783) (2651) (2926) (37755). Please review those and pick the one that you feel is closest, and I will close this accordingly. Examples of solutions: Set @@ Append[ToHeldExpression["x"], 3] or MakeExpression@"x" /. _[s_] :> (s = 4) $\endgroup$ – Mr.Wizard Aug 28 '14 at 16:53
  • $\begingroup$ And: ToExpression["x", StandardForm, Function[s, s = 5, HoldFirst]] $\endgroup$ – Mr.Wizard Aug 28 '14 at 17:02
  • $\begingroup$ @Mr.Wizard I think I found a possible new solution: Clear[x]; Activate[Inactive[Set][Symbol["x"],3]] I agree we can close this question, as a duplicate of How do you programatically load data into symbols?. Then I'll post my answer there. $\endgroup$ – Jens Aug 28 '14 at 17:48
  • $\begingroup$ Thanks! When I searched I didn't find any of those. The closest is 783. $\endgroup$ – Mark Adler Aug 28 '14 at 17:57
  • 1
    $\begingroup$ While ToExpression works, I was hoping for something that gave finer control over evaluation, e.g. allowing only one step of the evaluation to take place. Control of evaluation has always been a bugaboo for me in using Mathematica. $\endgroup$ – Mark Adler Aug 28 '14 at 18:04

Browse other questions tagged or ask your own question.