| 2008/02/05(Tue) 18:44:10 編集(投稿者)
■No31267に返信(林檎さんの記事) > PC で 是非 視て!
In[1]:= 2*y - ((1 - K)*x + 3 + 2*K) CoefficientList[%, K]
Out[1]= -3 - 2*K - (1 - K)*x + 2*y
Out[2]= {-3 - x + 2*y, -2 + x}
In[3]:= Solve[{-3 - x + 2*y, -2 + x} == {0, 0}, {x, y}]
Out[3]= {{x -> 2, y -> 5/2}} ---------------------- 次元をあげ同様な考察をも; f(x,y,z)+k*g(x,y,z)=0 任意のk∈R
|