求助，公式推导时如何控制梯度不展开？ 50
浏览：1138 回答：1
我要对以下两个公式联立消去其中的eta
equ1 = D[\[Eta][x, y, t], t] +
Grad[\[Phi][x, y, z, t], {x, y}].Grad[\[Eta][x, y, t], {x, y}] ==
D[\[Phi][x, y, z, t], z];
equ2 = D[\[Phi][x, y, z, t], t] +
1/2*Norm[Grad[\[Phi][x, y, z, t], {x, y, z}]]^2 +
g*\[Eta][x, y, t] == 0;
直接用eliminate始终不行，然后我尝试通过equ2导出eta代入equ1，并且要控制梯度不被展开，于是我尝试
Inactivate[Solve[equ2, \[Eta][x, y, t]], Grad]
可是不知道为啥梯度项无论怎么控制它还是会展开。单独求解一个Inactivate[Grad[\[Phi][x, y, z, t], {x, y}], Grad]就能成功。
求问各位前辈怎么解决？
Fair 
