你如何围绕Perl中的浮点数？

时间：2008-10-07 13:52:28

标签： perl floating-point rounding

如何将十进制数（浮点数）舍入到最接近的整数？

e.g。

1.2 = 1
1.7 = 2

14 个答案:

答案 0 :(得分：191)

perldoc -q round

的输出
Perl有round（）函数吗？那么ceil（）和floor（）怎么样？ Trig功能？

请注意，int()只是截断0。对于舍入到一定数量的数字，sprintf()或printf()通常是最简单的 路线。 

    printf("%.3f", 3.1415926535);       # prints 3.142

POSIX模块（标准Perl发行版的一部分）实现 ceil()，floor()以及其他一些数学和三角函数 功能。 

    use POSIX;
    $ceil   = ceil(3.5);                        # 4
    $floor  = floor(3.5);                       # 3

在5.000到5.003 perls中，在Math::Complex中进行了三角测量 模块。使用5.004，Math::Trig模块（标准Perl的一部分 分布）实现三角函数。在内部 使用Math::Complex模块，一些功能可以突破 实轴进入复平面，例如2的反正弦。

金融应用程序中的舍入可能会产生严重影响，并且 应精确指定使用的舍入方法。在这些 在某些情况下，无论是哪种系统四舍五入都可能都不值得信任 由Perl使用，但改为实现您需要的舍入功能 你自己。

要了解原因，请注意你在中途点上仍有问题 交替： 

    for ($i = 0; $i < 1.01; $i += 0.05) { printf "%.1f ",$i}

    0.0 0.1 0.1 0.2 0.2 0.2 0.3 0.3 0.4 0.4 0.5 0.5 0.6 0.7 0.7
    0.8 0.8 0.9 0.9 1.0 1.0

不要怪Perl。它与C中的相同.IEEE表示我们必须这样做 这个。绝对值为2**31下的整数的Perl数字 32位机器）的工作方式与数学整数非常相似。 其他数字不保证。

答案 1 :(得分：127)

虽然不同意关于中途商标等的复杂答案，但对于更常见的（也可能是微不足道的）用例：

my $rounded = int($float + 0.5);

<强>更新

如果您的$float可能为否定，则以下变体会产生正确的结果：

my $rounded = int($float + $float/abs($float*2 || 1));

通过这个计算，-1.4被舍入为-1，-1.6到-2，零将不会爆炸。

答案 2 :(得分：71)

您可以使用Math::Round之类的模块：

use Math::Round;
my $rounded = round( $float );

或者你可以粗暴地做到这一点：

my $rounded = sprintf "%.0f", $float;

答案 3 :(得分：45)

如果您决定使用printf或sprintf，请注意他们使用Round half to even方法。

foreach my $i ( 0.5, 1.5, 2.5, 3.5 ) {
    printf "$i -> %.0f\n", $i;
}
__END__
0.5 -> 0
1.5 -> 2
2.5 -> 2
3.5 -> 4

答案 4 :(得分：8)

请参阅perldoc/perlfaq：

  

请记住，int()只是截断为0.对于四舍五入到   一定数量的数字，sprintf()或printf()通常是   最简单的路线。

 printf("%.3f",3.1415926535);
 # prints 3.142
     

POSIX模块（标准Perl发行版的一部分）   实现ceil()，floor()和其他一些数学   和三角函数。

use POSIX;
$ceil  = ceil(3.5); # 4
$floor = floor(3.5); # 3
     

在5.000到5.003 perls中，在Math::Complex模块中进行了三角测量。

     

使用5.004，Math::Trig模块（标准Perl发行版的一部分）＆gt;实现三角函数。

     

在内部，它使用Math::Complex模块，某些功能可能会中断   从实轴到复平面，例如2的反正弦。

     

金融应用程序的舍入可能会产生严重的影响，并且会进行四舍五入   应精确指定使用的方法。在这些情况下，它可能不付钱   相信Perl正在使用哪个系统舍入，而是实现   你自己需要的舍入功能。

     

要了解原因，请注意您在中途点轮换方面仍有问题：

for ($i = 0; $i < 1.01; $i += 0.05)
{
   printf "%.1f ",$i
}

