#!/usr/bin/perl -w
use strict;
use Chart::Gnuplot;
# Initiate the chart object
my $chart = Chart::Gnuplot->new(
output => 'plotStyle_18.png',
);
# The data points
my @points = (
[0.0, 0.0, 0.1, 0, 40],
[0.2, 0.5, 0.2, 40, 70],
[0.5, -0.5, 0.2, 80, 20],
[1.0, -0.5, 0.5, 120, 150],
[1.2, 0.5, 0.2, 160, 290],
[1.5, 1.0, 0.5, 200, 290],
[2.0, -1.0, 0.2, 240, 120],
[2.2, 0.0, 0.1, 280, 360],
[2.5, -0.5, 0.3, 320, 20],
);
# Data set object
my $circles = Chart::Gnuplot::DataSet->new(
points => \@points,
style => "circles",
);
# Plot the graph
$chart->plot2d($circles);