数学研发论坛

 找回密码
 欢迎注册
查看: 625|回复: 32

[转载] 趣题:10^x=x^10

[复制链接]
发表于 2019-8-29 09:29:08 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?欢迎注册

x
妙解1:x=10
妙解2:x=1.3713...

还有别的妙解吗?
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2019-8-29 09:40:37 | 显示全部楼层
-0.82667131559077791625932534465569231511
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2019-8-29 09:44:51 | 显示全部楼层
0.081719872878068006005805236238447276845 + 1.0157127340428798701853927276973904638i
0.80986598863207139891037328104174103129 + 0.89226626320000313449126146109255999438i
-0.72943881683140507073479637012539935288 + 0.42731722743915859889894971064296507034i
-0.43194045480509502196424127755338991831 + 0.79564202937957531802879947548881119171i
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2019-8-29 10:10:32 | 显示全部楼层
30.232408193958349660628187635748553116 + 1054.5384483655033830268267112790203997i
33.061180755756871729585180100004756182 + 2023.2991743303705876062699139248827999i
30.649721578527980234483477817848949885 + 1160.9696495422453794893448017457121572i
24.033610453239214802107567701475267386 + 251.99667599980906044891454001708644379i
20.476941278784567432593743652731257941 + 109.71313425622824044544463793482398426i
19.124415129020576940202418320504219724 + 79.472611799545628053152881918796278084i
29.845009353758285761392871063016574186 + 964.47973628310369546126276287665011256i
好像无穷无尽
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2019-8-29 10:40:42 | 显示全部楼层
根据儒歇定理,取$f(x)=x^10,f(x)+g(x)=x^10-10^x$,于是在复平面中$|x|<=2$的区域里面$f(x)=0$只有10重根,所以在$|x|<=2$以内$x^10-10^x=0$也是10个根,1~3中的解和3#中解的共轭给出了所有这些结果。
而且容易看出$2<|x|<10$无解,但是对于$|x|>=10$,有无穷个解

点评

好可怕的mathe  发表于 2019-8-29 12:45
完美,霸气  发表于 2019-8-29 11:14

评分

参与人数 1威望 +6 金币 +6 贡献 +6 经验 +6 鲜花 +6 收起 理由
wayne + 6 + 6 + 6 + 6 + 6 赞一个!

查看全部评分

毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2019-8-29 11:35:34 | 显示全部楼层
我只会画图,然后用牛顿迭代法,
FindRoot[10^x - x^10, {x, -10}]
{x -> -0.826671}
FindRoot[10^x - x^10, {x, 6}]
{x -> 1.37129}
FindRoot[10^x - x^10, {x, 12}]
{x -> 10.}
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2019-8-29 11:39:02 | 显示全部楼层
Plot[x Log[10] - 10 Log[Abs[x]], {x, -20, 20}]
取对数,但是用绝对值,增长慢一点,容易看出只有三个解,
要严格证明的话,只能用分析的办法了!
QQ截图20190829113759.png
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2019-8-30 16:54:34 | 显示全部楼层
mathe 发表于 2019-8-29 10:10
30.232408193958349660628187635748553116 + 1054.5384483655033830268267112790203997i
33.0611807557568 ...

请问你的解是怎么来的?
我只会用牛顿迭代法,
  1. FindRoot[10^x - x^10, {x, 1000 + 1000*I}, WorkingPrecision -> 30,
  2. MaxIterations -> 10000]
复制代码


{x -> 30.0017697186801008361313628522 +
   999.957604888848949605079776110 I}
这个结果似乎与你上面的都不一样呀
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2019-8-30 16:55:46 | 显示全部楼层
In[25]:= FindRoot[10^x - x^10, {x, 1000 - 1000*I},
WorkingPrecision -> 30, MaxIterations -> 10000]

Out[25]= {x ->
  30.0017697186801008361313628522 - 999.957604888848949605079776110 I}
又找了一个不一样的,
不知道你的根是怎么来的,我除了牛顿迭代法,别的都不会了!
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2019-8-30 16:59:34 | 显示全部楼层
mathe 发表于 2019-8-29 10:40
根据儒歇定理,取$f(x)=x^10,f(x)+g(x)=x^10-10^x$,于是在复平面中$|x|

In[35]:= FindRoot[10^x - x^10, {x, 60 - 20*I}, WorkingPrecision -> 30,
  MaxIterations -> 1000]

Out[35]= {x ->
  13.9605975460322700375633095069 - 20.6085727928362809543602039345 I}
又找到一个与你不一样的解
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
您需要登录后才可以回帖 登录 | 欢迎注册

本版积分规则

小黑屋|手机版|数学研发网 ( 苏ICP备07505100号 )

GMT+8, 2019-9-23 00:17 , Processed in 0.131077 second(s), 20 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表