Subversion Repositories Applications.papyrus

<?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 2004/06/15 10:13:19 jpm Exp $
//
// License:     This code is released under QPL
// Copyright (C) 2001,2002 Johan Persson
//========================================================================
*/

//===================================================
// 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::Raise("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;

        if( $exist_x )
            $xs=$this->coords[1][0];
        else
            $xs=0;

                
        for( $i=0; $i<$numpoints; ++$i) {
            if( $exist_x ) $x=$this->coords[1][$i];
            else $x=$i;
            $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
        for($i=0; $i < count($datay); $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::Raise('Error in input data to LineErrorPlot.'.
                'Number of data points must be a multiple of 3');
        }
        for($i=0; $i < count($datay); $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 */
?>