Mathematica 函数值域计算：生成实数域或区间表示

定义域[f_, x_] := Module[{domain}, domain = FunctionDomain[f[x], x, Reals]; If[domain === True, 'R', If[Head[domain] === Or, Last[domain], domain]] ];

例如：

定义域[Sin, x] 输出：'R' 定义域[1/x, x] 输出：x != 0 定义域[x^2 + 1 > 0, x] 输出：'R' 定义域[x > 0, x] 输出：x > 0 定义域[x > 123, x] 输出：x > 123