■27088 / inTopicNo.4) |
Re[1]: 方程式
|
□投稿者/ Ide 一般人(1回)-(2007/08/04(Sat) 11:13:27)
| ■No27068に返信(歩美さんの記事) > x^3+1/x^3=18(x>0)のとき、x^2+1/x^2 の値を求めよ。 In[5]:= GB = GroebnerBasis[{x^3 + 1/x^3 - 18, x^2 + 1/x^2 - k}, {x, k}]
={-322 - 3*k + k^3, 18 + 2*x - k*x - k^2*x + 18*x^2, -2 + k + k^2 - 18/x - 18*x}
=Factor[GB[[1]]]
=(-7 + k)*(46 + 7*k + k^2) よりk=7
|
|