wayne 发表于 2015-1-24 13:46:23

zhouguang 发表于 2015-1-23 13:58
Q3：已知方程x^3+x+1=0的根为a，方程x^3+2x^2+x-1=0的根为b，求a和b之间如何用多项式来相互表示。

啥叫相互表达，能否给个示范性的结果看看

mathematica 发表于 2017-5-24 15:02:19

Clear["Global`*"];(*Clear all variables*)
f=NSolve[{x^3+x+1==0},{x},1000];
fx=x/.f;
fx2=fx^2;
RootApproximant/@fx2

我用数值解,照样解决你的问题!
求解结果
{Root[-1 + #1 + 2 #1^2 + #1^3 &, 1],
Root[-1 + #1 + 2 #1^2 + #1^3 &, 2],
Root[-1 + #1 + 2 #1^2 + #1^3 &, 3]}

mathematica 发表于 2017-5-24 15:05:09

Q2：已知方程x^3+2x^2+x-1=0的根为a，那么，-a^2-a满足哪个方程呢？
Clear["Global`*"];(*Clear all variables*)
f=NSolve[{x^3+x+1==0},{x},1000];
fx=x/.f;
fxx=(-#^2-#)^2&/@fx;
RootApproximant/@fxx



答案是
{Root[-1 + 21 #1 + 6 #1^2 + #1^3 &, 1],
Root[-1 + 21 #1 + 6 #1^2 + #1^3 &, 3],
Root[-1 + 21 #1 + 6 #1^2 + #1^3 &, 2]}

mathematica 发表于 2017-5-25 09:36:55

有没有人能解决Q3这个问题,我不知道如何解决

mathematica 发表于 2017-5-25 10:14:59

(*Q3：已知方程x^3+x+1=0的根为a，方程x^3+2x^2+x-1=0的根为b，求a和b之间如何用多项式来相互表示。*)
Clear["Global`*"];(*Clear all variables*)
a=x/.Solve[{x^3+x+1==0},{x}][]
b=x/.Solve[{x^3+2*x^2+x-1==0},{x}][]
ToNumberField
ToNumberField
我感觉应该是这个答案,但是我解释不了运行结果

运行结果
-(2/(3 (-9 + Sqrt)))^(1/3) + (1/2 (-9 + Sqrt))^(1/3)/3^(2/3)

1/3 (-2 + (29/2 - (3 Sqrt)/2)^(1/3) + (1/2 (29 + 3 Sqrt))^(
   1/3))

AlgebraicNumber, {0, 0, 1}]

AlgebraicNumber, {0, -1, -1}]

mathematica 发表于 2017-5-25 10:17:06

AlgebraicNumber, {0, 0, 1}]
这个的运行结果应该是 {0, 0, 1}表示b=0*a^0+0*a^1+1*a^2
我猜测是这个结果
AlgebraicNumber, {0, -1, -1}]
这个结果表示a=0*b^0+(-1)*b^1+(-1)*b^2
页: 1 [2]
查看完整版本: 一个关于方程的坑，呵呵。