#!/usr/bin/perl -w
use strict;
use Chart::Gnuplot;
# Price data in array
my @field = (
[ 0.75, 0, 0.75, 0], # E vector
[ 0.5, 0.5, 0.5, 0.5], # NE vector
[ 0, 0.75, 0, 0.75], # N vector
[ -0.5, 0.5, -0.5, 0.5], # NW vector
[-0.75, 0, -0.75, 0], # W vector
[ -0.5, -0.5, -0.5, -0.5], # SW vector
[ 0, -0.75, 0, -0.75], # S vector
[ 0.5, -0.5, 0.5, -0.5], # SE vector
);
# Chart object
my $chart = Chart::Gnuplot->new(
output => "vector.png",
xrange => [-2, 2],
yrange => [-2, 2],
imagesize => "0.45,0.45",
);
# Data set object
my $dataSet = Chart::Gnuplot::DataSet->new(
points => \@field,
style => 'vectors',
color => '#DD8888',
width => 5,
);
# Plot the data
$chart->plot2d($dataSet);