Mathematica Stack Exchange is a question and answer site for users of Mathematica. Join them; it only takes a minute:

Sign up
Here's how it works:
  1. Anybody can ask a question
  2. Anybody can answer
  3. The best answers are voted up and rise to the top

This question already has an answer here:


How to write this Function in mathematica whithout complete write it?

share|improve this question

marked as duplicate by Kuba, Mr.Wizard Apr 22 '14 at 18:58

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.

n = 10;
Evaluate[f @@ Table[With[{s = Symbol["x" <> ToString[i]]}, Pattern[s, Blank[]]], {i, n}]] :=
  Evaluate[Plus @@ (Sin@Table[s = Symbol["x" <> ToString[i]], {i, n}])]


Mathematica graphics

share|improve this answer

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