小弟剛接觸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大解惑