#!/usr/bin/perl

use strict;
use warnings;
use Chart::Gnuplot;

# perque no funciona" sub f { shift**2 }  "?
sub f {
 my $x = shift;
 return cos($x); # Una senyal qualsevol
}

my @values = 0..10; #interval de 1,no es massa bona discretitzacio com s'observa a la figura

# Per a millorar el mostreig de la senyal seria genial
# que el operador .. tingues un tercer parametre, per exemple

# my @values = 0..10|0.2           0,0.2,0.4,0.6...10

# contemplant possibles problemes amb els rangs.
# Si no,s'hauria de fer la funcio que va sumant el 0.2(o el step que sigui) desde 0 fins a 10 i contemplant
# els casos de truncament i les excepcions. O hi ha una altra manera?


my @fvalues = map {f($_)} @values;


my $chart = Chart::Gnuplot->new(
    output => "dissignal.png",
    title  => "test",
    xlabel => "My x-axis label",
    ylabel => "My y-axis label",
);

# Create dataset object and specify the properties of the dataset
my $dataSet = Chart::Gnuplot::DataSet->new(
    xdata => \@values,
    ydata => \@fvalues,
    style => "points",
);

# Plot the data set on the chart
$chart->plot2d($dataSet);