0.0 0.1 0.1 0.2 0.2 0.2 0.3 0.3 0.4 0.4 0.5 0.5 0.6 0.7 0.7 0.8 0.8 0.9 0.9 1.0 1.0
     

不要怪Perl。它与C中的相同.IEEE表示我们必须这样做   这个。绝对值为2 ** 31（on   32位机器）的工作方式与数学整数非常相似。   其他数字不保证。

答案 5 :(得分：3)

您不需要任何外部模块。

$x[0] = 1.2;
$x[1] = 1.7;

foreach (@x){
  print $_.' = '.( ( ($_-int($_))<0.5) ? int($_) : int($_)+1 );
  print "\n";
}

我可能会忽略你的观点，但我认为这是做同样工作的更清洁的方式。

这样做是为了遍历元素中的每个正数，以您提到的格式打印数字和舍入整数。代码仅根据小数连接相应的舍入正整数。 int（$ _）基本上向下数字所以（$ -int（$ ））捕获小数。如果小数（按定义）严格小于0.5，则舍入数字。如果没有，请加1来进行综合。

答案 6 :(得分：1)

以下是五种不同的值汇总方法的示例。第一种是执行求和（和失败）的天真方式。第二次尝试使用sprintf()，但它也失败了。第三个成功使用sprintf()，而最后两个（第4和第5）使用floor($value + 0.5)。

 use strict;
 use warnings;
 use POSIX;

 my @values = (26.67,62.51,62.51,62.51,68.82,79.39,79.39);
 my $total1 = 0.00;
 my $total2 = 0;
 my $total3 = 0;
 my $total4 = 0.00;
 my $total5 = 0;
 my $value1;
 my $value2;
 my $value3;
 my $value4;
 my $value5;

 foreach $value1 (@values)
 {
      $value2 = $value1;
      $value3 = $value1;
      $value4 = $value1;
      $value5 = $value1;

      $total1 += $value1;

      $total2 += sprintf('%d', $value2 * 100);

      $value3 = sprintf('%1.2f', $value3);
      $value3 =~ s/\.//;
      $total3 += $value3;

      $total4 += $value4;

      $total5 += floor(($value5 * 100.0) + 0.5);
 }

 $total1 *= 100;
 $total4 = floor(($total4 * 100.0) + 0.5);

 print '$total1: '.sprintf('%011d', $total1)."\n";
 print '$total2: '.sprintf('%011d', $total2)."\n";
 print '$total3: '.sprintf('%011d', $total3)."\n";
 print '$total4: '.sprintf('%011d', $total4)."\n";
 print '$total5: '.sprintf('%011d', $total5)."\n";

 exit(0);

 #$total1: 00000044179
 #$total2: 00000044179
 #$total3: 00000044180
 #$total4: 00000044180
 #$total5: 00000044180

请注意floor($value + 0.5)可以替换为int($value + 0.5)，以消除对POSIX的依赖。

答案 7 :(得分：1)

否定数字可能会增加人们需要注意的一些怪癖。

printf - 样式方法为我们提供正确的数字，但它们可能导致一些奇怪的显示。我们发现这种方法（在我看来，愚蠢地）放入-符号，无论它是否应该。例如，-0.01舍入到一个小数位返回-0.0而不是0.如果要执行printf样式方法，并且您知道不需要小数，请使用%d和不是%f（当你需要小数时，就是当显示变得不稳定时）。

虽然这是正确的，但数学没什么大不了的，显示它看起来很奇怪，显示的东西像“-0.0”。

对于int方法，负数可以改变你想要的结果（尽管有一些参数可以使它们正确）。

int + 0.5会导致负数的实际问题，除非你希望它以这种方式工作，但我想大多数人都没有。 -0.9应该可以舍入到-1，而不是0.如果你知道你想要负数是一个上限而不是一个地板那么你可以在一个单行中执行它，否则，你可能想要使用int方法和一个小的修改（这显然只能回到整数：

my $var = -9.1;
my $tmpRounded = int( abs($var) + 0.5));
my $finalRounded = $var >= 0 ? 0 + $tmpRounded : 0 - $tmpRounded;

答案 8 :(得分：1)

以下内容将正数或负数舍入到给定的小数位：

