用Mathematica进行求导运算