隱函數繪製及其顯示其梯度場

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}] 繪製這個隱函數   現在結合起來看下效果

>>阅读原文<<