如何让Mathematica对函数的第i个参数求导？
比如f[q1_, q2_, q3_, q4_] := q1 q2^2 q3^3，
我想算这个东西：
要对f的第i个参数求偏导，我只能想到用梯度的第i个分量表示：
有没有更简单的方法？
用这个D[f[q1, q2, q3, q4], q1]的话没法直接求和

直接的写法
vars = {q1, q2, q3, q4};
f[q1_, q2_, q3_, q4_] := q1 q2^2 q3^3;
Sum[D[f[q1, q2, q3, q4], vars[[i]]]*
D[f[q1, q2, q3, q4], vars[[j]]], {i, 4}, {j, 4}]
简单些的写法（不懂的地方按F1查阅帮助即可）
Outer[Times, #, #] &[Grad[f[q1, q2, q3, q4], {q1, q2, q3, q4}]]~Total~2