use strict;
use Chart::Lines;

my @valores_x = ( 1 .. 100 );
my @tiempos;
my @optimos;

open(TIEMPOS, "../tiempos.txt");
open(OPTIMOS, "../optimos.txt");

@tiempos = <TIEMPOS>;
@optimos = <OPTIMOS>;

close TIEMPOS;
close OPTIMOS;

my $graf_t = Chart::Lines->new();
my $graf_op = Chart::Lines->new();

$graf_t->add_dataset (@valores_x);
$graf_t->add_dataset (@tiempos);

$graf_op->add_dataset (@valores_x);
$graf_op->add_dataset (@optimos);

$graf_t->set('title' => "Tiempos de Procesamiento",
        'legend'=> 'none',
        'brush_size' => 4,
        'sub_title' => 'Algoritmos Geneticos',
        #'grid_lines' => 'true',
        'min_x_ticks' => 2,
        'max_x_ticks' => 10,
        'colors' => {'dataset0' => 'blue'});

$graf_op->set('title' => "Valores Optimos",
        'legend' => 'none',
        'brush_size' => 4,
        'sub_title' => 'Algoritmos Geneticos',
        '#grid_lines' => 'true',
        'max_x_ticks' => 10,
        'colors' => {'dataset0' => 'blue'});

$graf_t->png("GAtiempos.png");
$graf_op->png("GAoptimos.png");