Lines Matching refs:_n
9 # _n : numeraotr (value = _n/_d)
76 $self->{_n} = $MBI->new($CALC->_str ( $f->{_m} ),undef,undef);# mantissa
89 $self->{_n}->blsft( $MBI->new($CALC->_str($f->{_e})),10) unless
115 $self->{_n} = $n->copy(); # "mantissa" = $n
117 $self->{sign} = $self->{_n}->{sign}; $self->{_n}->{sign} = '+';
123 $self->{_n} = $MBI->new(abs($$n),undef,undef); # "mantissa" = $n
132 $self->{_n} = $MBI->bzero(); # undef => 0
156 $self->{_n} = $MBI->new( $CALC->_str( $nf->{_m} ) );
158 # now correct $self->{_n} due to $n
173 $self->{_n}->blsft($diff_e,10);
179 $self->{_n} = $MBI->new($n,undef,undef);
182 return $self->bnan() if $self->{_n}->{sign} eq $nan ||
185 if ($self->{_n}->is_inf() || $self->{_d}->is_inf())
189 ($self->{_n}->is_inf() && $self->{_d}->is_inf());
190 if ($self->{_n}->is_inf())
193 $s = '-' if substr($self->{_n}->{sign},0,1) ne $self->{_d}->{sign};
201 $self->{sign} = $self->{_n}->{sign}; $self->{_n}->babs();
224 $self->{_n} = $MBI->new($n,undef,undef);
226 $self->{sign} = $self->{_n}->{sign}; $self->{_n}->babs();
252 $self->{_n} = $x->{_n}->copy();
287 return $s . $x->{_n}->bstr() if $x->{_d}->is_one();
288 $s . $x->{_n}->bstr() . '/' . $x->{_d}->bstr();
302 $s . $x->{_n}->bstr() . '/' . $x->{_d}->bstr();
312 if (ref($x->{_n}) ne $MBI)
314 require Carp; Carp::croak ("n is not $MBI but (".ref($x->{_n}).')');
323 $x->{_n}->{_f} = MB_NEVER_ROUND;
325 delete $x->{_d}->{_a}; delete $x->{_n}->{_a};
326 delete $x->{_d}->{_p}; delete $x->{_n}->{_p};
333 ($x->{_n}->is_zero()))
347 my $gcd = $x->{_n}->bgcd($x->{_d});
351 $x->{_n}->bdiv($gcd);
371 $self->{_n} = $MBI->bzero();
386 $self->{_n} = $MBI->bzero();
394 $self->{_n} = $MBI->bone();
402 $self->{_n} = $MBI->bzero();
441 $x->{_n}->bmul($y->{_d}); $x->{_n}->{sign} = $x->{sign};
442 my $m = $y->{_n}->copy()->bmul($x->{_d});
444 $x->{_n}->badd($m);
448 # calculate sign of result and norm our _n part
449 $x->{sign} = $x->{_n}->{sign}; $x->{_n}->{sign} = '+';
468 unless $x->{sign} eq '+' && $x->{_n}->is_zero(); # not -0
471 unless $x->{sign} eq '+' && $x->{_n}->is_zero(); # not -0
516 $x->{_n}->bmul($y->{_n});
555 $x->{_n}->bmul($y->{_d});
556 $x->{_d}->bmul($y->{_n});
597 $u->{_d}->bmul($y->{_n});
598 $u->{_n}->bmul($y->{_d});
603 $u->{_n}->bdiv($u->{_d}); # 22/7 => 3/1 w/ truncate
605 #$x->{_n}->binc() if $x->{sign} eq '-'; # -22/7 => -4/1
610 $u->{_n}->bmul($y->{_n});
634 $x->{_n}->badd($x->{_d}); # -5/2 => -7/2
638 if ($x->{_n}->bacmp($x->{_d}) < 0)
641 $x->{_n} = $x->{_d} - $x->{_n};
646 $x->{_n}->bsub($x->{_d}); # 5/2 => 3/2
663 if ($x->{_n}->bacmp($x->{_d}) < 0)
666 $x->{_n} = $x->{_d} - $x->{_n};
671 $x->{_n}->bsub($x->{_d}); # -5/2 => -3/2
676 $x->{_n}->badd($x->{_d}); # 5/2 => 7/2
699 return 1 if $x->{sign} eq '+' && $x->{_n}->is_zero();
710 if ($x->{sign} eq $sign && $x->{_n}->is_one() && $x->{_d}->is_one());
720 ($x->{_d}->is_one() && $x->{_n}->is_odd()); # x/2 is not, but 3/1
731 && $x->{_n}->is_even()); # but 4/1 is
744 my $n = $x->{_n}->copy(); $n->{sign} = $x->{sign};
764 my $n = $x->{_n}->copy();
774 $x->{_n}->length(); # length(-123/1) => length(123)
782 $x->{_n}->digit($n); # digit(-123/1,2) => digit(123,2)
798 $x->{_n}->bdiv($x->{_d}); # 22/7 => 3/1 w/ truncate
800 $x->{_n}->binc() if $x->{sign} eq '+'; # +22/7 => 4/1
801 $x->{sign} = '+' if $x->{_n}->is_zero(); # -0 => 0
815 $x->{_n}->bdiv($x->{_d}); # 22/7 => 3/1 w/ truncate
817 $x->{_n}->binc() if $x->{sign} eq '-'; # -22/7 => -4/1
828 $x->{_n}->bfac();
850 if ($x->{sign} eq '-' && $x->{_n}->is_one() && $x->{_d}->is_one())
867 $x->{_n}->bpow($y->{_n}); # x/1 ** y/1 => (x ** y)/1
871 ($x->{_n},$x->{_d}) = ($x->{_d},$x->{_n}); # swap
877 $x->{sign} = '+' if $y->{_n}->is_even();
882 $x->{_n}->bpow($y->{_n}); # 5/2 ** y/1 => 5 ** y / 2 ** y
883 $x->{_d}->bpow($y->{_n});
887 ($x->{_n},$x->{_d}) = ($x->{_d},$x->{_n}); # swap
893 $x->{sign} = '+' if $y->{_n}->is_even();
900 my $y1 = $MBI->new($y->{_n}/$y->{_d})->babs();
910 ($x->{_d},$x->{_n}) = ($x->{_n},$x->{_d}) if $y->{sign} eq '-';
948 Math::BigFloat->new($x->{_n})->bdiv($x->{_d}, $x->accuracy());
1034 $x->{_n} = Math::BigFloat->new($x->{_n})->bsqrt();
1039 $x->{_n}->blsft($x->{_d}->exponent()->babs(),10); # 7.1/4.51 => 7.1/45.1
1043 if ($x->{_n}->{_es} ne '+')
1045 $x->{_d}->blsft($x->{_n}->exponent()->babs(),10); # 71/45.1 => 710/45.1
1046 $x->{_n} = $MBI->new($CALC->_str($x->{_n}->{_m})); # 710/45.1 => 710/451
1050 $x->{_n} = $x->{_n}->as_number() unless $x->{_n}->isa($MBI);
1123 my $xz = $x->{_n}->is_zero();
1124 my $yz = $y->{_n}->is_zero();
1129 my $t = $x->{_n} * $y->{_d}; $t->{sign} = $x->{sign};
1130 my $u = $y->{_n} * $x->{_d}; $u->{sign} = $y->{sign};
1155 my $t = $x->{_n} * $y->{_d};
1156 my $u = $y->{_n} * $x->{_d};
1171 return $x->{_n}->numify() if $x->{_d}->is_one();
1175 $neg * $x->{_n}->numify() / $x->{_d}->numify(); # return sign * N/D
1188 my $t = $x->{_n}->copy()->bdiv($x->{_d}); # 22/7 => 3
1200 $s . $x->{_n}->as_bin();
1210 $s . $x->{_n}->as_hex();