web/public_php/admin/jpgraph/jpgraph_log.php

   1 <?php
   2 /*=======================================================================
   3 // File:        JPGRAPH_LOG.PHP
   4 // Description: Log scale plot extension for JpGraph
   5 // Created:     2001-01-08
   6 // Author:      Johan Persson (johanp@aditus.nu)
   7 // Ver:         $Id: jpgraph_log.php,v 1.1 2006/07/07 13:37:14 powles Exp $
   8 //
   9 // Copyright (c) Aditus Consulting. All rights reserved.
  10 //========================================================================
  11 */
  12
  13
  14 DEFINE('LOGLABELS_PLAIN',0);
  15 DEFINE('LOGLABELS_MAGNITUDE',1);
  16
  17 //===================================================
  18 // CLASS LogScale
  19 // Description: Logarithmic scale between world and screen
  20 //===================================================
  21 class LogScale extends LinearScale {
  22 //---------------
  23 // CONSTRUCTOR
  24
  25     // Log scale is specified using the log of min and max
  26     function __construct($min,$max,$type="y") {
  27                 parent::__construct($min,$max,$type);
  28         $this->ticks = new LogTicks();
  29         $this->name = 'log';
  30     }
  31
  32 //----------------
  33 // PUBLIC METHODS
  34
  35     // Translate between world and screen
  36     function Translate($a) {
  37         if( !is_numeric($a) ) {
  38             if( $a != '' && $a != '-' && $a != 'x' )
  39                 JpGraphError::RaiseL(11001);
  40 //('Your data contains non-numeric values.');
  41             return 1;
  42         }
  43         if( $a < 0 ) {
  44             JpGraphError::RaiseL(11002);
  45 //("Negative data values can not be used in a log scale.");
  46             exit(1);
  47         }
  48         if( $a==0 ) $a=1;
  49         $a=log10($a);
  50         return ceil($this->off + ($a*1.0 - $this->scale[0]) * $this->scale_factor);
  51     }
  52
  53     // Relative translate (don't include offset) usefull when we just want
  54     // to know the relative position (in pixels) on the axis
  55     function RelTranslate($a) {
  56         if( !is_numeric($a) ) {
  57             if( $a != '' && $a != '-' && $a != 'x' )
  58                 JpGraphError::RaiseL(11001);
  59 //('Your data contains non-numeric values.');
  60             return 1;
  61         }
  62         if( $a==0 ) $a=1;
  63         $a=log10($a);
  64         return round(($a*1.0 - $this->scale[0]) * $this->scale_factor);
  65     }
  66
  67     // Use bcpow() for increased precision
  68     function GetMinVal() {
  69         if( function_exists("bcpow") )
  70             return round(bcpow(10,$this->scale[0],15),14);
  71         else
  72             return round(pow(10,$this->scale[0]),14);
  73     }
  74
  75     function GetMaxVal() {
  76         if( function_exists("bcpow") )
  77             return round(bcpow(10,$this->scale[1],15),14);
  78         else
  79             return round(pow(10,$this->scale[1]),14);
  80     }
  81
  82     // Logarithmic autoscaling is much simplier since we just
  83     // set the min and max to logs of the min and max values.
  84     // Note that for log autoscale the "maxstep" the fourth argument
  85     // isn't used. This is just included to give the method the same
  86     // signature as the linear counterpart.
  87     function AutoScale(&$img,$min,$max,$dummy, $dummy2 = true) {
  88         if( $min==0 ) $min=1;
  89
  90         if( $max <= 0 ) {
  91             JpGraphError::RaiseL(11004);
  92 //('Scale error for logarithmic scale. You have a problem with your data values. The max value must be greater than 0. It is mathematically impossible to have 0 in a logarithmic scale.');
  93         }
  94         $smin = floor(log10($min));
  95         $smax = ceil(log10($max));
  96         $this->Update($img,$smin,$smax);
  97     }
  98 //---------------
  99 // PRIVATE METHODS
 100 } // Class
 101
 102 //===================================================
 103 // CLASS LogTicks
 104 // Description:
 105 //===================================================
 106 class LogTicks extends Ticks{
 107     var $label_logtype=LOGLABELS_MAGNITUDE;
 108 //---------------
 109 // CONSTRUCTOR
 110         function __construct() {
 111                 parent::__construct();
 112     }
 113 //---------------
 114 // PUBLIC METHODS
 115     function IsSpecified() {
 116         return true;
 117     }
 118
 119     function SetLabelLogType($aType) {
 120         $this->label_logtype = $aType;
 121     }
 122
 123     // For log scale it's meaningless to speak about a major step
 124     // We just return -1 to make the framework happy (specifically
 125     // StrokeLabels() )
 126     function GetMajor() {
 127         return -1;
 128     }
 129
 130     function SetTextLabelStart($aStart) {
 131         JpGraphError::RaiseL(11005);
 132 //('Specifying tick interval for a logarithmic scale is undefined. Remove any calls to SetTextLabelStart() or SetTextTickInterval() on the logarithmic scale.');
 133     }
 134
 135     function SetXLabelOffset($dummy) {
 136         // For log scales we dont care about XLabel offset
 137     }
 138
 139     // Draw ticks on image "img" using scale "scale". The axis absolute
 140     // position in the image is specified in pos, i.e. for an x-axis
 141     // it specifies the absolute y-coord and for Y-ticks it specified the
 142     // absolute x-position.
 143     function Stroke(&$img,&$scale,$pos) {
 144         $start = $scale->GetMinVal();
 145         $limit = $scale->GetMaxVal();
 146         $nextMajor = 10*$start;
 147         $step = $nextMajor / 10.0;
 148
 149
 150         $img->SetLineWeight($this->weight);
 151
 152         if( $scale->type == "y" ) {
 153             // member direction specified if the ticks should be on
 154             // left or right side.
 155             $a=$pos + $this->direction*$this->GetMinTickAbsSize();
 156             $a2=$pos + $this->direction*$this->GetMajTickAbsSize();
 157
 158             $count=1;
 159             $this->maj_ticks_pos[0]=$scale->Translate($start);
 160             $this->maj_ticklabels_pos[0]=$scale->Translate($start);
 161             if( $this->supress_first )
 162                 $this->maj_ticks_label[0]="";
 163             else {
 164                 if( $this->label_formfunc != '' ) {
 165                     $f = $this->label_formfunc;
 166                     $this->maj_ticks_label[0]=call_user_func($f,$start);
 167                 }
 168                 elseif( $this->label_logtype == LOGLABELS_PLAIN )
 169                     $this->maj_ticks_label[0]=$start;
 170                 else
 171                     $this->maj_ticks_label[0]='10^'.round(log10($start));
 172             }
 173             $i=1;
 174             for($y=$start; $y<=$limit; $y+=$step,++$count  ) {
 175                 $ys=$scale->Translate($y);
 176                 $this->ticks_pos[]=$ys;
 177                 $this->ticklabels_pos[]=$ys;
 178                 if( $count % 10 == 0 ) {
 179                     if( !$this->supress_tickmarks ) {
 180                         if( $this->majcolor!="" ) {
 181                             $img->PushColor($this->majcolor);
 182                             $img->Line($pos,$ys,$a2,$ys);
 183                             $img->PopColor();
 184                         }
 185                         else
 186                             $img->Line($pos,$ys,$a2,$ys);
 187                     }
 188
 189                     $this->maj_ticks_pos[$i]=$ys;
 190                     $this->maj_ticklabels_pos[$i]=$ys;
 191
 192                     if( $this->label_formfunc != '' ) {
 193                         $f = $this->label_formfunc;
 194                         $this->maj_ticks_label[$i]=call_user_func($f,$nextMajor);
 195                     }
 196                     elseif( $this->label_logtype == 0 )
 197                         $this->maj_ticks_label[$i]=$nextMajor;
 198                     else
 199                         $this->maj_ticks_label[$i]='10^'.round(log10($nextMajor));
 200                     ++$i;
 201                     $nextMajor *= 10;
 202                     $step *= 10;
 203                     $count=1;
 204                 }
 205                 else {
 206                     if( !$this->supress_tickmarks && !$this->supress_minor_tickmarks) {
 207                         if( $this->mincolor!="" ) $img->PushColor($this->mincolor);
 208                         $img->Line($pos,$ys,$a,$ys);
 209                         if( $this->mincolor!="" ) $img->PopColor();
 210                     }
 211                 }
 212             }
 213         }
 214         else {
 215             $a=$pos - $this->direction*$this->GetMinTickAbsSize();
 216             $a2=$pos - $this->direction*$this->GetMajTickAbsSize();
 217             $count=1;
 218             $this->maj_ticks_pos[0]=$scale->Translate($start);
 219             $this->maj_ticklabels_pos[0]=$scale->Translate($start);
 220             if( $this->supress_first )
 221                 $this->maj_ticks_label[0]="";
 222             else {
 223                 if( $this->label_formfunc != '' ) {
 224                     $f = $this->label_formfunc;
 225                     $this->maj_ticks_label[0]=call_user_func($f,$start);
 226                 }
 227                 elseif( $this->label_logtype == 0 )
 228                     $this->maj_ticks_label[0]=$start;
 229                 else
 230                     $this->maj_ticks_label[0]='10^'.round(log10($start));
 231             }
 232             $i=1;
 233             for($x=$start; $x<=$limit; $x+=$step,++$count  ) {
 234                 $xs=$scale->Translate($x);
 235                 $this->ticks_pos[]=$xs;
 236                 $this->ticklabels_pos[]=$xs;
 237                 if( $count % 10 == 0 ) {
 238                     if( !$this->supress_tickmarks ) {
 239                         $img->Line($xs,$pos,$xs,$a2);
 240                     }
 241                     $this->maj_ticks_pos[$i]=$xs;
 242                     $this->maj_ticklabels_pos[$i]=$xs;
 243
 244                     if( $this->label_formfunc != '' ) {
 245                         $f = $this->label_formfunc;
 246                         $this->maj_ticks_label[$i]=call_user_func($f,$nextMajor);
 247                     }
 248                     elseif( $this->label_logtype == 0 )
 249                         $this->maj_ticks_label[$i]=$nextMajor;
 250                     else
 251                         $this->maj_ticks_label[$i]='10^'.round(log10($nextMajor));
 252                     ++$i;
 253                     $nextMajor *= 10;
 254                     $step *= 10;
 255                     $count=1;
 256                 }
 257                 else {
 258                     if( !$this->supress_tickmarks && !$this->supress_minor_tickmarks) {
 259                         $img->Line($xs,$pos,$xs,$a);
 260                     }
 261                 }
 262             }
 263         }
 264         return true;
 265     }
 266 } // Class
 267 /* EOF */
 268 ?>