Viewing file:  gmp.php (10.31 KB) -rw-r--r--
Select action/file-type:
 (+) |  (+) |  (+) | Code (+) | Session (+) |  (+) | SDB (+) |  (+) |  (+) |  (+) |  (+) |  (+) |
<?php
//include_once 'Math/Integer/common.php';
include_once 'common.php';
class Math_Integer_GMP extends Math_Integer_Common {/*{{{*/
function Math_Integer_GMP($value) {/*{{{*/
$this->setValue($value);
}/*}}}*/
function toString() {/*{{{*/
return gmp_strval($this->_value);
}/*}}}*/
function makeClone() {/*{{{*/
return new Math_Integer_GMP($this->toString());
}/*}}}*/
function setValue($value) {/*{{{*/
if ($this->_is($value, 'Math_Integer_GMP')) {
$this->setValue($value->toString());
} elseif (is_resource($value) && get_resource_type($value) == 'GMP integer') {
$this->_value = $value;
} elseif (is_scalar($value)) {
$this->_value = gmp_init($value);
} else {
$this->_value = null;
}
}/*}}}*/
function getValue() {/*{{{*/
return $this->_value;
}/*}}}*/
function negate() {/*{{{*/
$newval = gmp_neg($this->getValue());
if (is_resource($newval)) {
$this->setValue($newval);
return true;
} else {
return PEAR::raiseError('Error while negating Math_Integer_GMP '.
'object: '.$this->toString());
}
}/*}}}*/
function abs() {/*{{{*/
$newval = gmp_abs($this->getValue());
if (is_resource($newval)) {
$this->setValue($newval);
return true;
} else {
return PEAR::raiseError('Error while doing Math_Integer_GMP::abs() '.
'object: '.$this->toString());
}
}/*}}}*/
function fact() {/*{{{*/
$newval = gmp_fact($this->toString());
if (is_resource($newval)) {
$this->setValue($newval);
return true;
} else {
return PEAR::raiseError('Error while doing Math_Integer_GMP::fact() '.
'object: '.$this->toString());
}
}/*}}}*/
function add(&$int) {/*{{{*/
if (!$this->_is(&$int, 'Math_Integer_GMP')) {
return PEAR::raiseError('Parameter is not a Math_Integer_GMP object');
}
$newval = gmp_add($this->getValue(), $int->getValue());
if (is_resource($newval)) {
$this->setValue($newval);
return true;
} else {
return PEAR::raiseError('Error while adding Math_Integer_GMP '.
'objects: '.$this->toString().' and '.
$int->toString());
}
}/*}}}*/
function inc() {/*{{{*/
$newval = gmp_add($this->getValue(), gmp_init(1));
if (is_resource($newval)) {
$this->setValue($newval);
return true;
} else {
return PEAR::raiseError('Error while incrementing Math_Integer_GMP '.
'object: '.$this->toString());
}
}/*}}}*/
function sub(&$int) {/*{{{*/
if (!$this->_is(&$int, 'Math_Integer_GMP')) {
return PEAR::raiseError('Parameter is not a Math_Integer_GMP object');
}
$newval = gmp_sub($this->getValue(), $int->getValue());
if (is_resource($newval)) {
$this->setValue($newval);
return true;
} else {
return PEAR::raiseError('Error while substracting Math_Integer_GMP '.
'objects: '.$this->toString().' and '.
$int->toString());
}
}/*}}}*/
function dec() {/*{{{*/
$newval = gmp_sub($this->getValue(), gmp_init(1));
if (is_resource($newval)) {
$this->setValue($newval);
return true;
} else {
return PEAR::raiseError('Error while decrementing Math_Integer_GMP '.
'object: '.$this->toString());
}
}/*}}}*/
function mul(&$int) {/*{{{*/
if (!$this->_is(&$int, 'Math_Integer_GMP')) {
return PEAR::raiseError('Parameter is not a Math_Integer_GMP object');
}
$newval = gmp_mul($this->getValue(), $int->getValue());
if (is_resource($newval)) {
$this->setValue($newval);
return true;
} else {
return PEAR::raiseError('Error while multiplying Math_Integer_GMP '.
'objects: '.$this->toString().' and '.
$int->toString());
}
}/*}}}*/
function div(&$int) {/*{{{*/
if (!$this->_is(&$int, 'Math_Integer_GMP')) {
return PEAR::raiseError('Parameter is not a Math_Integer_GMP object');
}
if ($int->isZero()) {
return PEAR::raiseError('Division by zero is undefined');
}
$newval = gmp_div($this->getValue(), $int->getValue());
if (is_resource($newval)) {
$this->setValue($newval);
return true;
} else {
return PEAR::raiseError('Error while dividing Math_Integer_GMP '.
'objects: '.$this->toString().' and '.
$int->toString());
}
return $this->_noImplemented('div');
}/*}}}*/
function pow(&$int) {/*{{{*/
if (!$this->_is(&$int, 'Math_Integer_GMP')) {
return PEAR::raiseError('Parameter is not a Math_Integer_GMP object');
}
if ($int->isNegative()) {
return PEAR::raiseError('Exponent cannot be negative');
} elseif ($int->isZero()) {
$this->setValue(1);
} else {
$newval = gmp_pow($this->getValue(), $int->toString());
if (is_resource($newval)) {
$this->setValue($newval);
return true;
} else {
return PEAR::raiseError('Error while doing pow($n, $e) Math_Integer_GMP '.
'objects: '.$this->toString().' and '.
$int->toString());
}
}
}/*}}}*/
function powmod(&$int, &$mod) {/*{{{*/
$err = '';
if (!$this->_is(&$int, 'Math_Integer_GMP')) {
$err .= 'Exponent is not a Math_Integer_GMP object.';
} elseif ($int->isNegative()) {
$err .= 'Exponent cannot be negative';
}
if (!is_empty($err)) {
$err .= ' ';
}
if (!$this->_is(&$mod, 'Math_Integer_GMP')) {
$err .= 'Modulus is not a Math_Integer_GMP object.';
} elseif ($mod->isZero() || $mod->isNegative()) {
$err .= 'Modulus must be positive and greater than zero';
}
if (!empty($err)) {
return PEAR::raiseError($err);
}
$newval = gmp_powm($this->getValue(), $int->getValue(), $mod->getValue());
if (is_resource($newval)) {
$this->setValue($newval);
return true;
} else {
return PEAR::raiseError('Error while doing pow(n, e, m) Math_Integer_GMP '.
'objects: '.$this->toString().', '.
$int->toString().', and '.$mod->toString());
}
}/*}}}*/
function sqrt() {/*{{{*/
if ($this->isZero()) {
return true;
} elseif ($this->isNegative()) {
return PEAR::raiseError('Cannot take square root of a negative number');
} else {
$newval = gmp_add($this->getValue(), $int->getValue());
if (is_resource($newval)) {
$this->setValue($newval);
return true;
} else {
return PEAR::raiseError('Error while taking a square root of: '.
$this->toString());
}
}
}/*}}}*/
function mod(&$int) {/*{{{*/
if (!$this->_is(&$int, 'Math_Integer_GMP')) {
return PEAR::raiseError('Modulus is not a Math_Integer_GMP object');
} elseif ($int->isZero() || $int->isNegative()) {
return PEAR::raiseError('Modulus must be positive and greater than zero');
}
$newval = gmp_mod($this->getValue(), $int->getValue());
if (is_resource($newval)) {
$this->setValue($newval);
return true;
} else {
return PEAR::raiseError('Error while doing mod(i, m) using the '.
'objects: '.$this->toString().' and '.
$int->toString());
}
}/*}}}*/
function compare(&$int) {/*{{{*/
if (!$this->_is(&$int, 'Math_Integer_GMP')) {
return PEAR::raiseError('Parameter is not a Math_Integer_GMP object');
}
$cmp = gmp_cmp($this->getValue(), $int->getValue());
if ($cmp > 0) {
return 1;
} elseif ($cmp == 0) {
return 0;
} else {
return -1;
}
}/*}}}*/
function sign() {/*{{{*/
return gmp_sign($this->getValue());
}/*}}}*/
function gcd(&$int) {/*{{{*/
if (!$this->_is(&$int, 'Math_Integer_GMP')) {
return PEAR::raiseError('Parameter is not a Math_Integer_GMP object');
}
$gcd = gmp_gcd($this->getValue(), $int->getValue());
if (!is_resource($gcd) || get_resource_type($gcd) != 'GMP integer') {
return PEAR::raiseError('Unkown error calculating GCD');
}
return new Math_Integer_GMP($gcd);
}/*}}}*/
function isOdd() {/*{{{*/
return gmp_mod($this->getValue(), gmp_init(2)) != 0;
}/*}}}*/
function isEven() {/*{{{*/
return gmp_mod($this->getValue(), gmp_init(2)) == 0;
}/*}}}*/
function isPositive() {/*{{{*/
return gmp_sign($this->getValue()) == 1;
}/*}}}*/
function isNegative() {/*{{{*/
return gmp_sign($this->getValue()) == -1;
}/*}}}*/
function isZero() {/*{{{*/
return gmp_sign($this->getValue()) == 0;
}/*}}}*/
function isPrime($reps=10) {/*{{{*/
if (!is_int($reps)) {
return PEAR::raiseError('Expecting an integer for the number of repeats');
}
if ($reps < 5 || $reps > 10) {
return PEAR::raiseError("Number of repeats for algorithm must be between 5 ".
"and 10 (default). You requested $reps repreats");
}
return gmp_prob_prime($this->getValue(), $reps);
}/*}}}*/
}/*}}}*/
?>
|