| ■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)}}
|