隐函数绘制及其显示其梯度场

Clear["Global`*"];
f[x_, y_] := (1 (2 x^2 + y^2))/2;

g1 = Grad[f[x, y], {x, y}]

得到其梯度场函数：

{2 x, y}

绘制其梯度场：

\[Rho]1 = StreamPlot[{g1[[1]], g1[[2]]}, {x, -5, 5}, {y, -5, 5}]

绘制这个隐函数

  现在结合起来看下效果