Histograms

/*------------------------------------------------*/
/* This script demonstrates a Histogram*/
/*------------------------------------------------*/
xv = zv = seq(1,9);
yv = 2 6 4 2 7 3 9 8 5;
/* plot data as a histogram */
/* -----------------------------------------------*/
/* limits of plot */
Data_Window(0,10,0,10);
/* position on page of the axis border rectangle */
/* left, right, bottom, top */
Data_Viewport(mm(20),mm(90),mm(190),mm(260));
/* use no projection */
Data_Projection("NIL");
/* fill in black */
Fill_Grey(0.0);
Data_Histogram(0.75,0,xv,yv,zv);
Axis(2,2,1,1,1,0,1,0,0);
Draw_Text(mm(22),mm(253),"Data Histogram");