今天刚学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\}\]