0
$\begingroup$

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

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

$\endgroup$
2
$\begingroup$
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

|improve this answer|||||
$\endgroup$

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