mirror of
https://port.numenaute.org/aleajactaest/khanat-opennel-code.git
synced 2024-12-05 17:54:48 +00:00
157 lines
No EOL
4.5 KiB
PHP
157 lines
No EOL
4.5 KiB
PHP
<?php
|
|
/*=======================================================================
|
|
// File: JPGRAPH_ERROR.PHP
|
|
// Description: Error plot extension for JpGraph
|
|
// Created: 2001-01-08
|
|
// Author: Johan Persson (johanp@aditus.nu)
|
|
// Ver: $Id: jpgraph_error.php,v 1.1 2006/07/07 13:37:14 powles Exp $
|
|
//
|
|
// Copyright (c) Aditus Consulting. All rights reserved.
|
|
//========================================================================
|
|
*/
|
|
|
|
//===================================================
|
|
// CLASS ErrorPlot
|
|
// Description: Error plot with min/max value for
|
|
// each datapoint
|
|
//===================================================
|
|
class ErrorPlot extends Plot {
|
|
var $errwidth=2;
|
|
//---------------
|
|
// CONSTRUCTOR
|
|
function ErrorPlot(&$datay,$datax=false) {
|
|
$this->Plot($datay,$datax);
|
|
$this->numpoints /= 2;
|
|
}
|
|
//---------------
|
|
// PUBLIC METHODS
|
|
|
|
// Gets called before any axis are stroked
|
|
function PreStrokeAdjust(&$graph) {
|
|
if( $this->center ) {
|
|
$a=0.5; $b=0.5;
|
|
++$this->numpoints;
|
|
} else {
|
|
$a=0; $b=0;
|
|
}
|
|
$graph->xaxis->scale->ticks->SetXLabelOffset($a);
|
|
$graph->SetTextScaleOff($b);
|
|
//$graph->xaxis->scale->ticks->SupressMinorTickMarks();
|
|
}
|
|
|
|
// Method description
|
|
function Stroke(&$img,&$xscale,&$yscale) {
|
|
$numpoints=count($this->coords[0])/2;
|
|
$img->SetColor($this->color);
|
|
$img->SetLineWeight($this->weight);
|
|
|
|
if( isset($this->coords[1]) ) {
|
|
if( count($this->coords[1])!=$numpoints )
|
|
JpGraphError::RaiseL(2003,count($this->coords[1]),$numpoints);
|
|
//("Number of X and Y points are not equal. Number of X-points:".count($this->coords[1])." Number of Y-points:$numpoints");
|
|
else
|
|
$exist_x = true;
|
|
}
|
|
else
|
|
$exist_x = false;
|
|
|
|
for( $i=0; $i<$numpoints; ++$i) {
|
|
if( $exist_x )
|
|
$x=$this->coords[1][$i];
|
|
else
|
|
$x=$i;
|
|
|
|
if( !is_numeric($x) ||
|
|
!is_numeric($this->coords[0][$i*2]) || !is_numeric($this->coords[0][$i*2+1]) ) {
|
|
continue;
|
|
}
|
|
|
|
$xt = $xscale->Translate($x);
|
|
$yt1 = $yscale->Translate($this->coords[0][$i*2]);
|
|
$yt2 = $yscale->Translate($this->coords[0][$i*2+1]);
|
|
$img->Line($xt,$yt1,$xt,$yt2);
|
|
$img->Line($xt-$this->errwidth,$yt1,$xt+$this->errwidth,$yt1);
|
|
$img->Line($xt-$this->errwidth,$yt2,$xt+$this->errwidth,$yt2);
|
|
}
|
|
return true;
|
|
}
|
|
} // Class
|
|
|
|
|
|
//===================================================
|
|
// CLASS ErrorLinePlot
|
|
// Description: Combine a line and error plot
|
|
// THIS IS A DEPRECATED PLOT TYPE JUST KEPT FOR
|
|
// BACKWARD COMPATIBILITY
|
|
//===================================================
|
|
class ErrorLinePlot extends ErrorPlot {
|
|
var $line=null;
|
|
//---------------
|
|
// CONSTRUCTOR
|
|
function ErrorLinePlot(&$datay,$datax=false) {
|
|
$this->ErrorPlot($datay,$datax);
|
|
// Calculate line coordinates as the average of the error limits
|
|
$n = count($datay);
|
|
for($i=0; $i < $n; $i+=2 ) {
|
|
$ly[]=($datay[$i]+$datay[$i+1])/2;
|
|
}
|
|
$this->line=new LinePlot($ly,$datax);
|
|
}
|
|
|
|
//---------------
|
|
// PUBLIC METHODS
|
|
function Legend(&$graph) {
|
|
if( $this->legend != "" )
|
|
$graph->legend->Add($this->legend,$this->color);
|
|
$this->line->Legend($graph);
|
|
}
|
|
|
|
function Stroke(&$img,&$xscale,&$yscale) {
|
|
parent::Stroke($img,$xscale,$yscale);
|
|
$this->line->Stroke($img,$xscale,$yscale);
|
|
}
|
|
} // Class
|
|
|
|
|
|
//===================================================
|
|
// CLASS LineErrorPlot
|
|
// Description: Combine a line and error plot
|
|
//===================================================
|
|
class LineErrorPlot extends ErrorPlot {
|
|
var $line=null;
|
|
//---------------
|
|
// CONSTRUCTOR
|
|
// Data is (val, errdeltamin, errdeltamax)
|
|
function LineErrorPlot(&$datay,$datax=false) {
|
|
$ly=array(); $ey=array();
|
|
$n = count($datay);
|
|
if( $n % 3 != 0 ) {
|
|
JpGraphError::RaiseL(4002);
|
|
//('Error in input data to LineErrorPlot. Number of data points must be a multiple of 3');
|
|
}
|
|
for($i=0; $i < $n; $i+=3 ) {
|
|
$ly[]=$datay[$i];
|
|
$ey[]=$datay[$i]+$datay[$i+1];
|
|
$ey[]=$datay[$i]+$datay[$i+2];
|
|
}
|
|
$this->ErrorPlot($ey,$datax);
|
|
$this->line=new LinePlot($ly,$datax);
|
|
}
|
|
|
|
//---------------
|
|
// PUBLIC METHODS
|
|
function Legend(&$graph) {
|
|
if( $this->legend != "" )
|
|
$graph->legend->Add($this->legend,$this->color);
|
|
$this->line->Legend($graph);
|
|
}
|
|
|
|
function Stroke(&$img,&$xscale,&$yscale) {
|
|
parent::Stroke($img,$xscale,$yscale);
|
|
$this->line->Stroke($img,$xscale,$yscale);
|
|
}
|
|
} // Class
|
|
|
|
|
|
/* EOF */
|
|
?>
|