#!/usr/bin/perl -w
use strict;
use Chart::Gnuplot;

#---------------------------------------------------------
# Demonstrate four types of data input
# - Data set can be input as Perl arrays, file or function
#---------------------------------------------------------

# Initiate the chart object
my $chart = Chart::Gnuplot->new(
	output => 'gallery/dataSrc_5.png',
	title  => 'Different ways to input data set',
);

# Arrays of x-values and y-values
my @x = (-10 .. 10);
my @y = (0 .. 20);
my $data1 = Chart::Gnuplot::DataSet->new(
	xdata => \@x,
	ydata => \@y,
	title => 'Arrays of x-values and y-values',
);

# Data points
my @points = (
	[-7, 7],
	[-6, 6],
	[-5, 5],
	[-4, 4],
	[-3, 3],
	[-2, 4],
	[-1, 5],
	[0, 6],
	[1, 7],
	[2, 8],
);
my $data2 = Chart::Gnuplot::DataSet->new(
	points => \@points,
	title  => 'Array of x-y pairs',
);

# Data file
my $file = Chart::Gnuplot::DataSet->new(
	datafile => 'dataSrc_3.dat',
	title    => 'Text file',
);

# Function: sine function
my $func = Chart::Gnuplot::DataSet->new(
	func  => 'sin(x)',
	title => 'Math expression',
);

# Plot the graph
$chart->plot2d($data1, $data2, $file, $func);