请用mathematica写一段代码能够生成一个格子第一行是自变量的取值范围第二行是函数的导数的正负和0的判断第三行是函数的单调性和极值点如!TagBoxGridBoxx RowBox RowBox0 1 1 RowBox RowBox1 RowBox+ Infinity RowBoxRowBoxf RowBox x + 0 -RowBoxf RowBox x FormBoxTagBo

Clear[x, f] f[x_] := Sin[x] + x^2/10 df = D[f[x], x] sol = Solve[df == 0, x] fmon = {Reduce[df > 0, x], Reduce[df < 0, x]} Grid[{{"x", {0, 1}, {1, "+[Infinity)"}}, {"f'[x]", Sign[df /. x -> 0], Sign[df /. x -> 1], Sign[df /. x -> 2]}, {"f[x]", "[UpperRightArrow]", If[sol == {}, "", x /. sol[[1]]], "[LowerRightArrow]", fmon[[1]], fmon[[2]]}}, Frame -> All]