一个简单的方程组为何Mathematica会无解？

今天刚学Mathematica。
想用Mathematica求柯布道格拉斯偏好下的需求函数，但一直都是无解，不知道为什么：
L = a1*x1 + a2*x2 + r*(-m + p1*x1 + p2*x2)
Solve[{D[L, x1] == 0, D[L, x2] == 0, D[L, r] == 0}, {q1, q2}, r]



但是如下却有解，不止为何？还望各位指点。
L = a1*x1 + a2*x2 + r*(-m + p1*x1 + p2*x2)
Solve[{D[L, x1] == 0, D[L, x2] == 0, D[L, r] == 0}, {p1, p2}, r]

输出：
\[\left\{\left\{\text{p1}\to \frac{\text{a1} m}{\text{a1} \text{x1}+\text{a2} \text{x2}},\text{p2}\to \frac{\text{a2} m}{\text{a1} \text{x1}+\text{a2} \text{x2}}\right\}\right\}\]

是因为你q1，q2没有定义吧，应该是x1，x2

yangyuzhou 发表于 2014-4-29 23:48
是因为你q1，q2没有定义吧，应该是x1，x2

额，这个我搞错了。我就是输入：
L = a1*x1 + a2*x2 + r*(-m + p1*x1 + p2*x2)
Solve[{D[L, x1] == 0, D[L, x2] == 0, D[L, r] == 0}, {x1, x2}, r]
结果依然是：
{}