mirror of
https://port.numenaute.org/aleajactaest/khanat-code-old.git
synced 2024-11-29 23:25:59 +00:00
492 lines
16 KiB
PHP
492 lines
16 KiB
PHP
<?php
|
|
/*=======================================================================
|
|
// File: JPGRAPH_DATE.PHP
|
|
// Description: Classes to handle Date scaling
|
|
// Created: 2005-05-02
|
|
// Author: Johan Persson (johanp@aditus.nu)
|
|
// Ver: $Id: jpgraph_date.php,v 1.1 2006/07/07 13:37:14 powles Exp $
|
|
//
|
|
// Copyright (c) Aditus Consulting. All rights reserved.
|
|
//========================================================================
|
|
*/
|
|
|
|
DEFINE('HOURADJ_1',0+30);
|
|
DEFINE('HOURADJ_2',1+30);
|
|
DEFINE('HOURADJ_3',2+30);
|
|
DEFINE('HOURADJ_4',3+30);
|
|
DEFINE('HOURADJ_6',4+30);
|
|
DEFINE('HOURADJ_12',5+30);
|
|
|
|
DEFINE('MINADJ_1',0+20);
|
|
DEFINE('MINADJ_5',1+20);
|
|
DEFINE('MINADJ_10',2+20);
|
|
DEFINE('MINADJ_15',3+20);
|
|
DEFINE('MINADJ_30',4+20);
|
|
|
|
DEFINE('SECADJ_1',0);
|
|
DEFINE('SECADJ_5',1);
|
|
DEFINE('SECADJ_10',2);
|
|
DEFINE('SECADJ_15',3);
|
|
DEFINE('SECADJ_30',4);
|
|
|
|
|
|
DEFINE('YEARADJ_1',0+30);
|
|
DEFINE('YEARADJ_2',1+30);
|
|
DEFINE('YEARADJ_5',2+30);
|
|
|
|
DEFINE('MONTHADJ_1',0+20);
|
|
DEFINE('MONTHADJ_6',1+20);
|
|
|
|
DEFINE('DAYADJ_1',0);
|
|
DEFINE('DAYADJ_WEEK',1);
|
|
DEFINE('DAYADJ_7',1);
|
|
|
|
DEFINE('SECPERYEAR',31536000);
|
|
DEFINE('SECPERDAY',86400);
|
|
DEFINE('SECPERHOUR',3600);
|
|
DEFINE('SECPERMIN',60);
|
|
|
|
|
|
class DateScale extends LinearScale {
|
|
var $date_format = '';
|
|
var $iStartAlign = false, $iEndAlign = false;
|
|
var $iStartTimeAlign = false, $iEndTimeAlign = false;
|
|
|
|
//---------------
|
|
// CONSTRUCTOR
|
|
function DateScale($aMin=0,$aMax=0,$aType='x') {
|
|
assert($aType=="x");
|
|
assert($aMin<=$aMax);
|
|
|
|
$this->type=$aType;
|
|
$this->scale=array($aMin,$aMax);
|
|
$this->world_size=$aMax-$aMin;
|
|
$this->ticks = new LinearTicks();
|
|
$this->intscale=true;
|
|
}
|
|
|
|
|
|
//------------------------------------------------------------------------------------------
|
|
// Utility Function AdjDate()
|
|
// Description: Will round a given time stamp to an even year, month or day
|
|
// argument.
|
|
//------------------------------------------------------------------------------------------
|
|
|
|
function AdjDate($aTime,$aRound=0,$aYearType=false,$aMonthType=false,$aDayType=false) {
|
|
$y = (int)date('Y',$aTime); $m = (int)date('m',$aTime); $d = (int)date('d',$aTime);
|
|
$h=0;$i=0;$s=0;
|
|
if( $aYearType !== false ) {
|
|
$yearAdj = array(0=>1, 1=>2, 2=>5);
|
|
if( $aRound == 0 ) {
|
|
$y = floor($y/$yearAdj[$aYearType])*$yearAdj[$aYearType];
|
|
}
|
|
else {
|
|
++$y;
|
|
$y = ceil($y/$yearAdj[$aYearType])*$yearAdj[$aYearType];
|
|
}
|
|
$m=1;$d=1;
|
|
}
|
|
elseif( $aMonthType !== false ) {
|
|
$monthAdj = array(0=>1, 1=>6);
|
|
if( $aRound == 0 ) {
|
|
$m = floor($m/$monthAdj[$aMonthType])*$monthAdj[$aMonthType];
|
|
$d=1;
|
|
}
|
|
else {
|
|
++$m;
|
|
$m = ceil($m/$monthAdj[$aMonthType])*$monthAdj[$aMonthType];
|
|
$d=1;
|
|
}
|
|
}
|
|
elseif( $aDayType !== false ) {
|
|
if( $aDayType == 0 ) {
|
|
if( $aRound == 1 ) {
|
|
//++$d;
|
|
$h=23;$i=59;$s=59;
|
|
}
|
|
}
|
|
else {
|
|
// Adjust to an even week boundary.
|
|
$w = (int)date('w',$aTime); // Day of week 0=Sun, 6=Sat
|
|
if( true ) { // Adjust to start on Mon
|
|
if( $w==0 ) $w=6;
|
|
else --$w;
|
|
}
|
|
if( $aRound == 0 ) {
|
|
$d -= $w;
|
|
}
|
|
else {
|
|
$d += (7-$w);
|
|
$h=23;$i=59;$s=59;
|
|
}
|
|
}
|
|
}
|
|
return mktime($h,$i,$s,$m,$d,$y);
|
|
|
|
}
|
|
|
|
//------------------------------------------------------------------------------------------
|
|
// Wrapper for AdjDate that will round a timestamp to an even date rounding
|
|
// it downwards.
|
|
//------------------------------------------------------------------------------------------
|
|
function AdjStartDate($aTime,$aYearType=false,$aMonthType=false,$aDayType=false) {
|
|
return $this->AdjDate($aTime,0,$aYearType,$aMonthType,$aDayType);
|
|
}
|
|
|
|
//------------------------------------------------------------------------------------------
|
|
// Wrapper for AdjDate that will round a timestamp to an even date rounding
|
|
// it upwards
|
|
//------------------------------------------------------------------------------------------
|
|
function AdjEndDate($aTime,$aYearType=false,$aMonthType=false,$aDayType=false) {
|
|
return $this->AdjDate($aTime,1,$aYearType,$aMonthType,$aDayType);
|
|
}
|
|
|
|
//------------------------------------------------------------------------------------------
|
|
// Utility Function AdjTime()
|
|
// Description: Will round a given time stamp to an even time according to
|
|
// argument.
|
|
//------------------------------------------------------------------------------------------
|
|
|
|
function AdjTime($aTime,$aRound=0,$aHourType=false,$aMinType=false,$aSecType=false) {
|
|
$y = (int)date('Y',$aTime); $m = (int)date('m',$aTime); $d = (int)date('d',$aTime);
|
|
$h = (int)date('H',$aTime); $i = (int)date('i',$aTime); $s = (int)date('s',$aTime);
|
|
if( $aHourType !== false ) {
|
|
$aHourType %= 6;
|
|
$hourAdj = array(0=>1, 1=>2, 2=>3, 3=>4, 4=>6, 5=>12);
|
|
if( $aRound == 0 )
|
|
$h = floor($h/$hourAdj[$aHourType])*$hourAdj[$aHourType];
|
|
else {
|
|
if( ($h % $hourAdj[$aHourType]==0) && ($i > 0 || $s > 0) ) {
|
|
$h++;
|
|
}
|
|
$h = ceil($h/$hourAdj[$aHourType])*$hourAdj[$aHourType];
|
|
if( $h >= 24 ) {
|
|
$aTime += 86400;
|
|
$y = (int)date('Y',$aTime); $m = (int)date('m',$aTime); $d = (int)date('d',$aTime);
|
|
$h -= 24;
|
|
}
|
|
}
|
|
$i=0;$s=0;
|
|
}
|
|
elseif( $aMinType !== false ) {
|
|
$aMinType %= 5;
|
|
$minAdj = array(0=>1, 1=>5, 2=>10, 3=>15, 4=>30);
|
|
if( $aRound == 0 ) {
|
|
$i = floor($i/$minAdj[$aMinType])*$minAdj[$aMinType];
|
|
}
|
|
else {
|
|
if( ($i % $minAdj[$aMinType]==0) && $s > 0 ) {
|
|
$i++;
|
|
}
|
|
$i = ceil($i/$minAdj[$aMinType])*$minAdj[$aMinType];
|
|
if( $i >= 60) {
|
|
$aTime += 3600;
|
|
$y = (int)date('Y',$aTime); $m = (int)date('m',$aTime); $d = (int)date('d',$aTime);
|
|
$h = (int)date('H',$aTime); $i = 0;
|
|
}
|
|
}
|
|
$s=0;
|
|
}
|
|
elseif( $aSecType !== false ) {
|
|
$aSecType %= 5;
|
|
$secAdj = array(0=>1, 1=>5, 2=>10, 3=>15, 4=>30);
|
|
if( $aRound == 0 ) {
|
|
$s = floor($s/$secAdj[$aSecType])*$secAdj[$aSecType];
|
|
}
|
|
else {
|
|
$s = ceil($s/$secAdj[$aSecType]*1.0)*$secAdj[$aSecType];
|
|
if( $s >= 60) {
|
|
$s=0;
|
|
$aTime += 60;
|
|
$y = (int)date('Y',$aTime); $m = (int)date('m',$aTime); $d = (int)date('d',$aTime);
|
|
$h = (int)date('H',$aTime); $i = (int)date('i',$aTime);
|
|
}
|
|
}
|
|
}
|
|
return mktime($h,$i,$s,$m,$d,$y);
|
|
}
|
|
|
|
//------------------------------------------------------------------------------------------
|
|
// Wrapper for AdjTime that will round a timestamp to an even time rounding
|
|
// it downwards.
|
|
// Example: AdjStartTime(mktime(18,27,13,2,22,2005),false,2) => 18:20
|
|
//------------------------------------------------------------------------------------------
|
|
function AdjStartTime($aTime,$aHourType=false,$aMinType=false,$aSecType=false) {
|
|
return $this->AdjTime($aTime,0,$aHourType,$aMinType,$aSecType);
|
|
}
|
|
|
|
//------------------------------------------------------------------------------------------
|
|
// Wrapper for AdjTime that will round a timestamp to an even time rounding
|
|
// it upwards
|
|
// Example: AdjEndTime(mktime(18,27,13,2,22,2005),false,2) => 18:30
|
|
//------------------------------------------------------------------------------------------
|
|
function AdjEndTime($aTime,$aHourType=false,$aMinType=false,$aSecType=false) {
|
|
return $this->AdjTime($aTime,1,$aHourType,$aMinType,$aSecType);
|
|
}
|
|
|
|
//------------------------------------------------------------------------------------------
|
|
// DateAutoScale
|
|
// Autoscale a date axis given start and end time
|
|
// Returns an array ($start,$end,$major,$minor,$format)
|
|
//------------------------------------------------------------------------------------------
|
|
function DoDateAutoScale($aStartTime,$aEndTime,$aDensity=0,$aAdjust=true) {
|
|
// Format of array
|
|
// array ( Decision point, array( array( Major-scale-step-array ),
|
|
// array( Minor-scale-step-array ),
|
|
// array( 0=date-adjust, 1=time-adjust, adjustment-alignment) )
|
|
//
|
|
$scalePoints =
|
|
array(
|
|
/* Intervall larger than 10 years */
|
|
SECPERYEAR*10,array(array(SECPERYEAR*5,SECPERYEAR*2),
|
|
array(SECPERYEAR),
|
|
array(0,YEARADJ_1, 0,YEARADJ_1) ),
|
|
|
|
/* Intervall larger than 2 years */
|
|
SECPERYEAR*2,array(array(SECPERYEAR),array(SECPERYEAR),
|
|
array(0,YEARADJ_1) ),
|
|
|
|
/* Intervall larger than 90 days (approx 3 month) */
|
|
SECPERDAY*90,array(array(SECPERDAY*30,SECPERDAY*14,SECPERDAY*7,SECPERDAY),
|
|
array(SECPERDAY*5,SECPERDAY*7,SECPERDAY,SECPERDAY),
|
|
array(0,MONTHADJ_1, 0,DAYADJ_WEEK, 0,DAYADJ_1, 0,DAYADJ_1)),
|
|
|
|
/* Intervall larger than 30 days (approx 1 month) */
|
|
SECPERDAY*30,array(array(SECPERDAY*14,SECPERDAY*7,SECPERDAY*2, SECPERDAY),
|
|
array(SECPERDAY,SECPERDAY.SECPERDAY,SECPERDAY),
|
|
array(0,DAYADJ_WEEK, 0,DAYADJ_1, 0,DAYADJ_1, 0,DAYADJ_1)),
|
|
|
|
/* Intervall larger than 7 days */
|
|
SECPERDAY*7,array(array(SECPERDAY,SECPERHOUR*12,SECPERHOUR*6,SECPERHOUR*2),
|
|
array(SECPERHOUR*6,SECPERHOUR*3,SECPERHOUR,SECPERHOUR),
|
|
array(0,DAYADJ_1, 1,HOURADJ_12, 1,HOURADJ_6, 1,HOURADJ_1)),
|
|
|
|
/* Intervall larger than 1 day */
|
|
SECPERDAY,array(array(SECPERDAY,SECPERHOUR*12,SECPERHOUR*6,SECPERHOUR*2,SECPERHOUR),
|
|
array(SECPERHOUR*6,SECPERHOUR*2,SECPERHOUR,SECPERHOUR,SECPERHOUR),
|
|
array(1,HOURADJ_12, 1,HOURADJ_6, 1,HOURADJ_1, 1,HOURADJ_1)),
|
|
|
|
/* Intervall larger than 12 hours */
|
|
SECPERHOUR*12,array(array(SECPERHOUR*2,SECPERHOUR,SECPERMIN*30,900,600),
|
|
array(1800,1800,900,300,300),
|
|
array(1,HOURADJ_1, 1,MINADJ_30, 1,MINADJ_15, 1,MINADJ_10, 1,MINADJ_5) ),
|
|
|
|
/* Intervall larger than 2 hours */
|
|
SECPERHOUR*2,array(array(SECPERHOUR,SECPERMIN*30,900,600,300),
|
|
array(1800,900,300,120,60),
|
|
array(1,HOURADJ_1, 1,MINADJ_30, 1,MINADJ_15, 1,MINADJ_10, 1,MINADJ_5) ),
|
|
|
|
/* Intervall larger than 1 hours */
|
|
SECPERHOUR,array(array(SECPERMIN*30,900,600,300),array(900,300,120,60),
|
|
array(1,MINADJ_30, 1,MINADJ_15, 1,MINADJ_10, 1,MINADJ_5) ),
|
|
|
|
/* Intervall larger than 30 min */
|
|
SECPERMIN*30,array(array(SECPERMIN*15,SECPERMIN*10,SECPERMIN*5,SECPERMIN),
|
|
array(300,300,60,10),
|
|
array(1,MINADJ_15, 1,MINADJ_10, 1,MINADJ_5, 1,MINADJ_1)),
|
|
|
|
/* Intervall larger than 1 min */
|
|
SECPERMIN,array(array(SECPERMIN,15,10,5),
|
|
array(15,5,2,1),
|
|
array(1,MINADJ_1, 1,SECADJ_15, 1,SECADJ_10, 1,SECADJ_5)),
|
|
|
|
/* Intervall larger than 10 sec */
|
|
10,array(array(5,2),
|
|
array(1,1),
|
|
array(1,SECADJ_5, 1,SECADJ_1)),
|
|
|
|
/* Intervall larger than 1 sec */
|
|
1,array(array(1),
|
|
array(1),
|
|
array(1,SECADJ_1)),
|
|
);
|
|
|
|
$ns = count($scalePoints);
|
|
// Establish major and minor scale units for the date scale
|
|
$diff = $aEndTime - $aStartTime;
|
|
if( $diff < 1 ) return false;
|
|
$done=false;
|
|
$i=0;
|
|
while( ! $done ) {
|
|
if( $diff > $scalePoints[2*$i] ) {
|
|
// Get major and minor scale for this intervall
|
|
$scaleSteps = $scalePoints[2*$i+1];
|
|
$major = $scaleSteps[0][min($aDensity,count($scaleSteps[0])-1)];
|
|
// Try to find out which minor step looks best
|
|
$minor = $scaleSteps[1][min($aDensity,count($scaleSteps[1])-1)];
|
|
if( $aAdjust ) {
|
|
// Find out how we should align the start and end timestamps
|
|
$idx = 2*min($aDensity,floor(count($scaleSteps[2])/2)-1);
|
|
if( $scaleSteps[2][$idx] === 0 ) {
|
|
// Use date adjustment
|
|
$adj = $scaleSteps[2][$idx+1];
|
|
if( $adj >= 30 ) {
|
|
$start = $this->AdjStartDate($aStartTime,$adj-30);
|
|
$end = $this->AdjEndDate($aEndTime,$adj-30);
|
|
}
|
|
elseif( $adj >= 20 ) {
|
|
$start = $this->AdjStartDate($aStartTime,false,$adj-20);
|
|
$end = $this->AdjEndDate($aEndTime,false,$adj-20);
|
|
}
|
|
else {
|
|
$start = $this->AdjStartDate($aStartTime,false,false,$adj);
|
|
$end = $this->AdjEndDate($aEndTime,false,false,$adj);
|
|
// We add 1 second for date adjustment to make sure we end on 00:00 the following day
|
|
// This makes the final major tick be srawn when we step day-by-day instead of ending
|
|
// on xx:59:59 which would not draw the final major tick
|
|
$end++;
|
|
}
|
|
}
|
|
else {
|
|
// Use time adjustment
|
|
$adj = $scaleSteps[2][$idx+1];
|
|
if( $adj >= 30 ) {
|
|
$start = $this->AdjStartTime($aStartTime,$adj-30);
|
|
$end = $this->AdjEndTime($aEndTime,$adj-30);
|
|
}
|
|
elseif( $adj >= 20 ) {
|
|
$start = $this->AdjStartTime($aStartTime,false,$adj-20);
|
|
$end = $this->AdjEndTime($aEndTime,false,$adj-20);
|
|
}
|
|
else {
|
|
$start = $this->AdjStartTime($aStartTime,false,false,$adj);
|
|
$end = $this->AdjEndTime($aEndTime,false,false,$adj);
|
|
}
|
|
}
|
|
}
|
|
// If the overall date span is larger than 1 day ten we show date
|
|
$format = '';
|
|
if( ($end-$start) > SECPERDAY ) {
|
|
$format = 'Y-m-d ';
|
|
}
|
|
// If the major step is less than 1 day we need to whow hours + min
|
|
if( $major < SECPERDAY ) {
|
|
$format .= 'H:i';
|
|
}
|
|
// If the major step is less than 1 min we need to show sec
|
|
if( $major < 60 ) {
|
|
$format .= ':s';
|
|
}
|
|
$done=true;
|
|
}
|
|
++$i;
|
|
}
|
|
return array($start,$end,$major,$minor,$format);
|
|
}
|
|
|
|
// Overrides the automatic determined date format. Must be a valid date() format string
|
|
function SetDateFormat($aFormat) {
|
|
$this->date_format = $aFormat;
|
|
}
|
|
|
|
function SetDateAlign($aStartAlign,$aEndAlign=false) {
|
|
if( $aEndAlign === false ) {
|
|
$aEndAlign=$aStartAlign;
|
|
}
|
|
$this->iStartAlign = $aStartAlign;
|
|
$this->iEndAlign = $aEndAlign;
|
|
}
|
|
|
|
function SetTimeAlign($aStartAlign,$aEndAlign=false) {
|
|
if( $aEndAlign === false ) {
|
|
$aEndAlign=$aStartAlign;
|
|
}
|
|
$this->iStartTimeAlign = $aStartAlign;
|
|
$this->iEndTimeAlign = $aEndAlign;
|
|
}
|
|
|
|
|
|
function AutoScale(&$img,$aStartTime,$aEndTime,$aNumSteps) {
|
|
if( $aStartTime == $aEndTime ) {
|
|
// Special case when we only have one data point.
|
|
// Create a small artifical intervall to do the autoscaling
|
|
$aStartTime -= 10;
|
|
$aEndTime += 10;
|
|
}
|
|
$done=false;
|
|
$i=0;
|
|
while( ! $done && $i < 5) {
|
|
list($adjstart,$adjend,$maj,$min,$format) = $this->DoDateAutoScale($aStartTime,$aEndTime,$i);
|
|
$n = floor(($adjend-$adjstart)/$maj);
|
|
if( $n * 1.7 > $aNumSteps ) {
|
|
$done=true;
|
|
}
|
|
$i++;
|
|
}
|
|
|
|
/*
|
|
if( 0 ) { // DEBUG
|
|
echo " Start =".date("Y-m-d H:i:s",$aStartTime)."<br>";
|
|
echo " End =".date("Y-m-d H:i:s",$aEndTime)."<br>";
|
|
echo "Adj Start =".date("Y-m-d H:i:s",$adjstart)."<br>";
|
|
echo "Adj End =".date("Y-m-d H:i:s",$adjend)."<p>";
|
|
echo "Major = $maj s, ".floor($maj/60)."min, ".floor($maj/3600)."h, ".floor($maj/86400)."day<br>";
|
|
echo "Min = $min s, ".floor($min/60)."min, ".floor($min/3600)."h, ".floor($min/86400)."day<br>";
|
|
echo "Format=$format<p>";
|
|
}
|
|
*/
|
|
|
|
if( $this->iStartTimeAlign !== false && $this->iStartAlign !== false ) {
|
|
JpGraphError::RaiseL(3001);
|
|
//('It is only possible to use either SetDateAlign() or SetTimeAlign() but not both');
|
|
}
|
|
|
|
if( $this->iStartTimeAlign !== false ) {
|
|
if( $this->iStartTimeAlign >= 30 ) {
|
|
$adjstart = $this->AdjStartTime($aStartTime,$this->iStartTimeAlign-30);
|
|
}
|
|
elseif( $this->iStartTimeAlign >= 20 ) {
|
|
$adjstart = $this->AdjStartTime($aStartTime,false,$this->iStartTimeAlign-20);
|
|
}
|
|
else {
|
|
$adjstart = $this->AdjStartTime($aStartTime,false,false,$this->iStartTimeAlign);
|
|
}
|
|
}
|
|
if( $this->iEndTimeAlign !== false ) {
|
|
if( $this->iEndTimeAlign >= 30 ) {
|
|
$adjend = $this->AdjEndTime($aEndTime,$this->iEndTimeAlign-30);
|
|
}
|
|
elseif( $this->iEndTimeAlign >= 20 ) {
|
|
$adjend = $this->AdjEndTime($aEndTime,false,$this->iEndTimeAlign-20);
|
|
}
|
|
else {
|
|
$adjend = $this->AdjEndTime($aEndTime,false,false,$this->iEndTimeAlign);
|
|
}
|
|
}
|
|
|
|
|
|
|
|
if( $this->iStartAlign !== false ) {
|
|
if( $this->iStartAlign >= 30 ) {
|
|
$adjstart = $this->AdjStartDate($aStartTime,$this->iStartAlign-30);
|
|
}
|
|
elseif( $this->iStartAlign >= 20 ) {
|
|
$adjstart = $this->AdjStartDate($aStartTime,false,$this->iStartAlign-20);
|
|
}
|
|
else {
|
|
$adjstart = $this->AdjStartDate($aStartTime,false,false,$this->iStartAlign);
|
|
}
|
|
}
|
|
if( $this->iEndAlign !== false ) {
|
|
if( $this->iEndAlign >= 30 ) {
|
|
$adjend = $this->AdjEndDate($aEndTime,$this->iEndAlign-30);
|
|
}
|
|
elseif( $this->iEndAlign >= 20 ) {
|
|
$adjend = $this->AdjEndDate($aEndTime,false,$this->iEndAlign-20);
|
|
}
|
|
else {
|
|
$adjend = $this->AdjEndDate($aEndTime,false,false,$this->iEndAlign);
|
|
}
|
|
}
|
|
$this->Update($img,$adjstart,$adjend);
|
|
if( ! $this->ticks->IsSpecified() )
|
|
$this->ticks->Set($maj,$min);
|
|
if( $this->date_format == '' )
|
|
$this->ticks->SetLabelDateFormat($format);
|
|
else
|
|
$this->ticks->SetLabelDateFormat($this->date_format);
|
|
}
|
|
}
|
|
|
|
|
|
?>
|