Новое в системе Wolfram
Mathematica
8: Новые и усовершенствованные функции визуализации информации и научных данных
◄
предыдущая
|
следующая
►
Графика и визуализация
Отображение градиентного поля на поверхности
Отображение векторного поля отрицательного градиента на поверхности.
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]=