2012-04-28 9 views

答えて

3

これは何か?

multyIntegrate[fun_, n_Integer] := 
With[{x = Sequence @@ Table[Unique[mi], {n}]}, Integrate[fun[x], x]] 

multyIntegrate[g, 3] 

Mathematica graphics

f[i___] := Total[{i}.{i}] 

multyIntegrate[f, 3] 

Mathematica graphics