 | ■No23518に返信(なるさんの記事)
> (2)は、他の ＜硬頭学＞ 校 方法（世界で昔から広く流布している）；
In[192]:=
Resultant[2*x^2 - 8*x + 3,
-3*x^2 + c*x + d, x]
Out[192]=
81 - 72*c + 6*c^2 - 156*d + 16*c*d + 4*d^2
In[193]:=
D[1 - 72*c + 6*c^2 - 156*d + 16*c*d +
4*d^2 == 0, c]
Out[193]=
-72 + 12*c + 16*d == 0
In[194]:=
Solve[{Resultant[2*x^2 - 8*x + 3,
-3*x^2 + c*x + d, x],
D[1 - 72*c + 6*c^2 - 156*d + 16*c*d +
4*d^2, c]} == {0, 0}, {c, d}]
Out[194]=
{{c -> 12, d -> -(9/2)},
{c -> 12, d -> -(9/2)}}
|
