Show the gradient field on a surface

Example 1 step, run in order in one session. Every step was executed against the engine and the output below is what it produced.

Step 1

Plot3D[(x ^ 2 + y ^ 2) Exp[1 - x ^ 2 - y ^ 2], {x, -3, 3}, {y, -3, 3}, PlotStyle -> Texture[StreamPlot[Evaluate[-D[(x ^ 2 + y ^ 2) Exp[1 - x ^ 2 - y ^ 2], {{x, y}}]], {x, -3, 3}, {y, -3, 3}, Frame -> None, ImageSize -> Large]], Mesh -> None, ImageSize -> Large, PlotPoints -> 35]

Output

-Graphics3D-

Run this on Qurak All recipes

Functions used

D Evaluate Exp Plot3D StreamPlot Texture

Related recipes

All recipes · Function reference · Use this from an MCP client