Tracer n courbes à partir de n jeu de données (x,y) pour générer une image via cgi

**aquafiestas** · 21/12/2006, 10h02

Bonjour,

Après quelques recherches sur le forum...Je cherche une méthode pour tracer une ou plusieurs courbes sur une même image pour l'afficher ensuite dans une page web, via cgi.

Il y a bien le module perl Chart (avec Chart::Lines par exemple) mais celui ci ne permet que de lui passer une liste de x et une seule :

@data = ( \@x_tick_labels, \@dataset1, ... , \@dataset_n );

Or j'ai des données de la forme ( y est une mesure ; x est un temps ):
(x1, x2, x3,...) (y1, y2, y3,...) et
(x'1, x'2, x'3,...) (y'1, y'2, y'3,...), etc...
n fois...
Donc n séries de x.

J'ajoute que les listes contiennent un nombre variable de mesure sur une même période de temps mais je peux éliminer quelques mesures "aux extrémités" pour avoir le même nombre dans chaque liste, c'est pas le problème.

Je pourrais fusionner tout les x, mais cela implique de définir des y manquant (via des moyennes par exemple)...
Bref, cette solution me semble très très lourde.

Connaissez vous une méthode, une solution ou un module perl permettant de tracer facilement des courbes à partir de mes données ?

Merci.

**djibril** · 21/12/2006, 15h16

le module GD ou image::magick je pense !!!

**aquafiestas** · 29/05/2007, 15h41

Euréka !

Le module Chart::Graph::Gnuplot fait ça très bien et tout est expliqué ici :
http://search.cpan.org/~caidaperl/Ch...aph/Gnuplot.pm

Extrait :

use Chart::Graph::Gnuplot qw(gnuplot);
...
foreach my $config (@config)
{
my @sor;
foreach my $cle (sort numerique keys %$data)
{
push @sor, [$data->{$cle}{'date_format(date,"%d-%m-%Y")'},$data->{$cle}{'avg(mesures)'}];
}
push @courbe, [{'title' => $data_config->{'name'},
'style' => 'lines',
'type' => 'matrix'}, \@sor];
}
gnuplot({'title' => $soustitre,
'yrange' => "[0:]",
'xrange' => "['$date1':'$date2']",
'x-axis label' => 'jour',
'y-axis label' => 'moyenne',
'xdata' => 'time',
'timefmt' => '%d-%m-%Y',
'format' => ['x','%d-%m-%Y'],
'output type' => 'png',
'output file' => $file,
'extra_opts' => 'set key left top Left'},
@courbe);