 |
Publicité 
|
Les résultats des statistiques peuvent être présentés sous forme de tableaux, de graphiques, de diagrammes et d'histogrammes. Voici le programme qui permet de créer un diagramme circulaire tridimensionnel en PERL.
Le code est le suivant :
use GD;
$|=1;
use GD::Graph::pie3d;
sub creatpie3d{
local($width,$height,$title,@lesdonnees) = (@_);
local ($graph,$im);
$graph = GD::Graph::pie3d->new($width,$height);
$graph->set_title_font(['c:/WINNT/Fonts/arial.ttf', gdMediumBoldFont], 10);
$graph->set_value_font(['c:/WINNT/Fonts/verdana.ttf', 'arial', gdMediumBoldFont], 9);
$graph->set(
| | title | => $title, |
| | dclrs | => [ qw(orange blue purple green pink red black gold yellow gray)], |
| | fgclr | => "blue", |
| | textclr | => "blue", |
| | labelclr | => "white", |
| | axislabelclr | => "white", |
| | ccentclr | => "blue", |
);
$im = new GD::Image(400, 300);
$blue = $im->colorAllocate(0,0,255);
$im->transparent($blue);
$im->interlaced('false');
$im = $graph->plot( \@lesdonnees);
print "Content-Type: image/png\n\n";
binmode STDOUT;
print $im->png;
}
Les paramètres de fonction :
$width -hauteur d'image ;
$height - largeur d'image ;
$title - titre du diagramme;
@lesdonnees - tableau des données.
Il doit être présenté sous la forme suivante :
@lesdonnees =([@ValX],[@ValY0], [@ValY1], [@ValY2], [@ValY3]);
@ValX - tableau des légendes. Le nombre de secteurs du diagramme est égal au nombre d'éléments que contient le tableau.
@ValY - tableau des valeurs de secteurs.
Le nombre des membres du tableau @ValX doit être égal au nombre des membres du tableau @ValY.
Les nombres du tableau @ValY sont à choisir par vous-même.
Exemple :
@donnee=(["", "","",""],[$NombrJuer[0],$NombrJuer[1],$NombrJuer[2],$NombrJuer[3]]);
Dans cet exemple, le diagramme ne contient pas de légende.
|
