Novos Recursos do
Mathematica
8: Visualização Científica e de Informação Novas e Melhoradas
◄
anterior
|
próximo
►
Gráficos & Visualização
Mostre o campo de gradientes em uma superfície
Mostre o campo de gradientes negativos para uma superfície.
In[1]:=
X
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]
Out[1]=