New in Wolfram Mathematica 7: Comprehensive Spline Support  previous | next 
Manipulate Bernstein Basis Functions Symbolically
Mathematica 7 supports numeric and symbolic computation of Bernstein basis functions.
In[1]:=

Click for copyable input
Grid[Partition[

  Table[Plot[

    Evaluate[Table[BernsteinBasis[d, n, x], {n, 0, d}]], {x, 0, 

     1}], {d, 3, 6}], 2]]
Out[1]=



In[2]:=

Click for copyable input
Grid[Partition[

  Table[Row[{TraditionalForm[BernsteinBasis[3, n, x]], "=", 

     PiecewiseExpand[BernsteinBasis[3, n, x]]}], {n, 0, 3}], 2]]
Out[2]=