Voici 2 modules perl additionels à Graph.pm de Martien Verbruggen permettant d'afficher des graphiques boursier respectivement en format barchart et chandelier. il est necessaire de modifier certain module. voici les modifications a apporter

Module Graph.pm,
        avant modification :
                title       => undef,
                );

        après modication
               title       => undef,
               upstick     => undef,
               downstick     => undef,
               y_tick_length_mini => undef,   
               x_no_draw_label => undef,
               );

Module axestype.pm,
   procèdure :_best_ends 
        avant modification :
              @n = (3..6) if @n <= 0 || $n[0] =~ /auto/i;

        après modification :
              # @n = (3..6) if @n <= 0 || $n[0] =~ /auto/i;
              @n = (5..20) if @n <= 0 || $n[0] =~ /auto/i;

    procèdure setup_coords :
         avant modification :
                       $s->{x_step} = ($s->{right} - $s->{left})/($s->{_data}->num_points + 1);

         après modification :
                       $s->{x_step} = ($s->{right} - $s->{left})/($s->{_data}->num_points - 1);

Module mixed,
         avant modification
                       use strict;
                       use GD::Graph::axestype;

         après modification
                       use strict;
                       use GD::Graph::candlestick;
                       use GD::Graph::barchart;
                       use GD::Graph::axestype;

          avant modification
                       @GD::Graph::mixed::ISA = qw(
                                     GD::Graph::axestype
          après modification
                       @GD::Graph::mixed::ISA = qw(
                                     GD::Graph::candlestick
                                     GD::Graph::barchart
                                     GD::Graph::axestype



ne pas oublier d'installer les modules barchart.pm et candlestick.pm dans le répertoire Graph

vous êtes fin prêt pour faire de beau graphe boursier.