9

编写例程以在水平轴上显示数据(使用 PHP gd2,但这不是重点)。

轴从$minto开始并在 处$max显示一个菱形$result,这样的图像将大约 300px 宽和 30px 高,如下所示:

例子
(来源:testwolke.de

在上面的例子中,$min=0, $max=3, $result=0.6. 现在,我需要计算一个有意义的比例和标签,在上面的例子中,例如虚线在0 .25 .50 .75 1 1.25 ... up to 3,数字标签在0 1 2 3

如果$min=-200$max=600,虚线应该在-200 -150 -100 -50 0 50 100 ... up to 600,数字标签在-200 -100 0 100 ... up to 600

$min=.02$max=5.80虚线在.02 .5 1 1.5 2 2.5 ... 5.5 5.8,数字在.02 1 2 3 4 5 5.8

我尝试通过数组明确地告诉函数将虚线和数字放在哪里,但是,嘿,应该工作的是计算机,而不是我,对吧?!

那么,如何计算???

4

4 回答 4

7

算法(示例值$min=-186$max=+153限制):

  1. 取这两个限制$min$max如果你愿意,可以标记它们

  2. 计算 和 之间的$max$min$diff = $max - $min
    153 - (-186) = 339

  3. 计算差值的 10 次对数$base10 = log($diff,10) = 2,5302

  4. 四舍五入:$power = round($base10)= 2。
    这是你作为基本单位的第十次方

  5. 计算$step
    $base_unit = 10^$power= 100;
    $step = $base_unit / 2; (如果你想要每个 2 个刻度$base_unit)。

  6. 计算是否$min可以被 整除$step,如果不是,则取最接近的(向上取整)一个
    (如果$step = 50$loop_start = -150

  7. for ($i=$loop_start; $i<=$max; $i++=$step){ // $i's are your ticks

  8. 结尾

我在 Excel 中对其进行了测试,结果非常好,您可能想要增加它的功能,

例如(在第 5 点中)$step首先计算$diff,
说并以可被 整除的方式进行$step = $diff / 4舍入;$step$base_unit$step

这将避免出现 (101;201) 四个刻度之间的情况,并且在 0 和 999 之间$step=25有 39 步。$step=25

于 2013-02-26T13:34:34.210 回答
6

ACM 算法 463提供了三个简单的函数来生成良好的轴刻度,输出 xminp、xmaxp 和 dist 用于刻度上的最小值和最大值以及刻度上刻度线之间的距离,给定n包含数据点xmin和的间隔请求xmax

  1. Scale1()给出一个具有近似n间隔的线性标度,dist是 10 乘以 1、2 或 5 的整数幂.
  2. Scale2()给出具有精确n间隔的线性标度(xminp 和 xmaxp 之间的差距往往大于由 产生的差距Scale1()).
  3. Scale3()给出一个对数刻度。

1973 年的原始论文在这里在线,它提供了比上面链接的代码更多的解释。

该代码在 Fortran 中,但它只是一组算术计算,因此解释和转换为其他语言非常简单。我自己没有写过任何 PHP,但它看起来很像 C,所以你可能想从通过f2c运行代码开始,这应该会给你一些接近 PHP 中可运行的东西。

有更复杂的函数可以提供更漂亮的比例(例如 中的那些gnuplot),但Scale1()可能会用最少的代码为您完成这项工作。

(这个答案建立在我对上一个问题Graph axiscalibration in C++的回答之上)

(编辑——我找到了Scale1()我在 Perl 中所做的实现):

use strict;

sub scale1 ($$$) {
  # from TOMS 463
  # returns a suitable scale ($xMinp, $xMaxp, $dist), when called with 
  # the minimum and maximum x values, and an approximate number of intervals
  # to divide into. $dist is the size of each interval that results.
  # @vInt is an array of acceptable values for $dist.
  # @sqr is an array of geometric means of adjacent values of @vInt, which
  # is used as break points to determine which @vInt value to use.
  #
  my ($xMin, $xMax, $n) = @_;
  @vInt = {1, 2, 5, 10};
  @sqr = {1.414214, 3.162278, 7.071068 }
  if ($xMin > $xMax) {
    my ($tmp) = $xMin;
    $xMin = $xMax;
    $xMax = $tmp;
    }
  my ($del) = 0.0002;   # accounts for computer round-off
  my ($fn) = $n;
  # find approximate interval size $a
  my ($a) = ($xMax - $xMin) / $fn;
  my ($al) = log10($a);
  my ($nal) = int($al);
  if ($a < 1) {
    $nal = $nal - 1;
    }
  # $a is scaled into a variable named $b, between 1 and 10
  my ($b) = $a / 10^$nal;
  # the closest permissable value for $b is found)
  my ($i);
  for ($i = 0; $i < $_sqr; $i++) {
    if ($b < $sqr[$i]) last;
  }
  # the interval size is computed
  $dist = $vInt[$i] * 10^$nal;
  $fm1 = $xMin / $dist;
  $m1 = int($fm1);
  if ($fm1 < 0) $m1--;
  if (abs(($m1 + 1.0) - $fm1) < $del) $m1++;
  # the new minimum and maximum limits are found
  $xMinp = $dist * $m1;
  $fm2 = $xMax / $dist;
  $m2 = $fm2 + 1;
  if ($fm2 < -1) $m2--;
  if (abs ($fm2 + 1 - $m2) < $del) $m2--;
  $xMaxp = $dist * $m2;
  # adjust limits to account for round-off if necessary
  if ($xMinp > $xMin) $xMinp = $xMin;
  if ($xMaxp < $xMax) $xMaxp = $xMax;
  return ($xMinp, $xMaxp, $dist);
  }

sub scale1_Test {
  $par = (-3.1, 11.1, 5,
      5.2, 10.1, 5,
      -12000, -100, 9);
  print "xMin\txMax\tn\txMinp\txMaxp,dist\n";
  for ($i = 0; $i < $_par/3; $i++) {
    ($xMinp, $xMaxp, $dist) = scale1($par[3*$i+0], 
    $par[3*$i+1], $par[3*$i+2]);
    print "$par[3*$i+0]\t$par[3*$i+1]\t$par[3*$i+2]\t$xMinp\t$xMaxp,$dist\n";
    }
  }
于 2013-02-25T19:35:01.923 回答
3

我知道这不是您正在寻找的,但希望它能让您朝着正确的方向开始。

$min = -200;
$max = 600;
$difference = $max - $min;
$labels = 10;
$picture_width = 300;
/* Get units per label */
$difference_between = $difference / ($labels - 1);
$width_between = $picture_width / $labels;
/* Make the label array */
$label_arr = array();
$label_arr[] = array('label' => $min, 'x_pos' => 0);
/* Loop through the number of labels */
for($i = 1, $l = $labels; $i < $l; $i++) {
    $label = $min + ($difference_between * $i);
    $label_arr[] = array('label' => $label, 'x_pos' => $width_between * $i);
}
于 2013-02-19T17:55:59.920 回答
1

一个简单的例子是$increment = ($max-$min)/$scale您可以将比例调整为增量缩放的变量。既然你按它划分,它应该随着你的最大值和最小值的变化而成比例地变化。之后,您将拥有如下功能:

$end = false;
while($end==false){
    $breakpoint = $last_value + $increment; // that's your current breakpoint
    if($breakpoint > $max){
        $end = true;
    } 
}

至少这就是这个概念......如果你有问题,请告诉我。

于 2013-02-26T08:57:54.047 回答