求助，公式推導時如何控制梯度不展開？ 50
瀏覽：1469 回答：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 
