Mathematica 代码生成函数单调性表格
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]
原文地址: https://www.cveoy.top/t/topic/oO8p 著作权归作者所有。请勿转载和采集!