The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
// $Id: x05c.c 11289 2010-10-29 20:44:17Z airwin $
//
//      Histogram demo.
//

#include "plcdemos.h"

#define NPTS    2047

//--------------------------------------------------------------------------
// main
//
// Draws a histogram from sample data.
//--------------------------------------------------------------------------

int
main( int argc, const char *argv[] )
{
    int   i;
    PLFLT data[NPTS], delta;

// Parse and process command line arguments

    (void) plparseopts( &argc, argv, PL_PARSE_FULL );

// Initialize plplot

    plinit();

// Fill up data points

    delta = 2.0 * M_PI / (double) NPTS;
    for ( i = 0; i < NPTS; i++ )
        data[i] = sin( i * delta );

    plcol0( 1 );
    plhist( NPTS, data, -1.1, 1.1, 44, 0 );
    plcol0( 2 );
    pllab( "#frValue", "#frFrequency",
        "#frPLplot Example 5 - Probability function of Oscillator" );

    plend();
    exit( 0 );
}