| New in Wolfram Mathematica 6: High-Impact Adaptive Visualization | ◄ previous | next ► |
In[1]:= | ListPlot3D[
Table[With[{x = RandomReal[{-1.5, 1.5}],
y = RandomReal[{-1.5, 1.5}]}, {x,
y, \[ExponentialE]^-(x^2 + y^2)}], {1000}], Mesh -> All,
ColorFunction -> "SolarColors"] |
Out[1]= ![]() | ![]() |