0

F[x1_,x2_,...,x99_]:=expr

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

Qasem Marzei
  • 11
  • 2

1 Answers1

2
ClearAll[f];
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}])]

?f

Mathematica graphics

Sjoerd C. de Vries
  • 65,815
  • 14
  • 188
  • 323