 | In[1]:=
GB = GroebnerBasis[{1 - a + b - c + d - 1,
-4 + 3*a - 2*b + c + 0,
-(1/16) + (3*a)/16 - b/2 + c + 0, c + 0},
{a, b, c, d}]
Solve[% == {0, 0, 0, 0}]
Out[1]=
{7 - 6*d, c, 1 - 2*b, 5 - 3*a}
Out[2]=
{{a -> 5/3, b -> 1/2, c -> 0, d -> 7/6}}
Out[3]=
7/6 + x^2/2 + (5*x^3)/3 + x^4<--こたえ
-----------------------------------
7/6 + x^2/2 + (5*x^3)/3 + x^4 /. x -> -4^(-1)
301/256
7/6 + x^2/2 + (5*x^3)/3 + x^4 /. x -> -1
1
|
