New in Wolfram Mathematica 6: High-Impact Adaptive Visualization
| ◄ previous | next ► |

Arbitrary Ribbon Plotting

In[1]:= | Plot3D[(x^2 - y^2)/(x^2 + y^2)^2, {x, -1.5, 1.5}, {y, -1.5, 1.5}, BoxRatios -> Automatic, PlotPoints -> 25, MeshFunctions -> {#3 &}, MeshStyle -> Purple, MeshShading -> {None, Green, None, Yellow}] |

Out[1]= |