nightly-test-server/jpgraph/jpgraph_utils.inc - llvm-archive - Git at Google

 <?php
 /*=======================================================================
 // File: 	JPGRAPH_UTILS.INC
 // Description: Collection of non-essential "nice to have" utilities
 // Created: 	2005-11-20
 // Author:	Johan Persson (johanp@aditus.nu)
 // Ver:		$Id$
 //
 // Copyright (c) Aditus Consulting. All rights reserved.
 //========================================================================
 */

 //===================================================
 // CLASS FuncGenerator
 // Description: Utility class to help generate data for function plots.
 // The class supports both parametric and regular functions.
 //===================================================
 class FuncGenerator {
     var $iFunc='',$iXFunc='',$iMin,$iMax,$iStepSize;

     function FuncGenerator($aFunc,$aXFunc='') {
 	$this->iFunc = $aFunc;
 	$this->iXFunc = $aXFunc;
     }

     function E($aXMin,$aXMax,$aSteps=50) {
 	$this->iMin = $aXMin;
 	$this->iMax = $aXMax;
 	$this->iStepSize = ($aXMax-$aXMin)/$aSteps;

 	if( $this->iXFunc != '' )
 	    $t = 'for($i='.$aXMin.'; $i<='.$aXMax.'; $i += '.$this->iStepSize.') {$ya[]='.$this->iFunc.';$xa[]='.$this->iXFunc.';}';
 	elseif( $this->iFunc != '' )
 	    $t = 'for($x='.$aXMin.'; $x<='.$aXMax.'; $x += '.$this->iStepSize.') {$ya[]='.$this->iFunc.';$xa[]=$x;} $x='.$aXMax.';$ya[]='.$this->iFunc.';$xa[]=$x;';
 	else
 	    JpGraphError::RaiseL(24001);//('FuncGenerator : No function specified. ');

 	@eval($t);

 	// If there is an error in the function specifcation this is the only
 	// way we can discover that.
 	if( empty($xa) || empty($ya) )
 	    JpGraphError::RaiseL(24002);//('FuncGenerator : Syntax error in function specification ');

 	return array($xa,$ya);
     }
 }

 //=============================================================================
 // CLASS SymChar
 // Description: Code values for some commonly used characters that
 //              normally isn't available directly on the keyboard, for example
 //              mathematical and greek symbols.
 //=============================================================================
 class  SymChar {
     function Get($aSymb,$aCapital=FALSE) {
         static $iSymbols = array(
     /* Greek */
 	array('alpha','03B1','0391'),
 	array('beta','03B2','0392'),
 	array('gamma','03B3','0393'),
 	array('delta','03B4','0394'),
 	array('epsilon','03B5','0395'),
 	array('zeta','03B6','0396'),
 	array('ny','03B7','0397'),
 	array('eta','03B8','0398'),
 	array('theta','03B8','0398'),
 	array('iota','03B9','0399'),
 	array('kappa','03BA','039A'),
 	array('lambda','03BB','039B'),
 	array('mu','03BC','039C'),
 	array('nu','03BD','039D'),
 	array('xi','03BE','039E'),
 	array('omicron','03BF','039F'),
 	array('pi','03C0','03A0'),
 	array('rho','03C1','03A1'),
 	array('sigma','03C3','03A3'),
 	array('tau','03C4','03A4'),
 	array('upsilon','03C5','03A5'),
 	array('phi','03C6','03A6'),
 	array('chi','03C7','03A7'),
 	array('psi','03C8','03A8'),
 	array('omega','03C9','03A9'),
     /* Money */
 	array('euro','20AC'),
 	array('yen','00A5'),
 	array('pound','20A4'),
     /* Math */
 	array('approx','2248'),
 	array('neq','2260'),
 	array('not','2310'),
 	array('def','2261'),
 	array('inf','221E'),
 	array('sqrt','221A'),
 	array('int','222B'),
     /* Misc */
 	array('copy','00A9'),
 	array('para','00A7'));

 	$n = count($iSymbols);
 	$i=0;
 	$found = false;
 	$aSymb = strtolower($aSymb);
 	while( $i < $n && !$found ) {
 	    $found = $aSymb === $iSymbols[$i++][0];
 	}
 	if( $found ) {
 	    $ca = $iSymbols[--$i];
 	    if( $aCapital && count($ca)==3 )
 		$s = $ca[2];
 	    else
 		$s = $ca[1];
 	    return sprintf('&#%04d;',hexdec($s));
 	}
 	else
 	    return '';
     }
 }


 //=============================================================================
 // CLASS DateScaleUtils
 // Description: Help to create a manual date scale
 //=============================================================================
 DEFINE('DSUTILS_MONTH',1); // Major and minor ticks on a monthly basis
 DEFINE('DSUTILS_MONTH1',1); // Major and minor ticks on a monthly basis
 DEFINE('DSUTILS_MONTH2',2); // Major ticks on a bi-monthly basis
 DEFINE('DSUTILS_MONTH3',3); // Major icks on a tri-monthly basis
 DEFINE('DSUTILS_MONTH6',4); // Major on a six-monthly basis
 DEFINE('DSUTILS_WEEK1',5); // Major ticks on a weekly basis
 DEFINE('DSUTILS_WEEK2',6); // Major ticks on a bi-weekly basis
 DEFINE('DSUTILS_WEEK4',7); // Major ticks on a quod-weekly basis
 DEFINE('DSUTILS_DAY1',8); // Major ticks on a daily basis
 DEFINE('DSUTILS_DAY2',9); // Major ticks on a bi-daily basis
 DEFINE('DSUTILS_DAY4',10); // Major ticks on a qoud-daily basis
 DEFINE('DSUTILS_YEAR1',11); // Major ticks on a yearly basis
 DEFINE('DSUTILS_YEAR2',12); // Major ticks on a bi-yearly basis
 DEFINE('DSUTILS_YEAR5',13); // Major ticks on a five-yearly basis


 class DateScaleUtils {
     var $starthour,$startmonth, $startday, $startyear;
     var $endmonth, $endyear, $endday;
     var $tickPositions=array(),$minTickPositions=array();
     var $iUseWeeks = true;

     function UseWeekFormat($aFlg) {
 	$this->iUseWeeks = $aFlg;
     }

     function doYearly($aType,$aMinor=false) {
 	$i=0; $j=0;
 	$m = $this->startmonth;
 	$y = $this->startyear;

 	if( $this->startday == 1 ) {
 	    $this->tickPositions[$i++] = mktime(0,0,0,$m,1,$y);
 	}
 	++$m;

 	switch( $aType ) {
 	    case DSUTILS_YEAR1:
 		for($y=$this->startyear; $y <= $this->endyear; ++$y ) {
 		    if( $aMinor ) {
 			while( $m <= 12 ) {
 			    if( !($y == $this->endyear && $m > $this->endmonth) ) {
 				$this->minTickPositions[$j++] = mktime(0,0,0,$m,1,$y);
 			    }
 			    ++$m;
 			}
 			$m=1;
 		    }
 		    $this->tickPositions[$i++] = mktime(0,0,0,1,1,$y);
 		}
 		break;
 	    case DSUTILS_YEAR2:
 		$y=$this->startyear;
 		while( $y <= $this->endyear ) {
 		    $this->tickPositions[$i++] = mktime(0,0,0,1,1,$y);
 		    for($k=0; $k < 1; ++$k ) {
 			++$y;
 			if( $aMinor ) {
 			    $this->minTickPositions[$j++] = mktime(0,0,0,1,1,$y);
 			}
 		    }
 		    ++$y;
 		}
 		break;
 	    case DSUTILS_YEAR5:
 		$y=$this->startyear;
 		while( $y <= $this->endyear ) {
 		    $this->tickPositions[$i++] = mktime(0,0,0,1,1,$y);
 		    for($k=0; $k < 4; ++$k ) {
 			++$y;
 			if( $aMinor ) {
 			    $this->minTickPositions[$j++] = mktime(0,0,0,1,1,$y);
 			}
 		    }
 		    ++$y;
 		}
 		break;
 	}
     }

     function doDaily($aType,$aMinor=false) {
 	$m = $this->startmonth;
 	$y = $this->startyear;
 	$d = $this->startday;
 	$h = $this->starthour;
 	$i=0;$j=0;

 	if( $h == 0 ) {
 	    $this->tickPositions[$i++] = mktime(0,0,0,$m,$d,$y);
 	    $t = mktime(0,0,0,$m,$d,$y);
 	}
 	else {
 	    $t = mktime(0,0,0,$m,$d,$y);
 	}
 	switch($aType) {
 	    case DSUTILS_DAY1:
 		while( $t <= $this->iMax ) {
 		    $t += 3600*24;
 		    $this->tickPositions[$i++] = $t;
 		}
 		break;
 	    case DSUTILS_DAY2:
 		while( $t <= $this->iMax ) {
 		    $t += 3600*24;
 		    if( $aMinor ) {
 			$this->minTickPositions[$j++] = $t;
 		    }
 		    $t += 3600*24;
 		    $this->tickPositions[$i++] = $t;
 		}
 		break;
 	    case DSUTILS_DAY4:
 		while( $t <= $this->iMax ) {
 		    for($k=0; $k < 3; ++$k ) {
 			$t += 3600*24;
 			if( $aMinor ) {
 			    $this->minTickPositions[$j++] = $t;
 			}
 		    }
 		    $t += 3600*24;
 		    $this->tickPositions[$i++] = $t;
 		}
 		break;
 	}
     }

     function doWeekly($aType,$aMinor=false) {
 	$hpd = 3600*24;
 	$hpw = 3600*24*7;
 	// Find out week number of min date
 	$thursday = $this->iMin + $hpd * (3 - (date('w', $this->iMin) + 6) % 7);
 	$week = 1 + (date('z', $thursday) - (11 - date('w', mktime(0, 0, 0, 1, 1, date('Y', $thursday)))) % 7) / 7;
 	$daynumber = date('w',$this->iMin);
 	if( $daynumber == 0 ) $daynumber = 7;
 	$m = $this->startmonth;
 	$y = $this->startyear;
 	$d = $this->startday;
 	$i=0;$j=0;
 	// The assumption is that the weeks start on Monday. If the first day
 	// is later in the week then the first week tick has to be on the following
 	// week.
 	if( $daynumber == 1 ) {
 	    $this->tickPositions[$i++] = mktime(0,0,0,$m,$d,$y);
 	    $t = mktime(0,0,0,$m,$d,$y) + $hpw;
 	}
 	else {
 	    $t = mktime(0,0,0,$m,$d,$y) + $hpd*(8-$daynumber);
 	}

 	switch($aType) {
 	    case DSUTILS_WEEK1:
 		$cnt=0;
 		break;
 	    case DSUTILS_WEEK2:
 		$cnt=1;
 		break;
 	    case DSUTILS_WEEK4:
 		$cnt=3;
 		break;
 	}
 	while( $t <= $this->iMax ) {
 	    $this->tickPositions[$i++] = $t;
 	    for($k=0; $k < $cnt; ++$k ) {
 		$t += $hpw;
 		if( $aMinor ) {
 		    $this->minTickPositions[$j++] = $t;
 		}
 	    }
 	    $t += $hpw;
 	}
     }

     function doMonthly($aType,$aMinor=false) {
 	$monthcount=0;
 	$m = $this->startmonth;
 	$y = $this->startyear;
 	$i=0; $j=0;

 	// Skip the first month label if it is before the startdate
 	if( $this->startday == 1 ) {
 	    $this->tickPositions[$i++] = mktime(0,0,0,$m,1,$y);
 	    $monthcount=1;
 	}
 	if( $aType == 1 ) {
 	    if( $this->startday < 15 ) {
 		$this->minTickPositions[$j++] = mktime(0,0,0,$m,15,$y);
 	    }
 	}
 	++$m;

 	// Loop through all the years included in the scale
 	for($y=$this->startyear; $y <= $this->endyear; ++$y ) {
 	    // Loop through all the months. There are three cases to consider:
 	    // 1. We are in the first year and must start with the startmonth
 	    // 2. We are in the end year and we must stop at last month of the scale
 	    // 3. A year in between where we run through all the 12 months
 	    $stopmonth = $y == $this->endyear ? $this->endmonth : 12;
 	    while( $m <= $stopmonth ) {
 		switch( $aType ) {
 		    case DSUTILS_MONTH1:
 			// Set minor tick at the middle of the month
 			if( $aMinor ) {
 			    if( $m <= $stopmonth ) {
 				if( !($y==$this->endyear && $m==$stopmonth && $this->endday < 15) )
 				$this->minTickPositions[$j++] = mktime(0,0,0,$m,15,$y);
 			    }
 			}
 			// Major at month
 			// Get timestamp of first hour of first day in each month
 			$this->tickPositions[$i++] = mktime(0,0,0,$m,1,$y);

 			break;
 		    case DSUTILS_MONTH2:
 			if( $aMinor ) {
 			    // Set minor tick at start of each month
 			    $this->minTickPositions[$j++] = mktime(0,0,0,$m,1,$y);
 			}

 			// Major at every second month
 			// Get timestamp of first hour of first day in each month
 			if( $monthcount % 2 == 0 ) {
 			    $this->tickPositions[$i++] = mktime(0,0,0,$m,1,$y);
 			}
 			break;
 		    case DSUTILS_MONTH3:
 			if( $aMinor ) {
 			    // Set minor tick at start of each month
 			    $this->minTickPositions[$j++] = mktime(0,0,0,$m,1,$y);
 			}
 			    // Major at every third month
 			// Get timestamp of first hour of first day in each month
 			if( $monthcount % 3 == 0 ) {
 			    $this->tickPositions[$i++] = mktime(0,0,0,$m,1,$y);
 			}
 			break;
 		    case DSUTILS_MONTH6:
 			if( $aMinor ) {
 			    // Set minor tick at start of each month
 			    $this->minTickPositions[$j++] = mktime(0,0,0,$m,1,$y);
 			}
 			// Major at every third month
 			// Get timestamp of first hour of first day in each month
 			if( $monthcount % 6 == 0 ) {
 			    $this->tickPositions[$i++] = mktime(0,0,0,$m,1,$y);
 			}
 			break;
 		}
 		++$m;
 		++$monthcount;
 	    }
 	    $m=1;
 	}

 	// For the case where all dates are within the same month
 	// we want to make sure we have at least two ticks on the scale
 	// since the scale want work properly otherwise
 	if($this->startmonth == $this->endmonth && $this->startyear == $this->endyear && $aType==1 ) {
 	    $this->tickPositions[$i++] = mktime(0 ,0 ,0, $this->startmonth + 1, 1, $this->startyear);
 	}

 	return array($this->tickPositions,$this->minTickPositions);
     }

     function GetTicks($aData,$aType=1,$aMinor=false,$aEndPoints=false) {
 	$n = count($aData);
 	return $this->GetTicksFromMinMax($aData[0],$aData[$n-1],$aType,$aMinor,$aEndPoints);
     }

     function GetAutoTicks($aMin,$aMax,$aMaxTicks=10,$aMinor=false) {
 	$diff = $aMax - $aMin;
 	$spd = 3600*24;
 	$spw = $spd*7;
 	$spm = $spd*30;
 	$spy = $spd*352;

 	if( $this->iUseWeeks )
 	    $w = 'W';
 	else
 	    $w = 'd M';

 	// Decision table for suitable scales
 	// First value: Main decision point
 	// Second value: Array of formatting depending on divisor for wanted max number of ticks. <divisor><formatting><format-string>,..
 	$tt = array(
 	    array($spw, array(1,DSUTILS_DAY1,'d M',2,DSUTILS_DAY2,'d M',-1,DSUTILS_DAY4,'d M')),
 	    array($spm, array(1,DSUTILS_DAY1,'d M',2,DSUTILS_DAY2,'d M',4,DSUTILS_DAY4,'d M',
 			      7,DSUTILS_WEEK1,$w,-1,DSUTILS_WEEK2,$w)),
 	    array($spy, array(1,DSUTILS_DAY1,'d M',2,DSUTILS_DAY2,'d M',4,DSUTILS_DAY4,'d M',
 			      7,DSUTILS_WEEK1,$w,14,DSUTILS_WEEK2,$w,
 			      30,DSUTILS_MONTH1,'M',60,DSUTILS_MONTH2,'M',-1,DSUTILS_MONTH3,'M')),
 	    array(-1, array(30,DSUTILS_MONTH1,'M-Y',60,DSUTILS_MONTH2,'M-Y',90,DSUTILS_MONTH3,'M-Y',
 			    180,DSUTILS_MONTH6,'M-Y',352,DSUTILS_YEAR1,'Y',704,DSUTILS_YEAR2,'Y',-1,DSUTILS_YEAR5,'Y')));

 	$ntt = count($tt);
 	$nd = floor($diff/$spd);
 	for($i=0; $i < $ntt; ++$i ) {
 	    if( $diff <= $tt[$i][0] || $i==$ntt-1) {
 		$t = $tt[$i][1];
 		$n = count($t)/3;
 		for( $j=0; $j < $n; ++$j ) {
 		    if( $nd/$t[3*$j] <= $aMaxTicks || $j==$n-1) {
 			$type = $t[3*$j+1];
 			$fs = $t[3*$j+2];
 			list($tickPositions,$minTickPositions) = $this->GetTicksFromMinMax($aMin,$aMax,$type,$aMinor);
 			return array($fs,$tickPositions,$minTickPositions,$type);
 		    }
 		}
 	    }
 	}
     }

     function GetTicksFromMinMax($aMin,$aMax,$aType,$aMinor=false,$aEndPoints=false) {
 	$this->starthour = date('G',$aMin);
 	$this->startmonth = date('n',$aMin);
 	$this->startday = date('j',$aMin);
 	$this->startyear = date('Y',$aMin);
 	$this->endmonth = date('n',$aMax);
 	$this->endyear = date('Y',$aMax);
 	$this->endday = date('j',$aMax);
 	$this->iMin = $aMin;
 	$this->iMax = $aMax;

 	if( $aType <= DSUTILS_MONTH6 ) {
 	    $this->doMonthly($aType,$aMinor);
 	}
 	elseif( $aType <= DSUTILS_WEEK4 ) {
 	    $this->doWeekly($aType,$aMinor);
 	}
 	elseif( $aType <= DSUTILS_DAY4 ) {
 	    $this->doDaily($aType,$aMinor);
 	}
 	elseif( $aType <= DSUTILS_YEAR5 ) {
 	    $this->doYearly($aType,$aMinor);
 	}
 	else {
 	    JpGraphError::RaiseL(24003);
 	}
 	// put a label at the very left data pos
 	if( $aEndPoints ) {
 	    $tickPositions[$i++] = $aData[0];
 	}

 	// put a label at the very right data pos
 	if( $aEndPoints ) {
 	    $tickPositions[$i] = $aData[$n-1];
 	}

 	return array($this->tickPositions,$this->minTickPositions);
     }

 }

 //=============================================================================
 // Class ReadFileData
 //=============================================================================
 Class ReadFileData {

     //----------------------------------------------------------------------------
     // Desciption:
     // Read numeric data from a file.
     // Each value should be separated by either a new line or by a specified
     // separator character (default is ',').
     // Before returning the data each value is converted to a proper float
     // value. The routine is robust in the sense that non numeric data in the
     // file will be discarded.
     //
     // Returns:
     // The number of data values read on success, FALSE on failure
     //----------------------------------------------------------------------------
     function FromCSV($aFile,&$aData,$aSepChar=',',$aMaxLineLength=1024) {
 	$rh = fopen($aFile,'r');
 	if( $rh === false )
 	    return false;
 	$tmp = array();
 	$lineofdata = fgetcsv($rh, 1000, ',');
 	while ( $lineofdata !== FALSE) {
 	    $tmp = array_merge($tmp,$lineofdata);
 	    $lineofdata = fgetcsv($rh, $aMaxLineLength, $aSepChar);
 	}
 	fclose($rh);

 	// Now make sure that all data is numeric. By default
 	// all data is read as strings
 	$n = count($tmp);
 	$aData = array();
 	$cnt=0;
 	for($i=0; $i < $n; ++$i) {
 	    if( $tmp[$i] !== "" ) {
 		$aData[$cnt++] = floatval($tmp[$i]);
 	    }
 	}
 	return $cnt;
     }
 }

 ?>
	<?php
	/*=======================================================================
	// File: JPGRAPH_UTILS.INC
	// Description: Collection of non-essential "nice to have" utilities
	// Created: 2005-11-20
	// Author: Johan Persson (johanp@aditus.nu)
	// Ver: $Id$
	//
	// Copyright (c) Aditus Consulting. All rights reserved.
	//========================================================================
	*/

	//===================================================
	// CLASS FuncGenerator
	// Description: Utility class to help generate data for function plots.
	// The class supports both parametric and regular functions.
	//===================================================
	class FuncGenerator {
	var $iFunc='',$iXFunc='',$iMin,$iMax,$iStepSize;

	function FuncGenerator($aFunc,$aXFunc='') {
	$this->iFunc = $aFunc;
	$this->iXFunc = $aXFunc;
	}

	function E($aXMin,$aXMax,$aSteps=50) {
	$this->iMin = $aXMin;
	$this->iMax = $aXMax;
	$this->iStepSize = ($aXMax-$aXMin)/$aSteps;

	if( $this->iXFunc != '' )
	$t = 'for($i='.$aXMin.'; $i<='.$aXMax.'; $i += '.$this->iStepSize.') {$ya[]='.$this->iFunc.';$xa[]='.$this->iXFunc.';}';
	elseif( $this->iFunc != '' )
	$t = 'for($x='.$aXMin.'; $x<='.$aXMax.'; $x += '.$this->iStepSize.') {$ya[]='.$this->iFunc.';$xa[]=$x;} $x='.$aXMax.';$ya[]='.$this->iFunc.';$xa[]=$x;';
	else
	JpGraphError::RaiseL(24001);//('FuncGenerator : No function specified. ');

	@eval($t);

	// If there is an error in the function specifcation this is the only
	// way we can discover that.
	if( empty($xa) \|\| empty($ya) )
	JpGraphError::RaiseL(24002);//('FuncGenerator : Syntax error in function specification ');

	return array($xa,$ya);
	}
	}

	//=============================================================================
	// CLASS SymChar
	// Description: Code values for some commonly used characters that
	// normally isn't available directly on the keyboard, for example
	// mathematical and greek symbols.
	//=============================================================================
	class SymChar {
	function Get($aSymb,$aCapital=FALSE) {
	static $iSymbols = array(
	/* Greek */
	array('alpha','03B1','0391'),
	array('beta','03B2','0392'),
	array('gamma','03B3','0393'),
	array('delta','03B4','0394'),
	array('epsilon','03B5','0395'),
	array('zeta','03B6','0396'),
	array('ny','03B7','0397'),
	array('eta','03B8','0398'),
	array('theta','03B8','0398'),
	array('iota','03B9','0399'),
	array('kappa','03BA','039A'),
	array('lambda','03BB','039B'),
	array('mu','03BC','039C'),
	array('nu','03BD','039D'),
	array('xi','03BE','039E'),
	array('omicron','03BF','039F'),
	array('pi','03C0','03A0'),
	array('rho','03C1','03A1'),
	array('sigma','03C3','03A3'),
	array('tau','03C4','03A4'),
	array('upsilon','03C5','03A5'),
	array('phi','03C6','03A6'),
	array('chi','03C7','03A7'),
	array('psi','03C8','03A8'),
	array('omega','03C9','03A9'),
	/* Money */
	array('euro','20AC'),
	array('yen','00A5'),
	array('pound','20A4'),
	/* Math */
	array('approx','2248'),
	array('neq','2260'),
	array('not','2310'),
	array('def','2261'),
	array('inf','221E'),
	array('sqrt','221A'),
	array('int','222B'),
	/* Misc */
	array('copy','00A9'),
	array('para','00A7'));

	$n = count($iSymbols);
	$i=0;
	$found = false;
	$aSymb = strtolower($aSymb);
	while( $i < $n && !$found ) {
	$found = $aSymb === $iSymbols[$i++][0];
	}
	if( $found ) {
	$ca = $iSymbols[--$i];
	if( $aCapital && count($ca)==3 )
	$s = $ca[2];
	else
	$s = $ca[1];
	return sprintf('&#%04d;',hexdec($s));
	}
	else
	return '';
	}
	}


	//=============================================================================
	// CLASS DateScaleUtils
	// Description: Help to create a manual date scale
	//=============================================================================
	DEFINE('DSUTILS_MONTH',1); // Major and minor ticks on a monthly basis
	DEFINE('DSUTILS_MONTH1',1); // Major and minor ticks on a monthly basis
	DEFINE('DSUTILS_MONTH2',2); // Major ticks on a bi-monthly basis
	DEFINE('DSUTILS_MONTH3',3); // Major icks on a tri-monthly basis
	DEFINE('DSUTILS_MONTH6',4); // Major on a six-monthly basis
	DEFINE('DSUTILS_WEEK1',5); // Major ticks on a weekly basis
	DEFINE('DSUTILS_WEEK2',6); // Major ticks on a bi-weekly basis
	DEFINE('DSUTILS_WEEK4',7); // Major ticks on a quod-weekly basis
	DEFINE('DSUTILS_DAY1',8); // Major ticks on a daily basis
	DEFINE('DSUTILS_DAY2',9); // Major ticks on a bi-daily basis
	DEFINE('DSUTILS_DAY4',10); // Major ticks on a qoud-daily basis
	DEFINE('DSUTILS_YEAR1',11); // Major ticks on a yearly basis
	DEFINE('DSUTILS_YEAR2',12); // Major ticks on a bi-yearly basis
	DEFINE('DSUTILS_YEAR5',13); // Major ticks on a five-yearly basis


	class DateScaleUtils {
	var $starthour,$startmonth, $startday, $startyear;
	var $endmonth, $endyear, $endday;
	var $tickPositions=array(),$minTickPositions=array();
	var $iUseWeeks = true;

	function UseWeekFormat($aFlg) {
	$this->iUseWeeks = $aFlg;
	}

	function doYearly($aType,$aMinor=false) {
	$i=0; $j=0;
	$m = $this->startmonth;
	$y = $this->startyear;

	if( $this->startday == 1 ) {
	$this->tickPositions[$i++] = mktime(0,0,0,$m,1,$y);
	}
	++$m;

	switch( $aType ) {
	case DSUTILS_YEAR1:
	for($y=$this->startyear; $y <= $this->endyear; ++$y ) {
	if( $aMinor ) {
	while( $m <= 12 ) {
	if( !($y == $this->endyear && $m > $this->endmonth) ) {
	$this->minTickPositions[$j++] = mktime(0,0,0,$m,1,$y);
	}
	++$m;
	}
	$m=1;
	}
	$this->tickPositions[$i++] = mktime(0,0,0,1,1,$y);
	}
	break;
	case DSUTILS_YEAR2:
	$y=$this->startyear;
	while( $y <= $this->endyear ) {
	$this->tickPositions[$i++] = mktime(0,0,0,1,1,$y);
	for($k=0; $k < 1; ++$k ) {
	++$y;
	if( $aMinor ) {
	$this->minTickPositions[$j++] = mktime(0,0,0,1,1,$y);
	}
	}
	++$y;
	}
	break;
	case DSUTILS_YEAR5:
	$y=$this->startyear;
	while( $y <= $this->endyear ) {
	$this->tickPositions[$i++] = mktime(0,0,0,1,1,$y);
	for($k=0; $k < 4; ++$k ) {
	++$y;
	if( $aMinor ) {
	$this->minTickPositions[$j++] = mktime(0,0,0,1,1,$y);
	}
	}
	++$y;
	}
	break;
	}
	}

	function doDaily($aType,$aMinor=false) {
	$m = $this->startmonth;
	$y = $this->startyear;
	$d = $this->startday;
	$h = $this->starthour;
	$i=0;$j=0;

	if( $h == 0 ) {
	$this->tickPositions[$i++] = mktime(0,0,0,$m,$d,$y);
	$t = mktime(0,0,0,$m,$d,$y);
	}
	else {
	$t = mktime(0,0,0,$m,$d,$y);
	}
	switch($aType) {
	case DSUTILS_DAY1:
	while( $t <= $this->iMax ) {
	$t += 3600*24;
	$this->tickPositions[$i++] = $t;
	}
	break;
	case DSUTILS_DAY2:
	while( $t <= $this->iMax ) {
	$t += 3600*24;
	if( $aMinor ) {
	$this->minTickPositions[$j++] = $t;
	}
	$t += 3600*24;
	$this->tickPositions[$i++] = $t;
	}
	break;
	case DSUTILS_DAY4:
	while( $t <= $this->iMax ) {
	for($k=0; $k < 3; ++$k ) {
	$t += 3600*24;
	if( $aMinor ) {
	$this->minTickPositions[$j++] = $t;
	}
	}
	$t += 3600*24;
	$this->tickPositions[$i++] = $t;
	}
	break;
	}
	}

	function doWeekly($aType,$aMinor=false) {
	$hpd = 3600*24;
	$hpw = 3600247;
	// Find out week number of min date
	$thursday = $this->iMin + $hpd * (3 - (date('w', $this->iMin) + 6) % 7);
	$week = 1 + (date('z', $thursday) - (11 - date('w', mktime(0, 0, 0, 1, 1, date('Y', $thursday)))) % 7) / 7;
	$daynumber = date('w',$this->iMin);
	if( $daynumber == 0 ) $daynumber = 7;
	$m = $this->startmonth;
	$y = $this->startyear;
	$d = $this->startday;
	$i=0;$j=0;
	// The assumption is that the weeks start on Monday. If the first day
	// is later in the week then the first week tick has to be on the following
	// week.
	if( $daynumber == 1 ) {
	$this->tickPositions[$i++] = mktime(0,0,0,$m,$d,$y);
	$t = mktime(0,0,0,$m,$d,$y) + $hpw;
	}
	else {
	$t = mktime(0,0,0,$m,$d,$y) + $hpd*(8-$daynumber);
	}

	switch($aType) {
	case DSUTILS_WEEK1:
	$cnt=0;
	break;
	case DSUTILS_WEEK2:
	$cnt=1;
	break;
	case DSUTILS_WEEK4:
	$cnt=3;
	break;
	}
	while( $t <= $this->iMax ) {
	$this->tickPositions[$i++] = $t;
	for($k=0; $k < $cnt; ++$k ) {
	$t += $hpw;
	if( $aMinor ) {
	$this->minTickPositions[$j++] = $t;
	}
	}
	$t += $hpw;
	}
	}

	function doMonthly($aType,$aMinor=false) {
	$monthcount=0;
	$m = $this->startmonth;
	$y = $this->startyear;
	$i=0; $j=0;

	// Skip the first month label if it is before the startdate
	if( $this->startday == 1 ) {
	$this->tickPositions[$i++] = mktime(0,0,0,$m,1,$y);
	$monthcount=1;
	}
	if( $aType == 1 ) {
	if( $this->startday < 15 ) {
	$this->minTickPositions[$j++] = mktime(0,0,0,$m,15,$y);
	}
	}
	++$m;

	// Loop through all the years included in the scale
	for($y=$this->startyear; $y <= $this->endyear; ++$y ) {
	// Loop through all the months. There are three cases to consider:
	// 1. We are in the first year and must start with the startmonth
	// 2. We are in the end year and we must stop at last month of the scale
	// 3. A year in between where we run through all the 12 months
	$stopmonth = $y == $this->endyear ? $this->endmonth : 12;
	while( $m <= $stopmonth ) {
	switch( $aType ) {
	case DSUTILS_MONTH1:
	// Set minor tick at the middle of the month
	if( $aMinor ) {
	if( $m <= $stopmonth ) {
	if( !($y==$this->endyear && $m==$stopmonth && $this->endday < 15) )
	$this->minTickPositions[$j++] = mktime(0,0,0,$m,15,$y);
	}
	}
	// Major at month
	// Get timestamp of first hour of first day in each month
	$this->tickPositions[$i++] = mktime(0,0,0,$m,1,$y);

	break;
	case DSUTILS_MONTH2:
	if( $aMinor ) {
	// Set minor tick at start of each month
	$this->minTickPositions[$j++] = mktime(0,0,0,$m,1,$y);
	}

	// Major at every second month
	// Get timestamp of first hour of first day in each month
	if( $monthcount % 2 == 0 ) {
	$this->tickPositions[$i++] = mktime(0,0,0,$m,1,$y);
	}
	break;
	case DSUTILS_MONTH3:
	if( $aMinor ) {
	// Set minor tick at start of each month
	$this->minTickPositions[$j++] = mktime(0,0,0,$m,1,$y);
	}
	// Major at every third month
	// Get timestamp of first hour of first day in each month
	if( $monthcount % 3 == 0 ) {
	$this->tickPositions[$i++] = mktime(0,0,0,$m,1,$y);
	}
	break;
	case DSUTILS_MONTH6:
	if( $aMinor ) {
	// Set minor tick at start of each month
	$this->minTickPositions[$j++] = mktime(0,0,0,$m,1,$y);
	}
	// Major at every third month
	// Get timestamp of first hour of first day in each month
	if( $monthcount % 6 == 0 ) {
	$this->tickPositions[$i++] = mktime(0,0,0,$m,1,$y);
	}
	break;
	}
	++$m;
	++$monthcount;
	}
	$m=1;
	}

	// For the case where all dates are within the same month
	// we want to make sure we have at least two ticks on the scale
	// since the scale want work properly otherwise
	if($this->startmonth == $this->endmonth && $this->startyear == $this->endyear && $aType==1 ) {
	$this->tickPositions[$i++] = mktime(0 ,0 ,0, $this->startmonth + 1, 1, $this->startyear);
	}

	return array($this->tickPositions,$this->minTickPositions);
	}

	function GetTicks($aData,$aType=1,$aMinor=false,$aEndPoints=false) {
	$n = count($aData);
	return $this->GetTicksFromMinMax($aData[0],$aData[$n-1],$aType,$aMinor,$aEndPoints);
	}

	function GetAutoTicks($aMin,$aMax,$aMaxTicks=10,$aMinor=false) {
	$diff = $aMax - $aMin;
	$spd = 3600*24;
	$spw = $spd*7;
	$spm = $spd*30;
	$spy = $spd*352;

	if( $this->iUseWeeks )
	$w = 'W';
	else
	$w = 'd M';

	// Decision table for suitable scales
	// First value: Main decision point
	// Second value: Array of formatting depending on divisor for wanted max number of ticks. <divisor><formatting><format-string>,..
	$tt = array(
	array($spw, array(1,DSUTILS_DAY1,'d M',2,DSUTILS_DAY2,'d M',-1,DSUTILS_DAY4,'d M')),
	array($spm, array(1,DSUTILS_DAY1,'d M',2,DSUTILS_DAY2,'d M',4,DSUTILS_DAY4,'d M',
	7,DSUTILS_WEEK1,$w,-1,DSUTILS_WEEK2,$w)),
	array($spy, array(1,DSUTILS_DAY1,'d M',2,DSUTILS_DAY2,'d M',4,DSUTILS_DAY4,'d M',
	7,DSUTILS_WEEK1,$w,14,DSUTILS_WEEK2,$w,
	30,DSUTILS_MONTH1,'M',60,DSUTILS_MONTH2,'M',-1,DSUTILS_MONTH3,'M')),
	array(-1, array(30,DSUTILS_MONTH1,'M-Y',60,DSUTILS_MONTH2,'M-Y',90,DSUTILS_MONTH3,'M-Y',
	180,DSUTILS_MONTH6,'M-Y',352,DSUTILS_YEAR1,'Y',704,DSUTILS_YEAR2,'Y',-1,DSUTILS_YEAR5,'Y')));

	$ntt = count($tt);
	$nd = floor($diff/$spd);
	for($i=0; $i < $ntt; ++$i ) {
	if( $diff <= $tt[$i][0] \|\| $i==$ntt-1) {
	$t = $tt[$i][1];
	$n = count($t)/3;
	for( $j=0; $j < $n; ++$j ) {
	if( $nd/$t[3*$j] <= $aMaxTicks \|\| $j==$n-1) {
	$type = $t[3*$j+1];
	$fs = $t[3*$j+2];
	list($tickPositions,$minTickPositions) = $this->GetTicksFromMinMax($aMin,$aMax,$type,$aMinor);
	return array($fs,$tickPositions,$minTickPositions,$type);
	}
	}
	}
	}
	}

	function GetTicksFromMinMax($aMin,$aMax,$aType,$aMinor=false,$aEndPoints=false) {
	$this->starthour = date('G',$aMin);
	$this->startmonth = date('n',$aMin);
	$this->startday = date('j',$aMin);
	$this->startyear = date('Y',$aMin);
	$this->endmonth = date('n',$aMax);
	$this->endyear = date('Y',$aMax);
	$this->endday = date('j',$aMax);
	$this->iMin = $aMin;
	$this->iMax = $aMax;

	if( $aType <= DSUTILS_MONTH6 ) {
	$this->doMonthly($aType,$aMinor);
	}
	elseif( $aType <= DSUTILS_WEEK4 ) {
	$this->doWeekly($aType,$aMinor);
	}
	elseif( $aType <= DSUTILS_DAY4 ) {
	$this->doDaily($aType,$aMinor);
	}
	elseif( $aType <= DSUTILS_YEAR5 ) {
	$this->doYearly($aType,$aMinor);
	}
	else {
	JpGraphError::RaiseL(24003);
	}
	// put a label at the very left data pos
	if( $aEndPoints ) {
	$tickPositions[$i++] = $aData[0];
	}

	// put a label at the very right data pos
	if( $aEndPoints ) {
	$tickPositions[$i] = $aData[$n-1];
	}

	return array($this->tickPositions,$this->minTickPositions);
	}

	}

	//=============================================================================
	// Class ReadFileData
	//=============================================================================
	Class ReadFileData {

	//----------------------------------------------------------------------------
	// Desciption:
	// Read numeric data from a file.
	// Each value should be separated by either a new line or by a specified
	// separator character (default is ',').
	// Before returning the data each value is converted to a proper float
	// value. The routine is robust in the sense that non numeric data in the
	// file will be discarded.
	//
	// Returns:
	// The number of data values read on success, FALSE on failure
	//----------------------------------------------------------------------------
	function FromCSV($aFile,&$aData,$aSepChar=',',$aMaxLineLength=1024) {
	$rh = fopen($aFile,'r');
	if( $rh === false )
	return false;
	$tmp = array();
	$lineofdata = fgetcsv($rh, 1000, ',');
	while ( $lineofdata !== FALSE) {
	$tmp = array_merge($tmp,$lineofdata);
	$lineofdata = fgetcsv($rh, $aMaxLineLength, $aSepChar);
	}
	fclose($rh);

	// Now make sure that all data is numeric. By default
	// all data is read as strings
	$n = count($tmp);
	$aData = array();
	$cnt=0;
	for($i=0; $i < $n; ++$i) {
	if( $tmp[$i] !== "" ) {
	$aData[$cnt++] = floatval($tmp[$i]);
	}
	}
	return $cnt;
	}
	}

	?>