Foro - Perl en Español

por **seafree** » 2015-10-02 15:35 @691

Buenas tardes, estoy haciendo una gráfica de Pareto y al personalizar la imagen web de la gráfica obtengo diferencias de tamaño entre el área de dibujo de la gráfica y el área del dibujo, esto es, tengo el siguiente código para crear la gráfica:

my $c = new XYChart(800, 450, perlchartdir::goldColor() );
$c->addTitle("FALLAS DE PROCESOS", "arialbd.ttf",14);
$c->setPlotArea(350, 60, 400, 365, 0xffffff,-1,-1,$perlchartdir::Transparent,$perlchartdir::Transparent);

Les agradeceré sus comentarios porque no encuentro lo que está sucediendo.

Gracias.

#!/usr/bin/perl
 
# Include current script directory in the module path (needed on Microsoft IIS).
# This allows this script to work by copying ChartDirector to the same directory
# as the script (as an alternative to installation in Perl module directory)
use File::Basename;
use lib dirname($0);
 
use perlchartdir;
 
# The data for the chart
my $data = [40, 15, 7, 5, 2];
 
# The labels for the chart
my $labels = ["Hard Disk", "PCB", "Printer", "CDROM", "Keyboard"];
 
# Create a XYChart object of size 400 x 225 pixels. Use golden background color, with
# a 2 pixel 3D border.
my $c = new XYChart(400, 225, perlchartdir::goldColor(), -1, 2);
 
# Add a title box using Arial Bold/11 pt font. Set the background color to metallic
# blue (9999FF). Use a 1 pixel 3D border.
$c->addTitle("Hardware Defects", "arialbd.ttf", 11)->setBackground(
    perlchartdir::metalColor(0x9999ff), -1, 1);
 
# Set the plotarea at (50, 40) and of 300 x 150 pixels in size, with a silver
# background color.
$c->setPlotArea(50, 40, 300, 150, perlchartdir::silverColor());
 
# Add a line layer for the pareto line
my $lineLayer = $c->addLineLayer();
 
# Compute the pareto line by accumulating the data
my $lineData = new ArrayMath($data);
$lineData->acc();
 
# Set a scaling factor such as the maximum point of the line is scaled to 100
my $scaleFactor = 100 / $lineData->max();
 
# Add the pareto line using the scaled data. Use deep blue (0x80) as the line color,
# with light blue (0x9999ff) diamond symbols
$lineLayer->addDataSet($lineData->mul2($scaleFactor)->result(), 0x000080
    )->setDataSymbol($perlchartdir::DiamondSymbol, 9, 0x9999ff);
 
# Set the line width to 2 pixel
$lineLayer->setLineWidth(2);
 
# Add a multi-color bar layer using the given data.
my $barLayer = $c->addBarLayer3($data);
 
# Bind the layer to the secondary (right) y-axis.
$barLayer->setUseYAxis2();
 
# Set soft lighting for the bars with light direction from the right
$barLayer->setBorderColor($perlchartdir::Transparent, perlchartdir::softLighting(
    $perlchartdir::Right));
 
# Set the labels on the x axis.
$c->xAxis()->setLabels($labels);
 
# Set the primary y-axis scale as 0 - 100 with a tick every 20 units
$c->yAxis()->setLinearScale(0, 100, 20);
 
# Set the label format of the y-axis label to include a percentage sign
$c->yAxis()->setLabelFormat("{value}%");
 
# Add a title to the secondary y-axis
$c->yAxis2()->setTitle("Frequency");
 
# Set the secondary y-axis label foramt to show no decimal point
$c->yAxis2()->setLabelFormat("{value|0}");
 
# Set the relationship between the two y-axes, which only differ by a scaling factor
$c->syncYAxis(1 / $scaleFactor);
 
# Output the chart
binmode(STDOUT);
print "Content-type: image/png\n\n";
print $c->makeChart2($perlchartdir::PNG);
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Código modificado:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use v5.8.8;
use perlchartdir;
use CGI;
use CGI qw':standard *table';
use DBI;
use POSIX;
 
my $query = new CGI;
#---------------------------------------------------#
my $p_gerencia = ($query->param("gerencia"));
my $p_zona = ($query->param("subarea"));
my $p_subest = ($query->param("cve_inst"));
my $p_event = ($query->param("evento"));
my $f_ini = ($query->param("date1"));
$f_ini=~ s/\//-/g;
$f_ini.=" 01:01:00";
my $f_fin = ($query->param("date2"));
$f_fin=~ s/\//-/g;
$f_fin.=" 23:59:00";
my $sql_sistemas; my $sth_sistemas; my $reg_sistemas; my $sql_frecuencia;
my $homoclave; my $labels=[]; my $data=[];
my $dbh = DBI->connect("DBI:Pg:dbname=db_icev;host=localhost", "adm", "", {'RaiseError' => 1});
 
