Lines Matching refs:digits
62 # some digits of accuracy for blog(undef,10); which we use in blog() for speed
661 return $x->badd($self->bone(),@r); # digits after dot
696 return $x->badd($self->bone('-'),@r); # digits after dot
896 # a time hog if the input has many digits, since over and below will
897 # accumulate more and more digits, and the result will also have many
898 # digits, but in the end it is rounded to $scale digits anyway. So if we
902 # 0.1234500000001 and we round it to 5 digits it would become 0.12346, but
904 # for the end result? So we give $over and $below 4 more digits to be
947 # calculate nr of digits before dot
1057 $twos++; $x->bdiv($two,$scale+4); # keep all digits
1317 # calculate the result to $scale digits and then round it
1410 # if $y has digits after dot
1412 if ($y->{_es} eq '-') # has digits after dot
1415 $shifty = $MBI->_num($y->{_e}); # no more digits after dot
1421 if ($x->{_es} eq '-') # has digits after dot
1424 $shiftx = $MBI->_num($x->{_e}); # no more digits after dot
1640 # digits after the dot
1674 # Now calculate how many digits the result of sqrt(y1) would have
1675 my $digits = int($length / 2);
1677 # But we need at least $scale digits, so calculate how many are missing
1678 my $shift = $scale - $digits;
1683 # Multiply in steps of 100, by shifting left two times the "missing" digits
1686 # We now make sure that $y1 has the same odd or even number of digits than
1690 # of digits before the dot is not changed by adding an even number of digits
1691 # after the dot (the result is still odd or even digits long).
1711 # preserve half as many digits before the dot than the input had
1766 ($x->{_es} ne '+')); # digits after dot?
1974 my $dad = -(0+ ($x->{_es}.$MBI->_num($x->{_e}))); # digits after dot
2005 my $dbd = $len - $dad; $dbd = 0 if $dbd < 0; # digits before dot
2017 # digits before dot
2023 # maximum digits before dot
2028 # not enough digits before dot, so round to zero
2050 # accuracy: preserve $N digits, and overwrite the rest with 0's
2066 # want to round a number with A=5 to 5 digits afterwards again
2073 # 1: $scale == 0 => keep all digits
2075 # 3: if we should keep more digits than the mantissa has, do nothing
2101 # if $x has digits after dot
2104 $x->{_m} = $MBI->_rsft($x->{_m},$x->{_e},10); # cut off digits after dot
2120 # if $x has digits after dot
2123 $x->{_m} = $MBI->_rsft($x->{_m},$x->{_e},10); # cut off digits after dot
2540 $x->bround($N); # accuracy: preserve $N digits
2559 $x->length(); # number of digits (w/o sign and '.')
2560 ($l,$f) = $x->length(); # number of digits, and length of fraction
2608 numbers are allowed to have an underscore between any two digits.
2670 the requested number of digits.
2681 Math::BigFloat->div_scale($n); # set to $n digits
2683 The default value is 40 digits.
2690 Math::BigFloat->precision(5); # 5 digits max
2716 Preserves accuracy to $scale digits from the left (aka significant digits)
2718 significant digits count from the first non-zero after the '.'