Front page | perl.perl5.porters |
Postings from October 2003
[perl #24160] BUG REPORT: INTEGER MATH OCCURRING WHEN NOT EXPECTED
Thread Next
From:
perlbug-followup
Date:
October 8, 2003 20:32
Subject:
[perl #24160] BUG REPORT: INTEGER MATH OCCURRING WHEN NOT EXPECTED
Message ID:
rt-24160-65829.11.7957057429426@rt.perl.org
# New Ticket Created by wasquith@red1ast.cr.usgs.gov
# Please include the string: [perl #24160]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt2/Ticket/Display.html?id=24160 >
This is a bug report for perl from wasquith@red1ast.cr.usgs.gov,
generated with the help of perlbug 1.34 running under perl v5.8.1.
#!/usr/bin/perl -w
=head1 BUG REPORT -- INTEGER MATH OCCURRING WHEN NOT EXPECTED
I have stumbled onto strange float/integer/string behavior on Perl5.8.0 and
Perl5.8.1 that did not exist in prior Perls. I have read (see REFERENCES)
that Numbers are better behaved in Perl5.8.+ and math is no longer purely
floating point. I am certain that this change has a weakness.
=head2 CONTENTS OF REPORT
This text file discribes the "buggy" behavior--that I am convinced
represents something important in Perl itself. In seemingly unpredicatable
circumstances floats are suddently seen by Perl as integers--it is though the
function 'int()' is wrapped around a scalar variable, which should contain
a floating point number or possibly a string of a floating point number.
The sudden conversion to integers appears unpredicatable, and myself and many
others are at a total loss as to what Perl is trying to do. The behavior is
exhibited in at least four unrelated portions of code. I will discuss two
here. But first background is needed.
=head2 BACKGROUND
I am sole author of a large +47k line interactive Perl/Tk based data
graphing package called Tkg2. Tkg2 has about 1000 users and sees thousands of
executions per day across the U.S. Geological Survey Water Resources Division.
The software provides the paramount "corporate" package for our specialized
data base needs in collecting hydrologic information for the United States.
The behavior that is described here is absolutely restricted
to Perl5.8.+ We have years of perfect operation on Perl5.6 and prior Perls. The
behavior is evident on both Solaris and Linux. This bug report is originating from
my Linux development host. Tkg2 uses about 100 custom modules, dynamic loading
with SelfLoader, and CPAN modules of Tk, Date::Calc, Date::Manip, Storable,
File::Spec, Tk::JPEG, Tk::Pod, and a few others. I am able to provide you with
Tkg2 and can demonstrate the behavior. I need to state up front that I have not
yet reproduced behavior in smaller stand-alone scripts.
=head1 DEMONSTRATION OF BEHAVIOR
This section describes the behavior.
=head2 BEHAVIOR NUMBER 1
(I posted on this in comp.lang.perl.misc from home
Numbers not acting like numbers on 09/30/2003 08:57PM, although I have been
toying with behaviors and potential solutions ever since my upgrade to Perl5.8
in June 2003)
I have a log10 function. The function takes argument and returns log10 of the
argument. The function has years of operation with Tkg2. Upon migration to
Perl5.8.+ some values mysteriously begin testing as non-loggable (that is <= 0).
For example, I have seen 0.1 fail the ternary hook in the function. However,
not all passes of 0.1 into the function fail, but once failure does occur, the
value 0.1 is no longer loggable. It is though 0.1 suddenly becomes int(0.1) or
zero. I have tried other log10 functions in different scopes, without success.
In the program operation, the user can change the scalar containing the value
0.1 to another value say 0.3--things will work and then suddenly begin failing
again.
use constant logof10 => log(10);
sub log10 {
my $n = shift;
$n = "$n"; # THIS QUOTATION FIXES THE PROBLEM
# IMPORTANT HINT OF THINGS TO COME.
($n <= 0) ? undef : log($n)/logof10;
}
However, I can FIX the problem by wrapping the double-quotation marks around
the argument (as shown in the function). The function is not known to fail.
We are told by Perl docs not to wrap "" around strings unless we have good
reason--I fail to understand why I must in a function like this. Another way
to fix the problem is to pack/unpack.
$n = unpack("d",pack("d",$n));
See REFERENCES about wrapping quotation marks around values.
=head2 BEHAVIOR NUMBER 2
Tkg2 plots a log-log plot--a long stable feature. A sequence of
transformation algorithms exists that converts a real-world value to
log and then to page (screen) units for plotting purposes. The value
passed in has an offset subtracted from it before transformation takes place.
The focus here is on the subtraction (but failure of negated addition also is
seen).
I have provided source code snippet at tail of this file (commented on later).
Just to state upfront, I can get rid of BEHAVIOR NUMBER 2 by wrapping the
offset in double-quotes. Like BEHAVIOR NUMBER 1 and like I have to do in other
locations of my code. Careful use of double-quotes can fix the problem in
the four known locations in my code. My logic and algorithms are correct.
The more disturbing aspect of the behaviors is that things work and then suddenly
do not work. Perl appears to eventually become screwed up in runtime.
To move on, as the user interacts with the plot, changing nothing,
simple subtractionof two floats fails. I have included three diagnostic
output streams to show the oddities. The first two diagnostics report the
operations associated with the value 7.000 and an offset of 1.70.
**************************************************************************************
STREAM 1
The diagnostic stream for the first few redraws of the canvas for a specific
value on the Y-axis is shown here.
I need to perform this computation: 7.000 - 1.70 = 5.3
The computation is performed properly.
# OUTPUT DEMONSTRATING STRANGE BEHAVIOR OF NUMBERS IN PERL5.8.0 AND PERL5.8.1
# A value ($val) is passed into the subroutine
# An offset ($offset) is to be subtracted from the $val
# $offset is passed into the subroutine via an object $self
# $offset is extracted via 'my $offset = $self->{-y}->{-logoffset};'
(1) Binary of 1.70 is 100011000111010011101100
(2) Binary of "1.70" is 10001100011101001110110000001100
(3) Binary of $offset within the object ($self) is 100011000111010011101100
(4) OFFSET to Binary and Back: 1.7
(5) BEFORE SUBTRACTION OR NEGATED ADDITION
(6) $val = 7.000 $offset = 1.7 (both values appear ok)
(7) $val (no. and binary): 7.000 1110110001110100000011000000110000001100
(8) $offset (no. and binary): 1.7 100011000111010011101100
(9) printf (as floats): $val = 7.000000 $offset = 1.700000
(10) Setting $newval = $val
(11) Subtracting 1.7 from 7.000 via $val-=$offset
(12) Subtracting 1.7 from 7.000 via $yaval1-="$offset" (notice double quotes)
(13) Adding -1.000000000000000*$offset to $val to get $yaval2 (yet another value 2)
(14) Adding -1.000000000000001*$offset to $val to get $yaval3 (yet another value 3)
(15) AFTER SUBTRACTION OR NEGATED ADDITION
(16) printf (as floats): $val = 5.300000 $offset = 1.700000
(17) printf (as floats): $yaval1 = 5.300000
(18) printf (as floats): $yaval2 = 5.300000
(19) printf (as floats): $yaval3 = 5.300000
(20) $val - $offset = 5.3 Offset = 1.7
(21) $offset (no. and binary): 1.7 100011000111010011101100
(22) $val (no. and binary): 5.3 101011000111010011001100
(23) $yaval1 (no. and binary): 5.3 101011000111010011001100
(24) $yaval2 (no. and binary): 5.3 101011000111010011001100
(25) $yaval3 (no. and binary): 5.3 101011000111010011001100
# Note that all vals should be the same
COMMENTS ABOUT STREAM 1: Lines 22-25 all show the offsetted value of 5.3.
This is the correct value and everyone is happy. I have included binary
representations in attempts to understand Perl number -- string issues.
**************************************************************************************
**************************************************************************************
STREAM 2
After some double clicking on the Y axis hitting OK and then double clicking on
the X axis and hitting OK. The exact same values (value and offset) are passed
into the subroutine. (At least I am extremely convinced that nothing has changed
in terms of the values that computations are needed on.)
We are still performing this computation: 7.000 - 1.70 = 5.3
The computation does not work!
# OUTPUT DEMONSTRATING STRANGE BEHAVIOR OF NUMBERS IN PERL5.8.0 AND PERL5.8.1
# A value ($val) is passed into the subroutine
# An offset ($offset) is to be subtracted from the $val
# $offset is passed into the subroutine via an object $self
# $offset is extracted via 'my $offset = $self->{-y}->{-logoffset};'
(1) Binary of 1.70 is 100011000111010011101100
(2) Binary of "1.70" is 10001100011101001110110000001100
(3) Binary of $offset within the object ($self) is 100011000111010011101100
(4) OFFSET to Binary and Back: 1.7
(5) BEFORE SUBTRACTION OR NEGATED ADDITION
(6) $val = 7.000 $offset = 1.7 (both values appear ok)
(7) $val (no. and binary): 7.000 1110110001110100000011000000110000001100
(8) $offset (no. and binary): 1.7 100011000111010011101100
(9) printf (as floats): $val = 7.000000 $offset = 1.700000
(10) Setting $newval = $val
(11) Subtracting 1.7 from 7.000 via $val-=$offset
(12) Subtracting 1.7 from 7.000 via $yaval1-="$offset" (notice double quotes)
(13) Adding -1.000000000000000*$offset to $val to get $yaval2 (yet another value 2)
(14) Adding -1.000000000000001*$offset to $val to get $yaval3 (yet another value 3)
(15) AFTER SUBTRACTION OR NEGATED ADDITION
(16) printf (as floats): $val = 6.000000 $offset = 1.700000
(17) printf (as floats): $yaval1 = 5.300000
(18) printf (as floats): $yaval2 = 6.000000
(19) printf (as floats): $yaval3 = 5.300000
(20) $val - $offset = 6 Offset = 1.7
(21) $offset (no. and binary): 1.7 100011000111010011101100
(22) $val (no. and binary): 6 01101100
(23) $yaval1 (no. and binary): 5.3 101011000111010011001100
(24) $yaval2 (no. and binary): 6 01101100
(25) $yaval3 (no. and binary): 5.3 101011000111010011001100
# Note that all vals should be the same
COMMENTS ABOUT STREAM 2: Lines 22-25 show two different values!!!!
The value of 6 is just plain wrong and too far from 5.3 to blame on simple rounding
problems. It is as though $val = $val - int($offset)????????????????
Note the minor change in "unity" multiplier in lines 13 and 14, but very different
output. You will need to inspect the code at the bottom of this file for more context.
**************************************************************************************
STREAM 3
Unlike streams 1 and 2, which are captured for the value 7.000, I can capture these
errors. Note that hundreds of values are passed into the subroutine and the offset
is properly subtracted. However, in the thirteen values shown below, the offset
is converted to an integer, and an integer results from the substraction. This is
extremely alarming.
BACKGROUND: $val=$yaval1=3.000 and $offset=1.7
ERROR: $val-=$offset yields 2
HOWEVER: $yaval1-="$offset" yields 1.3 !!
BACKGROUND: $val=$yaval1=4.000 and $offset=1.7
ERROR: $val-=$offset yields 3
HOWEVER: $yaval1-="$offset" yields 2.3 !!
BACKGROUND: $val=$yaval1=5.000 and $offset=1.7
ERROR: $val-=$offset yields 4
HOWEVER: $yaval1-="$offset" yields 3.3 !!
BACKGROUND: $val=$yaval1=6.000 and $offset=1.7
ERROR: $val-=$offset yields 5
HOWEVER: $yaval1-="$offset" yields 4.3 !!
BACKGROUND: $val=$yaval1=7.000 and $offset=1.7
ERROR: $val-=$offset yields 6
HOWEVER: $yaval1-="$offset" yields 5.3 !!
BACKGROUND: $val=$yaval1=8.000 and $offset=1.7
ERROR: $val-=$offset yields 7
HOWEVER: $yaval1-="$offset" yields 6.3 !!
BACKGROUND: $val=$yaval1=9.000 and $offset=1.7
ERROR: $val-=$offset yields 8
HOWEVER: $yaval1-="$offset" yields 7.3 !!
BACKGROUND: $val=$yaval1=2 and $offset=1.7
ERROR: $val-=$offset yields 1
HOWEVER: $yaval1-="$offset" yields 0.3 !!
BACKGROUND: $val=$yaval1=2 and $offset=1.7
ERROR: $val-=$offset yields 1
HOWEVER: $yaval1-="$offset" yields 0.3 !!
BACKGROUND: $val=$yaval1=3 and $offset=1.7
ERROR: $val-=$offset yields 2
HOWEVER: $yaval1-="$offset" yields 1.3 !!
BACKGROUND: $val=$yaval1=4 and $offset=1.7
ERROR: $val-=$offset yields 3
HOWEVER: $yaval1-="$offset" yields 2.3 !!
BACKGROUND: $val=$yaval1=5 and $offset=1.7
ERROR: $val-=$offset yields 4
HOWEVER: $yaval1-="$offset" yields 3.3 !!
BACKGROUND: $val=$yaval1=6 and $offset=1.7
ERROR: $val-=$offset yields 5
HOWEVER: $yaval1-="$offset" yields 4.3 !!
COMMENTS ABOUT STREAM 3: Notice that the value "5" or "9.000" are either
integers or look a lot like integers. In these circumstances, the integer
of the offset is then subtracted from the value. I think this is a B<critical>
observation.
=head1 DESCRIPTION OF EXECUTABLE CODE PROVIDED IN REPORT
The code below should execute. The code will not exhibit the behavior as it
reads in the C<__DATA__> and performs the substraction. The contents of C<__DATA__>
are a pull from Tkg2 (my larger 2-D charting package). I placed a simple
C<print "$val\n"> in the subroutine to give you a feel for the values passed in.
You will see the ERRORS embedded in the output immediately following the value
that can not be properly substracted from. The ERRORS are deep in the C<__DATA__>.
Now an important thing to know is that there are some "integer"-like values
that are properly substracted from--this occurs because I have already wrapped
the value in double-quotes before the subroutine is called. Let me assure you
that I can remove these quotes and get all values that look like "1" or "1.000"
to fail the substraction operation. The contents of __DATA__ should clearly
show that a "bug" of sorts is not present?
=head1 CONCLUSIONS
I have tested, toyed, and tweaked code for months. Logically I have no bugs
of my own causing this problem. I have years of proper operation with Perl5.6.
I freely admit that historically I might be relying on Perl behavior that is
no changed for a very good reason and I need to change the code. Wrapping a few
double-quotations around values is not a large problem, and I can work around.
I certainly do not pretend to understand all of Perl, but in the two behaviors
discribed here--I believe I have provided sufficient evidence that something
is not working as it should.
I believe that Perl5.8.+ is overly zealous in its attempts to perform integer
math (see REFERENCES) for some reason with my program.
Because of the importance in this issue I am willing and able to continue
coorespondence concerning this behavior. I can also provide screen shots as
necessary.
THANKS,
William H. Asquith, Ph.D., P.G., wasquith@usgs.gov
Research Hydrologist
U.S. Geological Survey
Austin, Texas
=head1 REFERENCES
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
http://www.perldoc.com/perl5.8.0/pod/perldelta.html#Understanding-of-Numbers
Understanding of Numbers
In general a lot of fixing has happened in the area of Perl's
understanding of numbers, both integer and floating point. Since in many
systems the standard number parsing functions like strtoul() and atof()
seem to have bugs, Perl tries to work around their deficiencies. This
results hopefully in more accurate numbers.
Perl now tries internally to use integer values in numeric conversions
and basic arithmetics (+ - * /) if the arguments are integers, and tries
also to keep the results stored internally as integers. This change leads
to often slightly faster and always less lossy arithmetics. (Previously
Perl always preferred floating point numbers in its math.)
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
http://www.perldoc.com/perl5.8.0/pod/perlfaq4.html \
#What's-wrong-with-always-quoting--%24vars--
The problem is that those double-quotes force stringification-- coercing
numbers and references into strings--even when you don't want them to be
strings. Think of it this way: double-quote expansion is used to produce
new strings. If you already have a string, why do you need more?
If you get used to writing odd things like these:
print "$var"; # BAD
$new = "$old"; # BAD
somefunc("$var"); # BAD
You'll be in trouble. Those should (in 99.8% of the cases) be the simpler
and more direct:
print $var;
$new = $old;
somefunc($var);
Otherwise, besides slowing you down, you're going to break code when the
thing in the scalar is actually neither a string nor a number, but a
reference:
func(\@array);
sub func {
my $aref = shift;
my $oref = "$aref"; # WRONG
}
You can also get into subtle problems on those few operations in Perl
that actually do care about the difference between a string and a
number, such as the magical ++ autoincrement operator or the
syscall() function.'
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
=cut
use vars qw($YMAX $YMIN $EPS ); # FAKE CODE TO MAKE EXECUTABLE SCRIPT
$YMAX = 0.1; # FAKE CODE TO MAKE EXECUTABLE SCRIPT
$YMIN = 10; # FAKE CODE TO MAKE EXECUTABLE SCRIPT
$EPS = 1e-8; # FAKE CODE TO MAKE EXECUTABLE SCRIPT
my $self = {}; # FAKE CODE TO MAKE EXECUTABLE SCRIPT
$self->{-y}->{-logoffset} = 1.70; # FAKE CODE TO MAKE EXECUTABLE SCRIPT
my @vals = (7, 7.000, 8., 1.38434, 2., 23.453); # FAKE CODE TO MAKE EXECUTABLE SCRIPT
while(<DATA>) { # FAKE CODE TO MAKE EXECUTABLE SCRIPT
next if /ERROR/; # FAKE CODE TO MAKE EXECUTABLE SCRIPT
chomp; # FAKE CODE TO MAKE EXECUTABLE SCRIPT
my $returned = transReal2CanvasGLOBALS_Yonly($self,'log',0,$_);
# FAKE CODE TO MAKE EXECUTABLE SCRIPT
} # FAKE CODE TO MAKE EXECUTABLE SCRIPT
sub transReal2CanvasGLOBALS_Yonly { # NOT FAKE SUBROUTINE!!!!
my ($self, $type, $islab_or_pt, $val) = @_;
# my @call = caller(0);
# $self = XY Plot Object
# $type = use method for a log (log10), prob (normal probability), or linear axis
# $islab_or_point = 1 for yes, 0 for no, returns undef if point outside plot
# $val = the value in real world units to transform
# if the axis is logarithmic, then an offset will be applied
#my ($pkg, $filename, $line) = caller; # comment out to speed
return undef if(not defined $val or $val eq ""); # Willard's special fix
my $offset = $self->{-y}->{-logoffset}; # extract the value of the offset from the object
if($type =~ m/log/o ) { # some prehandling of the offset is required before depatch to transforms
if(ref($offset) eq 'ARRAY') { # the offset is an array ref of rules
# for variable offsets.
foreach my $rule (@$offset) {
my $dn = $rule->{-lower_threshold};
my $up = $rule->{-upper_threshold};
$val -= $rule->{-offset}, last if($val >= $dn and $val < $up);
}
}
else { # the offset is just a constant
#$offset = "$offset"; # IF THIS LINE IS UNCOMMENTED, BUGLESS BEHAVIOR ON PERL5.8.0 AND PERL5.8.1 IS SEEN
#my $special_extraction_for_perl_bug_folks = 0; # UNCOMMENT THIS THIS ALONG WITH PREVIOUS TO REVERT
# TO FULLY OPERATIONAL TKG2 FOR THE USERS
my $special_extraction_for_perl_bug_folks = ($val eq "7.000") ? 1 : 0;
if($special_extraction_for_perl_bug_folks) {
print "# OUTPUT DEMONSTRATING STRANGE BEHAVIOR OF NUMBERS IN PERL5.8.0 AND PERL5.8.1\n";
print "# A value (\$val) is passed into the subroutine\n";
print "# An offset (\$offset) is to be subtracted from the \$val\n";
print "# \$offset is passed into the subroutine via an object \$self\n";
print "# \$offset is extracted via 'my \$offset = \$self->{-y}->{-logoffset};'\n";
print "(1) Binary of 1.70 is ",unpack("b*",1.70),"\n";
print "(2) Binary of \"1.70\" is ",unpack("b*","1.70"),"\n";
print "(3) Binary of \$offset within the object (\$self) is ",unpack("b*",$offset),"\n";
print "(4) OFFSET to Binary and Back: ",pack("b32",unpack("b*",$offset)),"\n";
my $b_val = unpack("b*",$val);
my $b_offset = unpack("b*",$offset);
print "(5) BEFORE SUBTRACTION OR NEGATED ADDITION\n";
print "(6) \$val = $val \$offset = $offset (both values appear ok)\n";
print "(7) \$val (no. and binary): $val $b_val\n";
print "(8) \$offset (no. and binary): $offset $b_offset\n";
printf "(9) printf (as floats): \$val = %f \$offset = %f\n", $val, $offset;
print "(10) Setting \$newval = \$val\n";
print "(11) Subtracting $offset from $val via \$val-=\$offset\n";
print "(12) Subtracting $offset from $val via \$yaval1-=\"\$offset\" (notice double quotes)\n";
print "(13) Adding -1.000000000000000*\$offset to \$val to get \$yaval2 (yet another value 2)\n";
print "(14) Adding -1.000000000000001*\$offset to \$val to get \$yaval3 (yet another value 3)\n";
}
my $oldval = $val;
my $yaval1 = $val;
my $yaval2 = $val;
my $yaval3 = $val;
$val -= $offset; # The way that I think Perl should be written.
$yaval1 -= "$offset"; # THIS CREATES THE PROPER $VAL - $OFFSET VALUE EVERY TIME!!!!
$yaval2 += -1.000000000000000*$offset; # experiment
$yaval3 += -1.000000000000001*$offset; # experiment
if($val != $yaval1) {
print "BACKGROUND: \$val=\$yaval1=$val and \$offset=$offset ",
"ERROR: \$val-=\$offset yields $val HOWEVER: ",
"\$yaval1-=\"\$offset\" yields $yaval1 !!\n"
}
if($special_extraction_for_perl_bug_folks) {
print "(15) AFTER SUBTRACTION OR NEGATED ADDITION\n";
printf "(16) printf (as floats): \$val = %f \$offset = %f\n", $val, $offset;
printf "(17) printf (as floats): \$yaval1 = %f\n", $yaval1;
printf "(18) printf (as floats): \$yaval2 = %f\n", $yaval2;
printf "(19) printf (as floats): \$yaval3 = %f\n", $yaval3;
my $b_val = unpack("b*",$val);
my $b_offset = unpack("b*",$offset);
my $b_yaval1 = unpack("b*",$yaval1);
my $b_yaval2 = unpack("b*",$yaval2);
my $b_yaval3 = unpack("b*",$yaval3);
print "(20) \$val - \$offset = $val Offset = $offset\n";
print "(21) \$offset (no. and binary): $offset $b_offset\n";
print "(22) \$val (no. and binary): $val $b_val\n";
print "(23) \$yaval1 (no. and binary): $yaval1 $b_yaval1\n";
print "(24) \$yaval2 (no. and binary): $yaval2 $b_yaval2\n";
print "(25) \$yaval3 (no. and binary): $yaval3 $b_yaval3\n";
print "# Note that all vals should be the same\n";
print "------------------------------\n";
}
}
return undef if($val <= 0);
}
return undef if( ( $type eq 'prob' or $type eq 'grv' )
and
($val <= 0 or $val >= 1 ) );
# return undef if plotting labels and outside plot limits
return undef if($islab_or_pt and
( $val < ($YMIN - EPS) or $val > ($YMAX + EPS) ) );
# Following four transforms commented out for purposes of this bug report
#return Real2CanvY($val) if( $type eq 'linear' or $type eq 'time' );
#return Real2log2CanvY($val) if( $type =~ /log/o );
#return Real2prob2CanvY($val) if( $type eq 'prob' );
#return Real2grv2CanvY($val) if( $type eq 'grv' );
return undef;
}
__DATA__
0.1
15.4592773641948
2.500
2.510
2.520
2.530
2.540
2.550
2.560
2.570
2.580
2.590
2.600
2.610
2.620
2.630
2.640
2.650
2.660
2.670
2.680
2.690
2.700
2.710
2.720
2.730
2.740
2.750
2.760
2.770
2.780
2.790
2.800
2.810
2.820
2.830
2.840
2.850
2.860
2.870
2.880
2.890
2.900
2.910
2.920
2.930
2.940
2.950
2.960
2.970
2.980
2.990
3.000
3.010
3.020
3.030
3.040
3.050
3.060
3.070
3.080
3.090
3.100
3.110
3.120
3.130
3.140
3.150
3.160
3.170
3.180
3.190
3.200
3.210
3.220
3.230
3.240
3.250
3.260
3.270
3.280
3.290
3.300
3.310
3.320
3.330
3.340
3.350
3.360
3.370
3.380
3.390
3.400
3.410
3.420
3.430
3.440
3.450
3.460
3.470
3.480
3.490
3.500
3.510
3.520
3.530
3.540
3.550
3.560
3.570
3.580
3.590
3.600
3.610
3.620
3.630
3.640
3.650
3.660
3.670
3.680
3.690
3.700
3.710
3.720
3.730
3.740
3.750
3.760
3.770
3.780
3.790
3.800
3.810
3.820
3.830
3.840
3.850
3.860
3.870
3.880
3.890
3.900
3.910
3.920
3.930
3.940
3.950
3.960
3.970
3.980
3.990
4.000
4.010
4.020
4.030
4.040
4.050
4.060
4.070
4.080
4.090
4.100
4.110
4.120
4.130
4.140
4.150
4.160
4.170
4.180
4.190
4.200
4.210
4.220
4.230
4.240
4.250
4.260
4.270
4.280
4.290
4.300
4.310
4.320
4.330
4.340
4.350
4.360
4.370
4.380
4.390
4.400
4.410
4.420
4.430
4.440
4.450
4.460
4.470
4.480
4.490
4.500
4.510
4.520
4.530
4.540
4.550
4.560
4.570
4.580
4.590
4.600
4.610
4.620
4.630
4.640
4.650
4.660
4.670
4.680
4.690
4.700
4.710
4.720
4.730
4.740
4.750
4.760
4.770
4.780
4.790
4.800
4.810
4.820
4.830
4.840
4.850
4.860
4.870
4.880
4.890
4.900
4.910
4.920
4.930
4.940
4.950
4.960
4.970
4.980
4.990
5.000
5.010
5.020
5.030
5.040
5.050
5.060
5.070
5.080
5.090
5.100
5.110
5.120
5.130
5.140
5.150
5.160
5.170
5.180
5.190
5.200
5.210
5.220
5.230
5.240
5.250
5.260
5.270
5.280
5.290
5.300
5.310
5.320
5.330
5.340
5.350
5.360
5.370
5.380
5.390
5.400
5.410
5.420
5.430
5.440
5.450
5.460
5.470
5.480
5.490
5.500
5.510
5.520
5.530
5.540
5.550
5.560
5.570
5.580
5.590
5.600
5.610
5.620
5.630
5.640
5.650
5.660
5.670
5.680
5.690
5.700
5.710
5.720
5.730
5.740
5.750
5.760
5.770
5.780
5.790
5.800
5.810
5.820
5.830
5.840
5.850
5.860
5.870
5.880
5.890
5.900
5.910
5.920
5.930
5.940
5.950
5.960
5.970
5.980
5.990
6.000
6.010
6.020
6.030
6.040
6.050
6.060
6.070
6.080
6.090
6.100
6.110
6.120
6.130
6.140
6.150
6.160
6.170
6.180
6.190
6.200
6.210
6.220
6.230
6.240
6.250
6.260
6.270
6.280
6.290
6.300
6.310
6.320
6.330
6.340
6.350
6.360
6.370
6.380
6.390
6.400
6.410
6.420
6.430
6.440
6.450
6.460
6.470
6.480
6.490
6.500
6.510
6.520
6.530
6.540
6.550
6.560
6.570
6.580
6.590
6.600
6.610
6.620
6.630
6.640
6.650
6.660
6.670
6.680
6.690
6.700
6.710
6.720
6.730
6.740
6.750
6.760
6.770
6.780
6.790
6.800
6.810
6.820
6.830
6.840
6.850
6.860
6.870
6.880
6.890
6.900
6.910
6.920
6.930
6.940
6.950
6.960
6.970
6.980
6.990
7.000
7.010
7.020
7.030
7.040
7.050
7.060
7.070
7.080
7.090
7.100
7.110
7.120
7.130
7.140
7.150
7.160
7.170
7.180
7.190
7.200
7.210
7.220
7.230
7.240
7.250
7.260
7.270
7.280
7.290
7.300
7.310
7.320
7.330
7.340
7.350
7.360
7.370
7.380
7.390
7.400
7.410
7.420
7.430
7.440
7.450
7.460
7.470
7.480
7.490
7.500
7.510
7.520
7.530
7.540
7.550
7.560
7.570
7.580
7.590
7.600
7.610
7.620
7.630
7.640
7.650
7.660
7.670
7.680
7.690
7.700
7.710
7.720
7.730
7.740
7.750
7.760
7.770
7.780
7.790
7.800
7.810
7.820
7.830
7.840
7.850
7.860
7.870
7.880
7.890
7.900
7.910
7.920
7.930
7.940
7.950
7.960
7.970
7.980
7.990
8.000
8.010
8.020
8.030
8.040
8.050
8.060
8.070
8.080
8.090
8.100
8.110
8.120
8.130
8.140
8.150
8.160
8.170
8.180
8.190
8.200
8.210
8.220
8.230
8.240
8.250
8.260
8.270
8.280
8.290
8.300
8.310
8.320
8.330
8.340
8.350
8.360
8.370
8.380
8.390
8.400
8.410
8.420
8.430
8.440
8.450
8.460
8.470
8.480
8.490
8.500
8.510
8.520
8.530
8.540
8.550
8.560
8.570
8.580
8.590
8.600
8.610
8.620
8.630
8.640
8.650
8.660
8.670
8.680
8.690
8.700
8.710
8.720
8.730
8.740
8.750
8.760
8.770
8.780
8.790
8.800
8.810
8.820
8.830
8.840
8.850
8.860
8.870
8.880
8.890
8.900
8.910
8.920
8.930
8.940
8.950
8.960
8.970
8.980
8.990
9.000
9.010
9.020
9.030
9.040
9.050
9.060
9.070
9.080
9.090
9.100
9.110
9.120
9.130
9.140
9.150
9.160
9.170
9.180
9.190
9.200
9.210
9.220
9.230
9.240
9.250
9.260
9.270
9.280
9.290
9.300
9.310
9.320
9.330
9.340
9.350
9.360
9.370
9.380
9.390
9.400
9.410
9.420
9.430
9.440
9.450
9.460
9.470
9.480
9.490
9.500
9.510
9.520
9.530
9.540
9.550
9.560
9.570
9.580
9.590
9.600
1.8
1.9
2
2.1
2.2
2.3
2.4
2.5
2.6
2.7
3.7
4.7
5.7
6.7
7.7
8.7
9.7
10.7
11.7
17.1592773641948
1.8
1.9
2.1
2.3
2.5
2.7
3.7
5.7
7.7
9.7
11.7
1.8
1.81
1.82
1.83
1.84
1.85
1.86
1.87
1.88
1.89
1.9
1.91
1.92
1.93
1.94
1.95
1.96
1.97
1.98
1.99
2
2.01
2.02
2.03
2.04
2.05
2.06
2.07
2.08
2.09
2.1
2.11
2.12
2.13
2.14
2.15
2.16
2.17
2.18
2.19
2.2
2.22
2.24
2.26
2.28
2.3
2.32
2.34
2.36
2.38
2.4
2.42
2.44
2.46
2.48
2.5
2.52
2.54
2.56
2.58
2.6
2.62
2.64
2.66
2.68
2.7
2.8
2.9
3
3.1
3.2
3.3
3.4
3.5
3.6
3.7
3.8
3.9
4
4.1
4.2
4.3
4.4
4.5
4.6
4.7
4.8
4.9
5
5.1
5.2
5.3
5.4
5.5
5.6
5.7
5.8
5.9
6
6.1
6.2
6.3
6.4
6.5
6.6
6.7
6.9
7.1
7.3
7.5
7.7
7.9
8.1
8.3
8.5
8.7
8.9
9.1
9.3
9.5
9.7
9.9
10.1
10.3
10.5
10.7
10.9
11.1
11.3
11.5
11.7
12.7
13.7
14.7
15.7
16.7
2.500
2.510
2.520
2.530
2.540
2.550
2.560
2.570
2.580
2.590
2.600
2.610
2.620
2.630
2.640
2.650
2.660
2.670
2.680
2.690
2.700
2.710
2.720
2.730
2.740
2.750
2.760
2.770
2.780
2.790
2.800
2.810
2.820
2.830
2.840
2.850
2.860
2.870
2.880
2.890
2.900
2.910
2.920
2.930
2.940
2.950
2.960
2.970
2.980
2.990
3.000
3.010
3.020
3.030
3.040
3.050
3.060
3.070
3.080
3.090
3.100
3.110
3.120
3.130
3.140
3.150
3.160
3.170
3.180
3.190
3.200
3.210
3.220
3.230
3.240
3.250
3.260
3.270
3.280
3.290
3.300
3.310
3.320
3.330
3.340
3.350
3.360
3.370
3.380
3.390
3.400
3.410
3.420
3.430
3.440
3.450
3.460
3.470
3.480
3.490
3.500
3.510
3.520
3.530
3.540
3.550
3.560
3.570
3.580
3.590
3.600
3.610
3.620
3.630
3.640
3.650
3.660
3.670
3.680
3.690
3.700
3.710
3.720
3.730
3.740
3.750
3.760
3.770
3.780
3.790
3.800
3.810
3.820
3.830
3.840
3.850
3.860
3.870
3.880
3.890
3.900
3.910
3.920
3.930
3.940
3.950
3.960
3.970
3.980
3.990
4.000
4.010
4.020
4.030
4.040
4.050
4.060
4.070
4.080
4.090
4.100
4.110
4.120
4.130
4.140
4.150
4.160
4.170
4.180
4.190
4.200
4.210
4.220
4.230
4.240
4.250
4.260
4.270
4.280
4.290
4.300
4.310
4.320
4.330
4.340
4.350
4.360
4.370
4.380
4.390
4.400
4.410
4.420
4.430
4.440
4.450
4.460
4.470
4.480
4.490
4.500
4.510
4.520
4.530
4.540
4.550
4.560
4.570
4.580
4.590
4.600
4.610
4.620
4.630
4.640
4.650
4.660
4.670
4.680
4.690
4.700
4.710
4.720
4.730
4.740
4.750
4.760
4.770
4.780
4.790
4.800
4.810
4.820
4.830
4.840
4.850
4.860
4.870
4.880
4.890
4.900
4.910
4.920
4.930
4.940
4.950
4.960
4.970
4.980
4.990
5.000
5.010
5.020
5.030
5.040
5.050
5.060
5.070
5.080
5.090
5.100
5.110
5.120
5.130
5.140
5.150
5.160
5.170
5.180
5.190
5.200
5.210
5.220
5.230
5.240
5.250
5.260
5.270
5.280
5.290
5.300
5.310
5.320
5.330
5.340
5.350
5.360
5.370
5.380
5.390
5.400
5.410
5.420
5.430
5.440
5.450
5.460
5.470
5.480
5.490
5.500
5.510
5.520
5.530
5.540
5.550
5.560
5.570
5.580
5.590
5.600
5.610
5.620
5.630
5.640
5.650
5.660
5.670
5.680
5.690
5.700
5.710
5.720
5.730
5.740
5.750
5.760
5.770
5.780
5.790
5.800
5.810
5.820
5.830
5.840
5.850
5.860
5.870
5.880
5.890
5.900
5.910
5.920
5.930
5.940
5.950
5.960
5.970
5.980
5.990
6.000
6.010
6.020
6.030
6.040
6.050
6.060
6.070
6.080
6.090
6.100
6.110
6.120
6.130
6.140
6.150
6.160
6.170
6.180
6.190
6.200
6.210
6.220
6.230
6.240
6.250
6.260
6.270
6.280
6.290
6.300
6.310
6.320
6.330
6.340
6.350
6.360
6.370
6.380
6.390
6.400
6.410
6.420
6.430
6.440
6.450
6.460
6.470
6.480
6.490
6.500
6.510
6.520
6.530
6.540
6.550
6.560
6.570
6.580
6.590
6.600
6.610
6.620
6.630
6.640
6.650
6.660
6.670
6.680
6.690
6.700
6.710
6.720
6.730
6.740
6.750
6.760
6.770
6.780
6.790
6.800
6.810
6.820
6.830
6.840
6.850
6.860
6.870
6.880
6.890
6.900
6.910
6.920
6.930
6.940
6.950
6.960
6.970
6.980
6.990
7.000
7.010
7.020
7.030
7.040
7.050
7.060
7.070
7.080
7.090
7.100
7.110
7.120
7.130
7.140
7.150
7.160
7.170
7.180
7.190
7.200
7.210
7.220
7.230
7.240
7.250
7.260
7.270
7.280
7.290
7.300
7.310
7.320
7.330
7.340
7.350
7.360
7.370
7.380
7.390
7.400
7.410
7.420
7.430
7.440
7.450
7.460
7.470
7.480
7.490
7.500
7.510
7.520
7.530
7.540
7.550
7.560
7.570
7.580
7.590
7.600
7.610
7.620
7.630
7.640
7.650
7.660
7.670
7.680
7.690
7.700
7.710
7.720
7.730
7.740
7.750
7.760
7.770
7.780
7.790
7.800
7.810
7.820
7.830
7.840
7.850
7.860
7.870
7.880
7.890
7.900
7.910
7.920
7.930
7.940
7.950
7.960
7.970
7.980
7.990
8.000
8.010
8.020
8.030
8.040
8.050
8.060
8.070
8.080
8.090
8.100
8.110
8.120
8.130
8.140
8.150
8.160
8.170
8.180
8.190
8.200
8.210
8.220
8.230
8.240
8.250
8.260
8.270
8.280
8.290
8.300
8.310
8.320
8.330
8.340
8.350
8.360
8.370
8.380
8.390
8.400
8.410
8.420
8.430
8.440
8.450
8.460
8.470
8.480
8.490
8.500
8.510
8.520
8.530
8.540
8.550
8.560
8.570
8.580
8.590
8.600
8.610
8.620
8.630
8.640
8.650
8.660
8.670
8.680
8.690
8.700
8.710
8.720
8.730
8.740
8.750
8.760
8.770
8.780
8.790
8.800
8.810
8.820
8.830
8.840
8.850
8.860
8.870
8.880
8.890
8.900
8.910
8.920
8.930
8.940
8.950
8.960
8.970
8.980
8.990
9.000
9.010
9.020
9.030
9.040
9.050
9.060
9.070
9.080
9.090
9.100
9.110
9.120
9.130
9.140
9.150
9.160
9.170
9.180
9.190
9.200
9.210
9.220
9.230
9.240
9.250
9.260
9.270
9.280
9.290
9.300
9.310
9.320
9.330
9.340
9.350
9.360
9.370
9.380
9.390
9.400
9.410
9.420
9.430
9.440
9.450
9.460
9.470
9.480
9.490
9.500
9.510
9.520
9.530
9.540
9.550
9.560
9.570
9.580
9.590
9.600
1.8
1.9
2
2.1
2.2
2.3
2.4
2.5
2.6
2.7
3.7
4.7
5.7
6.7
7.7
8.7
9.7
10.7
11.7
17.1592773641948
1.8
1.9
2.1
2.3
2.5
2.7
3.7
5.7
7.7
9.7
11.7
1.8
1.81
1.82
1.83
1.84
1.85
1.86
1.87
1.88
1.89
1.9
1.91
1.92
1.93
1.94
1.95
1.96
1.97
1.98
1.99
2
2.01
2.02
2.03
2.04
2.05
2.06
2.07
2.08
2.09
2.1
2.11
2.12
2.13
2.14
2.15
2.16
2.17
2.18
2.19
2.2
2.22
2.24
2.26
2.28
2.3
2.32
2.34
2.36
2.38
2.4
2.42
2.44
2.46
2.48
2.5
2.52
2.54
2.56
2.58
2.6
2.62
2.64
2.66
2.68
2.7
2.8
2.9
3
3.1
3.2
3.3
3.4
3.5
3.6
3.7
3.8
3.9
4
4.1
4.2
4.3
4.4
4.5
4.6
4.7
4.8
4.9
5
5.1
5.2
5.3
5.4
5.5
5.6
5.7
5.8
5.9
6
6.1
6.2
6.3
6.4
6.5
6.6
6.7
6.9
7.1
7.3
7.5
7.7
7.9
8.1
8.3
8.5
8.7
8.9
9.1
9.3
9.5
9.7
9.9
10.1
10.3
10.5
10.7
10.9
11.1
11.3
11.5
11.7
12.7
13.7
14.7
15.7
16.7
2.500
2.510
2.520
2.530
2.540
2.550
2.560
2.570
2.580
2.590
2.600
2.610
2.620
2.630
2.640
2.650
2.660
2.670
2.680
2.690
2.700
2.710
2.720
2.730
2.740
2.750
2.760
2.770
2.780
2.790
2.800
2.810
2.820
2.830
2.840
2.850
2.860
2.870
2.880
2.890
2.900
2.910
2.920
2.930
2.940
2.950
2.960
2.970
2.980
2.990
3.000
ERROR: $val=$yaval1=3.000 and $offset=1.7 $val-=$offset -> 2 $yaval1-="$offset" -> 1.3 !!
3.010
3.020
3.030
3.040
3.050
3.060
3.070
3.080
3.090
3.100
3.110
3.120
3.130
3.140
3.150
3.160
3.170
3.180
3.190
3.200
3.210
3.220
3.230
3.240
3.250
3.260
3.270
3.280
3.290
3.300
3.310
3.320
3.330
3.340
3.350
3.360
3.370
3.380
3.390
3.400
3.410
3.420
3.430
3.440
3.450
3.460
3.470
3.480
3.490
3.500
3.510
3.520
3.530
3.540
3.550
3.560
3.570
3.580
3.590
3.600
3.610
3.620
3.630
3.640
3.650
3.660
3.670
3.680
3.690
3.700
3.710
3.720
3.730
3.740
3.750
3.760
3.770
3.780
3.790
3.800
3.810
3.820
3.830
3.840
3.850
3.860
3.870
3.880
3.890
3.900
3.910
3.920
3.930
3.940
3.950
3.960
3.970
3.980
3.990
4.000
ERROR: $val=$yaval1=4.000 and $offset=1.7 $val-=$offset -> 3 $yaval1-="$offset" -> 2.3 !!
4.010
4.020
4.030
4.040
4.050
4.060
4.070
4.080
4.090
4.100
4.110
4.120
4.130
4.140
4.150
4.160
4.170
4.180
4.190
4.200
4.210
4.220
4.230
4.240
4.250
4.260
4.270
4.280
4.290
4.300
4.310
4.320
4.330
4.340
4.350
4.360
4.370
4.380
4.390
4.400
4.410
4.420
4.430
4.440
4.450
4.460
4.470
4.480
4.490
4.500
4.510
4.520
4.530
4.540
4.550
4.560
4.570
4.580
4.590
4.600
4.610
4.620
4.630
4.640
4.650
4.660
4.670
4.680
4.690
4.700
4.710
4.720
4.730
4.740
4.750
4.760
4.770
4.780
4.790
4.800
4.810
4.820
4.830
4.840
4.850
4.860
4.870
4.880
4.890
4.900
4.910
4.920
4.930
4.940
4.950
4.960
4.970
4.980
4.990
5.000
ERROR: $val=$yaval1=5.000 and $offset=1.7 $val-=$offset -> 4 $yaval1-="$offset" -> 3.3 !!
5.010
5.020
5.030
5.040
5.050
5.060
5.070
5.080
5.090
5.100
5.110
5.120
5.130
5.140
5.150
5.160
5.170
5.180
5.190
5.200
5.210
5.220
5.230
5.240
5.250
5.260
5.270
5.280
5.290
5.300
5.310
5.320
5.330
5.340
5.350
5.360
5.370
5.380
5.390
5.400
5.410
5.420
5.430
5.440
5.450
5.460
5.470
5.480
5.490
5.500
5.510
5.520
5.530
5.540
5.550
5.560
5.570
5.580
5.590
5.600
5.610
5.620
5.630
5.640
5.650
5.660
5.670
5.680
5.690
5.700
5.710
5.720
5.730
5.740
5.750
5.760
5.770
5.780
5.790
5.800
5.810
5.820
5.830
5.840
5.850
5.860
5.870
5.880
5.890
5.900
5.910
5.920
5.930
5.940
5.950
5.960
5.970
5.980
5.990
6.000
ERROR: $val=$yaval1=6.000 and $offset=1.7 $val-=$offset -> 5 $yaval1-="$offset" -> 4.3 !!
6.010
6.020
6.030
6.040
6.050
6.060
6.070
6.080
6.090
6.100
6.110
6.120
6.130
6.140
6.150
6.160
6.170
6.180
6.190
6.200
6.210
6.220
6.230
6.240
6.250
6.260
6.270
6.280
6.290
6.300
6.310
6.320
6.330
6.340
6.350
6.360
6.370
6.380
6.390
6.400
6.410
6.420
6.430
6.440
6.450
6.460
6.470
6.480
6.490
6.500
6.510
6.520
6.530
6.540
6.550
6.560
6.570
6.580
6.590
6.600
6.610
6.620
6.630
6.640
6.650
6.660
6.670
6.680
6.690
6.700
6.710
6.720
6.730
6.740
6.750
6.760
6.770
6.780
6.790
6.800
6.810
6.820
6.830
6.840
6.850
6.860
6.870
6.880
6.890
6.900
6.910
6.920
6.930
6.940
6.950
6.960
6.970
6.980
6.990
7.000
ERROR: $val=$yaval1=7.000 and $offset=1.7 $val-=$offset -> 6 $yaval1-="$offset" -> 5.3 !!
7.010
7.020
7.030
7.040
7.050
7.060
7.070
7.080
7.090
7.100
7.110
7.120
7.130
7.140
7.150
7.160
7.170
7.180
7.190
7.200
7.210
7.220
7.230
7.240
7.250
7.260
7.270
7.280
7.290
7.300
7.310
7.320
7.330
7.340
7.350
7.360
7.370
7.380
7.390
7.400
7.410
7.420
7.430
7.440
7.450
7.460
7.470
7.480
7.490
7.500
7.510
7.520
7.530
7.540
7.550
7.560
7.570
7.580
7.590
7.600
7.610
7.620
7.630
7.640
7.650
7.660
7.670
7.680
7.690
7.700
7.710
7.720
7.730
7.740
7.750
7.760
7.770
7.780
7.790
7.800
7.810
7.820
7.830
7.840
7.850
7.860
7.870
7.880
7.890
7.900
7.910
7.920
7.930
7.940
7.950
7.960
7.970
7.980
7.990
8.000
ERROR: $val=$yaval1=8.000 and $offset=1.7 $val-=$offset -> 7 $yaval1-="$offset" -> 6.3 !!
8.010
8.020
8.030
8.040
8.050
8.060
8.070
8.080
8.090
8.100
8.110
8.120
8.130
8.140
8.150
8.160
8.170
8.180
8.190
8.200
8.210
8.220
8.230
8.240
8.250
8.260
8.270
8.280
8.290
8.300
8.310
8.320
8.330
8.340
8.350
8.360
8.370
8.380
8.390
8.400
8.410
8.420
8.430
8.440
8.450
8.460
8.470
8.480
8.490
8.500
8.510
8.520
8.530
8.540
8.550
8.560
8.570
8.580
8.590
8.600
8.610
8.620
8.630
8.640
8.650
8.660
8.670
8.680
8.690
8.700
8.710
8.720
8.730
8.740
8.750
8.760
8.770
8.780
8.790
8.800
8.810
8.820
8.830
8.840
8.850
8.860
8.870
8.880
8.890
8.900
8.910
8.920
8.930
8.940
8.950
8.960
8.970
8.980
8.990
9.000
ERROR: $val=$yaval1=9.000 and $offset=1.7 $val-=$offset -> 8 $yaval1-="$offset" -> 7.3 !!
9.010
9.020
9.030
9.040
9.050
9.060
9.070
9.080
9.090
9.100
9.110
9.120
9.130
9.140
9.150
9.160
9.170
9.180
9.190
9.200
9.210
9.220
9.230
9.240
9.250
9.260
9.270
9.280
9.290
9.300
9.310
9.320
9.330
9.340
9.350
9.360
9.370
9.380
9.390
9.400
9.410
9.420
9.430
9.440
9.450
9.460
9.470
9.480
9.490
9.500
9.510
9.520
9.530
9.540
9.550
9.560
9.570
9.580
9.590
9.600
1.8
1.9
2
ERROR: $val=$yaval1=2 and $offset=1.7 $val-=$offset -> 1 $yaval1-="$offset" -> 0.3 !!
2.1
2.2
2.3
2.4
2.5
2.6
2.7
3.7
4.7
5.7
6.7
7.7
8.7
9.7
10.7
11.7
17.1592773641948
1.8
1.9
2.1
2.3
2.5
2.7
3.7
5.7
7.7
9.7
11.7
1.8
1.81
1.82
1.83
1.84
1.85
1.86
1.87
1.88
1.89
1.9
1.91
1.92
1.93
1.94
1.95
1.96
1.97
1.98
1.99
2
ERROR: $val=$yaval1=2 and $offset=1.7 $val-=$offset -> 1 $yaval1-="$offset" -> 0.3 !!
2.01
2.02
2.03
2.04
2.05
2.06
2.07
2.08
2.09
2.1
2.11
2.12
2.13
2.14
2.15
2.16
2.17
2.18
2.19
2.2
2.22
2.24
2.26
2.28
2.3
2.32
2.34
2.36
2.38
2.4
2.42
2.44
2.46
2.48
2.5
2.52
2.54
2.56
2.58
2.6
2.62
2.64
2.66
2.68
2.7
2.8
2.9
3
ERROR: $val=$yaval1=3 and $offset=1.7 $val-=$offset -> 2 $yaval1-="$offset" -> 1.3 !!
3.1
3.2
3.3
3.4
3.5
3.6
3.7
3.8
3.9
4
ERROR: $val=$yaval1=4 and $offset=1.7 $val-=$offset -> 3 $yaval1-="$offset" -> 2.3 !!
4.1
4.2
4.3
4.4
4.5
4.6
4.7
4.8
4.9
5
ERROR: $val=$yaval1=5 and $offset=1.7 $val-=$offset -> 4 $yaval1-="$offset" -> 3.3 !!
5.1
5.2
5.3
5.4
5.5
5.6
5.7
5.8
5.9
6
ERROR: $val=$yaval1=6 and $offset=1.7 $val-=$offset -> 5 $yaval1-="$offset" -> 4.3 !!
6.1
6.2
6.3
6.4
6.5
6.6
6.7
6.9
7.1
7.3
7.5
7.7
7.9
8.1
8.3
8.5
8.7
8.9
9.1
9.3
9.5
9.7
9.9
10.1
10.3
10.5
10.7
10.9
11.1
11.3
11.5
11.7
12.7
13.7
14.7
15.7
16.7
---
Flags:
category=core
severity=medium
---
Site configuration information for perl v5.8.1:
Configured by wasquith at Mon Oct 6 10:42:52 CDT 2003.
Summary of my perl5 (revision 5.0 version 8 subversion 1) configuration:
Platform:
osname=linux, osvers=2.4.18-27.8.0smp, archname=i686-linux
uname='linux red1ast.cr.usgs.gov 2.4.18-27.8.0smp #1 smp fri mar 14 05:47:33 est 2003 i686 i686 i386 gnulinux '
config_args='-des'
hint=recommended, useposix=true, d_sigaction=define
usethreads=undef use5005threads=undef useithreads=undef usemultiplicity=undef
useperlio=define d_sfio=undef uselargefiles=define usesocks=undef
use64bitint=undef use64bitall=undef uselongdouble=undef
usemymalloc=n, bincompat5005=undef
Compiler:
cc='cc', ccflags ='-fno-strict-aliasing -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -I/usr/include/gdbm',
optimize='-O3',
cppflags='-fno-strict-aliasing -I/usr/include/gdbm'
ccversion='', gccversion='3.2 20020903 (Red Hat Linux 8.0 3.2-7)', gccosandvers=''
intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234
d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8
alignbytes=4, prototype=define
Linker and Libraries:
ld='cc', ldflags =' -L/usr/local/lib'
libpth=/usr/local/lib /lib /usr/lib
libs=-lnsl -lgdbm -ldb -ldl -lm -lcrypt -lutil -lc
perllibs=-lnsl -ldl -lm -lcrypt -lutil -lc
libc=/lib/libc-2.3.2.so, so=so, useshrplib=false, libperl=libperl.a
gnulibc_version='2.3.2'
Dynamic Linking:
dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-rdynamic'
cccdlflags='-fpic', lddlflags='-shared -L/usr/local/lib'
Locally applied patches:
---
@INC for perl v5.8.1:
/usr/local/lib/perl5/5.8.1/i686-linux
/usr/local/lib/perl5/5.8.1
/usr/local/lib/perl5/site_perl/5.8.1/i686-linux
/usr/local/lib/perl5/site_perl/5.8.1
/usr/local/lib/perl5/site_perl
.
---
Environment for perl v5.8.1:
HOME=/home/wasquith
LANG=en_US.UTF-8
LANGUAGE (unset)
LD_LIBRARY_PATH (unset)
LOGDIR (unset)
PATH=/usr/local/bin:/usr/bin:/bin:/usr/X11R6/bin:.:/home/wasquith/bin:.
PERL_BADLANG (unset)
SHELL=/bin/bash
Thread Next
-
[perl #24160] BUG REPORT: INTEGER MATH OCCURRING WHEN NOT EXPECTED
by perlbug-followup