Search All of the Math Forum:

Views expressed in these public forums are not endorsed by NCTM or The Math Forum.

Notice: We are no longer accepting new posts, but the forums will continue to be readable.

Topic: Better way to test the number of arguments?
Replies: 0

 pgeipi10@gmail.com Posts: 3 Registered: 4/27/14
Better way to test the number of arguments?
Posted: Apr 27, 2014 2:42 AM

Hi,

I have the following code that produces the gradient of a function (with respect to all but the first variable). There is probably a better way that avoids the Switch.

Thank you,

Pavel

ddSaPartial[func_][t_, s__] := Switch[Length[{s}],
1, {Derivative[0, 1][func][t, s]},
2, {Derivative[0, 1, 0][func][t, s],
Derivative[0, 0, 1][func][t, s]},
3, {Derivative[0, 1, 0, 0][func][t, s],
Derivative[0, 0, 1, 0][func][t, s],
Derivative[0, 0, 0, 1][func][t, s]},
4, {Derivative[0, 1, 0, 0, 0][func][t, s],
Derivative[0, 0, 1, 0, 0][func][t, s],
Derivative[0, 0, 0, 1, 0][func][t, s],
Derivative[0, 0, 0, 0, 1][func][t, s]},
5, {Derivative[0, 1, 0, 0, 0, 0][func][t, s],
Derivative[0, 0, 1, 0, 0, 0][func][t, s],
Derivative[0, 0, 0, 1, 0, 0][func][t, s],
Derivative[0, 0, 0, 0, 1, 0][func][t, s],
Derivative[0, 0, 0, 0, 0, 1][func][t, s]}