小弟刚接触Mathematica不久
近日想解下列不等式:
|x-1|<=5 且 e^x<=3
Input: Reduce[{Abs[x-1]<=5,E^x<=3},x]
执行时却异常花很多时间,且跑不出结果,出现
Reduce::nsmet: This system cannot be solved with the methods available to
Reduce.
但用WolframAlpha却可以快速解出-4<=x<=log(3)
请问是哪边出问题?应该如何修正?
谢谢大家!

Reduce[{Abs[x-1]<=5,E^x<=3,Element[x,Reals]},x]Element[x,Reals]定义x为实数，否则时间都花在复数

感谢chungyuandye大解惑