#!/usr/bin/perl -w
use strict;
use Chart::Gnuplot;
# Initiate the chart object
my $chart = Chart::Gnuplot->new(
output => 'plotStyle_13.png',
);
# Raw data (Gaussian distribution)
my (@x, @y) = ();
for (my $x = 0; $x < 5; $x += 0.1)
{
my $y = exp(-$x*$x/2);
push(@x, $x);
push(@y, $y);
}
# Data set object
my $hbars = Chart::Gnuplot::DataSet->new(
xdata => \@x,
ydata => \@y,
style => "hbars",
);
# Plot the graph
$chart->plot2d($hbars);