$sql_sistemas="SELECT cs.homoclave, count(*) as total ";
$sql_sistemas.="FROM t_eventos te, c_tipo_componentes ctc, c_componentes cc, c_subsistemas cs ";
$sql_sistemas.= "WHERE (te.fecha_sale BETWEEN '$f_ini' AND '$f_fin') AND te.subestacion='$p_subest' AND te.id_tipo_componente=ctc.id_tipo_componente AND ctc.id_componente=cc.id_componente AND cc.id_subsist=cs.homoclave GROUP BY cs.homoclave ORDER BY total desc ";
$sth_sistemas= $dbh->prepare($sql_sistemas) or die $DBI::errstr;
$sth_sistemas->execute();
#--------------------LABELS------------------------#
while($reg_sistemas= $sth_sistemas->fetchrow_hashref()){
        $homoclave=$reg_sistemas->{'homoclave'};
        $total=$reg_sistemas->{'total'};
        #Creacion de las etiquetas (Eje X)
        push (@$labels, $homoclave); #Etiquetas de la grafica
        #Creacion de las frecuencias (Eje Y)
        push (@$data, $total); #Etiquetas de la grafica
}
#--------------------DATA------------------------#
#DATOS DE FRECUENCIA (Eje Y)
my $c = new XYChart(800, 450, perlchartdir::goldColor() );
$c->addTitle("FALLAS DE PROCESOS", "arialbd.ttf",14);
#Adicionar una linea para la linea de pareto
my $lineLayer = $c->addLineLayer();
# Adicionar los datos
my $lineData = new ArrayMath($data);
$lineData->acc();
my $scaleFactor = 100 / $lineData->max();
$lineLayer->addDataSet($lineData->mul2($scaleFactor)->result(), 0x000080)->setDataSymbol($perlchartdir::DiamondSymbol, 9, 0x9999ff);
$lineLayer->setLineWidth(2);
my $barLayer = $c->addBarLayer3($data);
$barLayer->setUseYAxis2();
$barLayer->setBorderColor($perlchartdir::Transparent, perlchartdir::softLighting($perlchartdir::Right));
#Espacio entre las barras
$barLayer->setBarWidth(60);
$c->xAxis()->setLabels($labels);
$c->yAxis()->setLinearScale(0, 100, 20);
$c->yAxis()->setLabelFormat("{value}%");
$c->yAxis2()->setTitle("Frecuencia");
# Set the secondary y-axis label foramt to show no decimal point
$c->yAxis2()->setLabelFormat("{value|0}");
# Set the relationship between the two y-axes, which only differ by a scaling factor
$c->syncYAxis(1 / $scaleFactor);
my $pareto_url= $c->makeTmpFile("/tmp/tmpcharts");
 
# Output the chart
binmode(STDOUT);
print "Content-type: image/png\n\n";
print $c->makeChart2($perlchartdir::PNG);
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

En el codigo modificado, como podras observar, cambio de posición la gráfica pero el color de fondo amarillo empieza desde la línea superior izquierda de la pantalla y requiero que se mueva deacuerdo a la gráfica.

Gracias.

por **explorer** » 2015-10-05 13:10 @590

No sé decirte. No tengo instalado ni puedo instalarme CharDirector, así que no sé qué puede pasar. Te dije que me interesaba ver más las capturas de pantalla que el código usado, pues aunque el código está bien, ver las imágenes te puede dar más pistas.

Yo lo que haría sería identificar la línea que provoca el cambio. Usaría una búsqueda binaria (comentar la mitad de las líneas para ver si es en esa parte o en la otra donde se produce el error. Una vez que sabemos qué parte es la culpable, la reducimos des/comentando la cuarta parte, y así hasta localizar la línea que provoca el cambio).

por **seafree** » 2015-10-05 15:37 @692

Gracias, explorer, ya identifiqué la línea que provoca el cambio. Es un <div>, que más adelante definiré dónde es más conveniente ubicarlo.

Gracias por tu atención.

Foro - Perl en Español

ChartDirector - Gráfica de pareto

ChartDirector - Gráfica de pareto

Publicidad

Re: ChartDirector - Gráfica de pareto

Re: ChartDirector - Gráfica de pareto

Re: ChartDirector - Gráfica de pareto

Re: ChartDirector - Gráfica de pareto

¿Quién está conectado?