关于用Mathematica解复数域内超越方程的根的问题

[sunmeng82]

各位大侠，在超越方程的解时比较可行的办法是用FindRoot命令，比如FindRoot[Sin[x] == Log[x], {x, 1}]，但是貌似FindRoot命令只能够求解方程的实数根，复数域内无解。

小弟请教各位，有没有采用mathemati软件在复数域内求解超越方程的办法，或者其他软件也行。

[zsy312]

你把那个1换成I或任何一个虚数都可以。

[zsy312]

In[6]:= FindRoot[Sin[x] == Log[x], {x, 5 + 2 I}]

Out[6]= {x -> 7.75841\[VeryThinSpace]- 1.3583 I}