New in Wolfram Mathematica 7: Comprehensive Spline Support  previous | next 
Generate Multidimensional Spline Manifolds
B-spline functions in Mathematica 7 can be used to represent smooth manifolds in 3D and beyond.
In[1]:=

Click for copyable input
SeedRandom[35]; data = RandomReal[1, {7, 7, 7}]; f = 

 BSplineFunction[data, 3]; ContourPlot3D[

 f[x, y, z], {x, 0, 1}, {y, 0, 1}, {z, 0, 1}, PlotPoints -> 50, 

 MaxRecursion -> 0, Mesh -> None, Contours -> 5, 

 ContourStyle -> 

  Table[Directive[c, Specularity[White, 50]], {c, 

    ColorData[27, "ColorList"]}], Lighting -> "Neutral"]
Out[1]=