Lines Matching refs:y1
1669 # The following steps will transform 123.456 (in $x) into 123456 (in $y1)
1670 my $y1 = $MBI->_copy($x->{_m});
1672 my $length = $MBI->_len($y1);
1674 # Now calculate how many digits the result of sqrt(y1) would have
1686 # We now make sure that $y1 has the same odd or even number of digits than
1687 # $x had. So when _e of $x is odd, we must shift $y1 by one digit left,
1694 $MBI->_lsft( $y1, $MBI->_new($s2), 10);
1697 $y1 = $MBI->_sqrt($y1);
1699 # By "shifting" $y1 right (by creating a negative _e) we calculate the final
1719 $dat -= $MBI->_len($y1);
1731 $x->{_m} = $y1;
1901 my $y1 = $y->as_number()->{value}; # make CALC
1907 return $MBI->_is_odd($y1) ? $x : $x->babs(1);
1921 $x->{_m} = $MBI->_pow( $x->{_m}, $y1);
1922 $MBI->_mul ($x->{_e}, $y1);