Here's what a simple bar chart in Mathematica look like.
In[56]:=
Out[57]=
Created by Mathematica (September 30, 2003)
![<<Graphics`Graphics` ; BarChart[{1, 6, 15, 20, 15, 6, 1}]](../HTMLFiles/binomial_22.gif){kind=small}
![[Graphics:../HTMLFiles/binomial_23.gif]](../HTMLFiles/binomial_23.gif)
