mirror of
https://github.com/CAcertOrg/cats.git
synced 2024-11-05 05:34:04 +00:00
259 lines
9 KiB
PHP
259 lines
9 KiB
PHP
|
<?php
|
||
|
/* $Id: phplot_data.php,v 1.11 2004/01/24 22:18:11 migueldb Exp $
|
||
|
*
|
||
|
* Copyright (C) 2000 Afan Ottenheimer. Released under
|
||
|
* the GPL and PHP licenses as stated in the the README file which
|
||
|
* should have been included with this document.
|
||
|
|
||
|
* This is an subclass for phplot.php and should only be
|
||
|
* called after phplot.ini has been called. This extends
|
||
|
* phplot by adding additional routines that can be used
|
||
|
* to modify the data arrays.
|
||
|
*
|
||
|
* Data must be a *numerical* array, this is enforced in SetDataValues()
|
||
|
*/
|
||
|
|
||
|
require_once("phplot.php");
|
||
|
|
||
|
class PHPlot_Data extends PHPlot
|
||
|
{
|
||
|
/*!
|
||
|
* Constructor
|
||
|
*/
|
||
|
function PHPlot_Data($which_width=600, $which_height=400, $which_output_file=NULL, $which_input_file=NULL)
|
||
|
{
|
||
|
if (! isset($this->img)) {
|
||
|
$this->PHPlot($which_width, $which_height, $which_output_file, $which_input_file);
|
||
|
}
|
||
|
}
|
||
|
|
||
|
/*!
|
||
|
* Will scale all data rows
|
||
|
* Maybe later I will do a function that only scales some rows
|
||
|
* if $even is TRUE, data will be scaled with "even" factors.
|
||
|
* \note Original code by Thiemo Nagel
|
||
|
*/
|
||
|
function DoScaleData($even, $show_in_legend)
|
||
|
{
|
||
|
$offset = 0; // We use this not to read labels in text-data
|
||
|
|
||
|
if ($this->data_type == 'text-data') {
|
||
|
$offset = 1;
|
||
|
} elseif ($this->data_type != 'data-data') {
|
||
|
$this->DrawError('wrong data type!!');
|
||
|
return FALSE;
|
||
|
}
|
||
|
|
||
|
// Determine maxima for each data row in array $max
|
||
|
// Put maximum of the maxima in $maxmax
|
||
|
$maxmax = 0;
|
||
|
for($i=0; $i < $this->num_data_rows; $i++) {
|
||
|
$rowsize = count($this->data[$i]);
|
||
|
for ($j=$offset; $j < $rowsize; $j++) {
|
||
|
if ($this->data[$i][$j] > @ $max[$j])
|
||
|
$max[$j] = $this->data[$i][$j];
|
||
|
if (@ $max[$j] > $maxmax)
|
||
|
$maxmax = $max[$j];
|
||
|
}
|
||
|
}
|
||
|
|
||
|
// determine amplification factor $amplify
|
||
|
$end = count($max) + $offset;
|
||
|
for ($i=$offset; $i < $end; $i++) {
|
||
|
if ($max[$i] == 0 || $max[$i] == $maxmax) {
|
||
|
$amplify[$i] = 1; // no divide by zero
|
||
|
} else {
|
||
|
if ($even) {
|
||
|
$amp = pow(10,round(log10($maxmax / $max[$i]))-1);
|
||
|
if ($amp * $max[$i] * 5 < $maxmax) {
|
||
|
$amp *= 5;
|
||
|
} elseif ($amp * $max[$i] * 2 < $maxmax) {
|
||
|
$amp *= 2;
|
||
|
}
|
||
|
} else {
|
||
|
$amp = $maxmax / $max[$i];
|
||
|
$digits = floor(log10($amp));
|
||
|
$amp = round($amp/pow(10,$digits-1))*pow(10,$digits-1);
|
||
|
}
|
||
|
$amplify[$i] = $amp;
|
||
|
}
|
||
|
if ($amplify[$i] != 1 && $show_in_legend)
|
||
|
@ $this->legend[$i] .= "*$amplify[$i]";
|
||
|
}
|
||
|
|
||
|
// Amplify data
|
||
|
// On my machine, running 1000 iterations over 1000 rows of 12 elements each,
|
||
|
// the for loops were 43.2% faster (MBD)
|
||
|
for ($i = 0; $i < $this->num_data_rows; $i++) {
|
||
|
$rowsize = count($this->data[$i]);
|
||
|
for ($j=$offset; $j < $rowsize; $j++) {
|
||
|
$this->data[$i][$j] *= $amplify[$j];
|
||
|
}
|
||
|
}
|
||
|
|
||
|
//Re-Scale Vertical Ticks if not already set
|
||
|
if ( ! $this->y_tick_increment) {
|
||
|
$this->SetYTickIncrement() ;
|
||
|
}
|
||
|
|
||
|
return TRUE;
|
||
|
} //function DoScaleData
|
||
|
|
||
|
|
||
|
/*!
|
||
|
* Computes a moving average of strength $interval for
|
||
|
* data row number $datarow, where 0 denotes the first
|
||
|
* row of y-data.
|
||
|
*
|
||
|
* \param int datarow Index of the row whereupon to make calculations
|
||
|
* \param int interval Number of elements to use in average ("strength")
|
||
|
* \param bool show Whether to tell about the moving average in the legend.
|
||
|
* \param string color Color for the line to be drawn. This color is darkened.
|
||
|
* Can be named or #RRGGBB.
|
||
|
* \param int width Width of the line to be drawn.
|
||
|
*
|
||
|
* \note Original idea by Theimo Nagel
|
||
|
*/
|
||
|
function DoMovingAverage($datarow, $interval, $show=TRUE, $color=NULL, $width=NULL)
|
||
|
{
|
||
|
$off = 1; // Skip record #0 (data label)
|
||
|
|
||
|
$this->PadArrays();
|
||
|
|
||
|
if ($interval == 0) {
|
||
|
$this->DrawError('DoMovingAverage(): interval can\'t be 0');
|
||
|
return FALSE;
|
||
|
}
|
||
|
|
||
|
if ($datarow >= $this->records_per_group) {
|
||
|
$this->DrawError("DoMovingAverage(): Data row out of bounds ($datarow >= $this->records_per_group)");
|
||
|
return FALSE;
|
||
|
}
|
||
|
|
||
|
if ($this->data_type == 'text-data') {
|
||
|
// Ok. No need to set the offset to skip more records.
|
||
|
} elseif ($this->data_type == 'data-data') {
|
||
|
$off++; // first Y value at $data[][2]
|
||
|
} else {
|
||
|
$this->DrawError('DoMovingAverage(): wrong data type!!');
|
||
|
return FALSE;
|
||
|
}
|
||
|
|
||
|
// Set color:
|
||
|
if ($color) {
|
||
|
array_push($this->ndx_data_colors, $this->SetIndexDarkColor($color));
|
||
|
} else {
|
||
|
array_push($this->ndx_data_colors, $this->SetIndexDarkColor($this->data_colors[$datarow]));
|
||
|
}
|
||
|
// Set line width:
|
||
|
if ($width) {
|
||
|
array_push($this->line_widths, $width);
|
||
|
} else {
|
||
|
array_push($this->line_widths, $this->line_widths[$datarow] * 2);
|
||
|
}
|
||
|
// Show in legend?
|
||
|
if ($show) {
|
||
|
$this->legend[$this->records_per_group-1] = "(MA[$datarow]:$interval)";
|
||
|
}
|
||
|
|
||
|
$datarow += $off;
|
||
|
for ($i = 0; $i < $this->num_data_rows; $i++) {
|
||
|
$storage[$i % $interval] = @ $this->data[$i][$datarow];
|
||
|
$ma = array_sum($storage);
|
||
|
$ma /= count($storage);
|
||
|
array_push($this->data[$i], $ma); // Push the data onto the array
|
||
|
$this->num_recs[$i]++; // Tell the drawing functions it is there
|
||
|
}
|
||
|
$this->records_per_group++;
|
||
|
// $this->FindDataLimits();
|
||
|
return TRUE;
|
||
|
} //function DoMovingAverage()
|
||
|
|
||
|
|
||
|
/**
|
||
|
* Computes an exponentially smoothed moving average.
|
||
|
* @param int perc "smoothing percentage"
|
||
|
* FIXME!!! I haven't checked this.
|
||
|
*/
|
||
|
function DoExponentialMovingAverage($datarow, $perc, $show_in_legend)
|
||
|
{
|
||
|
if ($this->data_type == 'text-data') {
|
||
|
$datarow++;
|
||
|
} elseif ($this->data_type != 'data-data') {
|
||
|
$this->DrawError('DoWeightedMovingAverage(): wrong data type!!');
|
||
|
return FALSE;
|
||
|
}
|
||
|
|
||
|
if ($show_in_legend) {
|
||
|
$this->legend[$datarow] .= " (MA: $interval)";
|
||
|
}
|
||
|
|
||
|
$storage[0] = $this->data[0][$datarow];
|
||
|
for ($i=1;$i < $this->num_data_rows; $i++) {
|
||
|
$storage[$i] = @ $storage[$i-1] + $perc * ($this->data[$i][$datarow] - $storage[$i-1]);
|
||
|
$ma = array_sum($storage);
|
||
|
$ma /= count($storage);
|
||
|
$this->data[$i][$datarow] = $ma;
|
||
|
}
|
||
|
return TRUE;
|
||
|
} // function DoExponentialMovingAverage()
|
||
|
|
||
|
|
||
|
/*!
|
||
|
* Removes the DataSet of number $index
|
||
|
*/
|
||
|
function DoRemoveDataSet($index)
|
||
|
{
|
||
|
$offset = 1;
|
||
|
if ($this->data_type == 'data-data') {
|
||
|
$offset++;
|
||
|
} elseif ($this->data_type != 'text-data') {
|
||
|
$this->DrawError('wrong data type!!');
|
||
|
return FALSE;
|
||
|
}
|
||
|
|
||
|
$index += $offset;
|
||
|
foreach ($this->data as $key=>$val) {
|
||
|
foreach ($val as $key2=>$val2) {
|
||
|
if ($key2 >= $index) {
|
||
|
if (isset($this->data[$key][$key2+1])) {
|
||
|
$this->data[$key][$key2] = $this->data[$key][$key2+1];
|
||
|
} else {
|
||
|
unset($this->data[$key][$key2]);
|
||
|
}
|
||
|
}
|
||
|
}
|
||
|
}
|
||
|
} // function DoRemoveDataSet
|
||
|
|
||
|
|
||
|
/*!
|
||
|
* Computes row x divided by row y, stores the result in row x
|
||
|
* and deletes row y
|
||
|
*/
|
||
|
function DoDivision($x,$y)
|
||
|
{
|
||
|
$offset = 1;
|
||
|
if ($this->data_type == 'data-data') {
|
||
|
$offset++;
|
||
|
} elseif ($this->data_type != 'text-data') {
|
||
|
$this->DrawError('wrong data type!!');
|
||
|
return FALSE;
|
||
|
}
|
||
|
|
||
|
$x += $offset; $y += $offset;
|
||
|
reset($this->data);
|
||
|
while (list($key, $val) = each($this->data)) {
|
||
|
if ($this->data[$key][$y] == 0) {
|
||
|
$this->data[$key][$x] = 0;
|
||
|
} else {
|
||
|
$this->data[$key][$x] /= $this->data[$key][$y];
|
||
|
}
|
||
|
}
|
||
|
|
||
|
$this->DoRemoveDataSet($y-$offset);
|
||
|
} // function DoDivision
|
||
|
|
||
|
} // class PHPlot_Data extends PHPlot
|
||
|
?>
|