Manipulate Bernstein Basis Functions Symbolically

Mathematica 7 supports numeric and symbolic computation of Bernstein basis functions.

In[1]:=

Grid[Partition[

  Table[Plot[

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

     1}], {d, 3, 6}], 2]]

Out[1]=

In[2]:=

Grid[Partition[

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

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

Out[2]=