sub round ()
{
    my ($x, $pow10) = @_;
    my $a = 10 ** $pow10;

    return (int($x / $a + (($x < 0) ? -0.5 : 0.5)) * $a);
}

答案 9 :(得分：0)

我的sprintf解决方案

if ($value =~ m/\d\..*5$/){
    $format =~ /.*(\d)f$/;
    if (defined $1){
       my $coef = "0." . "0" x $1 . "05";    
            $value = $value + $coef;    
    }
}

$value = sprintf( "$format", $value );

答案 10 :(得分：0)

如果您只关心从整个浮点数（即12347.9999或54321.0001）中获取整数值，这种方法（从上面借用和修改）将起到作用：

my $rounded = floor($float + 0.1);

答案 11 :(得分：0)

阅读了大量有关如何舍入数字的文档，许多专家建议编写自己的舍入例程，因为随语言提供的“罐头”版本可能不够精确或包含错误。我想象，但是，他们在谈论许多小数位，而不仅仅是一，二或三。考虑到这一点，这是我的解决方案（尽管并非完全按照我的要求来显示美元，但是过程并没有太大不同）。 

sub asDollars($) {
  my ($cost) = @_;
  my $rv = 0;

  my $negative = 0;
  if ($cost =~ /^-/) {
    $negative = 1;
    $cost =~ s/^-//;
  }

  my @cost = split(/\./, $cost);

  # let's get the first 3 digits of $cost[1]
  my ($digit1, $digit2, $digit3) = split("", $cost[1]);
  # now, is $digit3 >= 5?
  # if yes, plus one to $digit2.
  # is $digit2 > 9 now?
  # if yes, $digit2 = 0, $digit1++
  # is $digit1 > 9 now??
  # if yes, $digit1 = 0, $cost[0]++
  if ($digit3 >= 5) {
    $digit3 = 0;
    $digit2++;
    if ($digit2 > 9) {
      $digit2 = 0;
      $digit1++;
      if ($digit1 > 9) {
        $digit1 = 0;
        $cost[0]++;
      }
    }
  }
  $cost[1] = $digit1 . $digit2;
  if ($digit1 ne "0" and $cost[1] < 10) { $cost[1] .= "0"; }

  # and pretty up the left of decimal
  if ($cost[0] > 999) { $cost[0] = commafied($cost[0]); }

  $rv = join(".", @cost);

  if ($negative) { $rv = "-" . $rv; }

  return $rv;
}

sub commafied($) {
  #*
  # to insert commas before every 3rd number (from the right)
  # positive or negative numbers
  #*
  my ($num) = @_; # the number to insert commas into!

  my $negative = 0;
  if ($num =~ /^-/) {
    $negative = 1;
    $num =~ s/^-//;
  }
  $num =~ s/^(0)*//; # strip LEADING zeros from given number!
  $num =~ s/0/-/g; # convert zeros to dashes because ... computers!

  if ($num) {
    my @digits = reverse split("", $num);
    $num = "";

    for (my $i = 0; $i < @digits; $i += 3) {
      $num .= $digits[$i];
      if ($digits[$i+1]) { $num .= $digits[$i+1]; }
      if ($digits[$i+2]) { $num .= $digits[$i+2]; }
      if ($i < (@digits - 3)) { $num .= ","; }
      if ($i >= @digits) { last; }
    }

    #$num =~ s/,$//;
    $num = join("", reverse split("", $num));
    $num =~ s/-/0/g;
  }

  if ($negative) { $num = "-" . $num; }

  return $num; # a number with commas added
  #usage: my $prettyNum = commafied(1234567890);
}

答案 12 :(得分：0)

使用 Math::BigFloat 您可以执行以下操作：

use Math::BigFloat;

print Math::BigFloat->new(1.2)->bfround(1); ## 1
print Math::BigFloat->new(1.7)->bfround(1); ## 2

这可以包装在子程序中

use Math::BigFloat;

sub round {
  Math::BigFloat->new(shift)->bfround(1);
}

print round(1.2); ## 1
print round(1.7); ## 2

答案 13 :(得分：-2)

cat table |
  perl -ne '/\d+\s+(\d+)\s+(\S+)/ && print "".**int**(log($1)/log(2))."\t$2\n";'
相关问题
最新问题