请用mathematica写一段代码能够生成一个格子第一行是自变量的取值范围第二行是函数的导数的正负和0的判断第三行是函数的单调性和极值点如math xmlns=httpwwww3org1998MathMathML mathematicaform=StandardForm xmlnsmathematica=httpwwwwolframcomXML semantics mtable

Grid[{{"x", Interval[{0, 1}], 1, Interval[{1, Infinity}]}, {"f'[x]", "+", 0, "-"}, {"f[x]", "[UpperRightArrow]", "极大值或极小值", "[LowerRightArrow]"}}, Alignment -> {Center, Center}, Frame -> All, BaseStyle -> {FontFamily -> "Times", FontSize -> 16}]