]> git.llucax.com Git - mecon/meconlib.git/blobdiff - lib/MECON/Graph.php
Se agrega un método estático para pasar de valores numéricos a porcentajes,
[mecon/meconlib.git] / lib / MECON / Graph.php
index 9f877aa50519bdbee043b8ba73546a62f9a9f940..64627e768385f70d6fd58687ad747c9ddf2a50be 100644 (file)
@@ -139,7 +139,7 @@ class MECON_Graph {
      *
      * Atributos:
      * - color
-     * - colorRelleno
+     * - colorRelleno (solamente barras y puntos)
      * - leyenda
      * - impulso ("si") (solamente para puntos)
      * - tipoMarca (de 1 a 17) (solamente para puntos)
@@ -150,7 +150,7 @@ class MECON_Graph {
      * - posLeyenda (array con dos coordenadas para la posición de la leyenda)
      * - formatoValores (string con el formato que se quiere dar a los valores (sprintf))
      *
-     * @return void
+     * @return plot
      * @access public
      */
     function agregarSecuencia($tipo,$secuencia,$atributos=NULL)
@@ -165,19 +165,10 @@ class MECON_Graph {
                 require_once 'MECON/Graph/external/jpgraph/src/jpgraph_line.php';
                 $plot= new LinePlot($secuencia);
 
-               if (isset($atributos['formatoValores']))
-                   $plot->value->format = $atributos['formatoValores'];
-
-                if ($this->_verValores)
-                    $plot->value->Show();
-
                 if (isset($atributos['colorRelleno']))
-                {
                     $plot->SetFillColor($atributos['colorRelleno']);
-                }
             }
-        
+           
         
             if ($tipo=="barras")
             {
@@ -185,38 +176,19 @@ class MECON_Graph {
                 require_once 'MECON/Graph/external/jpgraph/src/jpgraph_bar.php';
                 $plot= new BarPlot($secuencia);
 
-               if (isset($atributos['formatoValores']))
-                   $plot->value->format = $atributos['formatoValores'];
-
-                if ($this->_verValores)
-                    $plot->value->Show();
-
                 if (isset($atributos['colorRelleno']))
-                {
                     $plot->SetFillColor($atributos['colorRelleno']);
-                }
-
             }
-        
+       
+       
             if ($tipo=="puntos")
             {
                 $valido=true;
                 require_once 'MECON/Graph/external/jpgraph/src/jpgraph_scatter.php';
                 $plot= new ScatterPlot($secuencia);
 
-               if (isset($atributos['formatoValores']))
-                   $plot->value->format = $atributos['formatoValores'];
-
-                if ($this->_verValores)
-                    $plot->value->Show();
-
-                if (isset($atributos['colorRelleno'])){
-                   $plot->mark->SetFillColor($atributos['colorRelleno']);
-               }    
-            
-                if (isset($atributos['tipoMarca'])){
-                   $plot->mark->SetType($atributos['tipoMarca']);
-               }    
+                if (isset($atributos['tipoMarca']))
+                           $plot->mark->SetType($atributos['tipoMarca']);
             
                 if (isset($atributos['impulso']))
                 {
@@ -224,22 +196,29 @@ class MECON_Graph {
                         $plot->SetImpuls();
                 }
             }
-        
-            // Seteo opciones generales
-            if (isset($atributos['color']))
-            {
-                $plot->SetColor($atributos['color']);
-            }
-            if (isset($atributos['leyenda']))
+            
+            //Si hubo error
+            if ($valido==true)
             {
-                $plot->SetLegend($atributos['leyenda']);
-                //$this->_grafico->legend->SetLayout(LEGEND_HOR);
-                $this->_grafico->legend->Pos(0.02,0.01);
-            }
+        
+                // Seteo opciones generales
+               if (isset($atributos['formatoValores']))
+                       $plot->value->format = $atributos['formatoValores'];
 
+                if ($this->_verValores)
+                    $plot->value->Show();
+    
+                if (isset($atributos['color']))
+                    $plot->SetColor($atributos['color']);
 
-            //Si hubo error
-            if ($valido==false)
+                if (isset($atributos['leyenda']))
+                {
+                    $plot->SetLegend($atributos['leyenda']);
+                    //$this->_grafico->legend->SetLayout(LEGEND_HOR);
+                    $this->_grafico->legend->Pos(0.02,0.01);
+                }
+
+            }else
             { 
                 die ("Error: Tipo de grafico $tipo no valido (aun)");
             }
@@ -253,21 +232,18 @@ class MECON_Graph {
             
             if($this->_tipo=="torta3D")
                 $plot= new PiePlot3D($secuencia);
-                
+
+               // Esto lo agrego porque si no, no redondea a 100%
+               $plot->labeltype = 2;
+
             if ($this->_verValores)
                 $plot->value->Show();
         
             if (isset($atributos['leyendas']))
-            {
                 $plot->SetLegends($atributos['leyendas']);
-            }
 
             if (isset($atributos['etiquetas']))
-            {
                 $plot->SetLabels($atributos['etiquetas']);
-            }
-
 
             if (isset($atributos['centro']))
             {
@@ -276,22 +252,59 @@ class MECON_Graph {
                 $plot->SetCenter($x,$y);
             }
 
-           if (isset($atributos['explotar'])){
-               $plot->ExplodeAll($atributos['explotar']);
-           }
+           if (isset($atributos['explotar']))
+                       $plot->ExplodeAll($atributos['explotar']);
                
-        }
+        }// del if torta
 
         $this->_grafico->Add($plot);
 
-       if (isset($atributos['posLeyenda'])){
-           $this->_grafico->legend->xpos = $atributos['posLeyenda'][0];
-           $this->_grafico->legend->ypos = $atributos['posLeyenda'][1];
-       }
+       if (isset($atributos['posLeyenda']))
+        {
+               $this->_grafico->legend->xpos = $atributos['posLeyenda'][0];
+               $this->_grafico->legend->ypos = $atributos['posLeyenda'][1];
+           }
+
+        return $plot;    
+    
     }
-   
+  
+    /**
+     * Acumula las secuencias para generar un gráfico acumulativo de barras
+     * 
+     * Ejemplo de Uso:
+     * @code
+     *      require_once 'MECON/Graph.php';
+     *      
+     *      $v1 = array(12,8,19,3,10,5);
+     *      $v2 = array(1,28,9,13,1,5);
+     *
+     *      $graph =& new MECON_Graph ("xy", 300, 300, 'PRUEBA');
+     *      
+     *      $attribs1 = array('colorRelleno'=>'green');
+     *      $attribs2 = array('colorRelleno'=>'orange');
+     *
+     *      $b1plot = $graph->agregarSecuencia("barras", $v1, $attribs1);
+     *      $b2plot = $graph->agregarSecuencia("barras", $v2, $attribs2);
+     *
+     *      $graph->acumular(array($b1plot, $b2plot));
+     *      $graph->generar();
+     *   
+     * @endcode
+     *
+     * @param array $secuencias Secuencias de barras a acumular
+     *
+     * @return void
+     * @access public
+     */
+     function acumular ($secuencias)
+     {
+        $accplot = new AccBarPlot($secuencias);
+        $this->_grafico->Add($accplot);
+     }
+  
     /**
-     * Genera el grafico y lo dibuja.
+     * Genera el gráfico y lo dibuja.
      *
      * @return void
      * @access public
@@ -301,5 +314,34 @@ class MECON_Graph {
         $this->_grafico->Stroke();
     }
 
+    /**
+     * Convierte los valores numéricos de entrada en porcentajes
+     *
+     * Ejemplo de uso:
+     * @code
+     *      require_once 'MECON/Graph.php';
+     * 
+     *      $valores = array (4, 6, 23, 14, 30);
+     *      $nuevos = MECON_Graph::porcentajes($valores);
+     *
+     *      // se obtiene (5, 8, 30, 18, 39) (%)
+     *
+     * @endcode
+     *
+     * @param array $valores Array de valores numéricos
+     *
+     * @return array 
+     * @access public
+     * @static
+     */
+     function porcentajes ($valores)
+     {
+        require_once 'MECON/Graph/external/jpgraph/src/jpgraph_pie.php';
 
+        $plot = new PiePlot ($valores);
+        
+        $porciento = $plot->AdjPercentage ($valores);
+        
+        return $porciento;
+     }
 }