number 0.9.7 → 0.9.9

metadata

@@ -2,7 +2,7 @@
 name: number
 version: !ruby/object:Gem::Version 
   prerelease: 
-  version: 0.9.7
+  version: 0.9.9
 platform: ruby
 authors: 
 - Jesse Sielaff
@@ -12,7 +12,7 @@ autorequire:
 bindir: bin
 cert_chain: []
 
-date: 2011-07-27 00:00:00 Z
+date: 2011-08-10 00:00:00 Z
 dependencies: []
 
 description: The Number gem is intended to be a drop-in replacement for Ruby's Numeric classes when arbitrary-precision complex interval calculations are warranted. The basis of the arbitrary-precision calculations is the GNU MP, MPFR, and MPC libraries.
@@ -20,21 +20,21 @@ email: jesse.sielaff@gmail.com
 executables: []
 
 extensions: 
-- ext/extconf.rb
+- ext/number/extconf.rb
 extra_rdoc_files: []
 
 files: 
-- ext/bounds.c
-- ext/compare.c
-- ext/complex.c
-- ext/decompose.c
-- ext/extconf.rb
-- ext/interval.c
-- ext/number.c
-- ext/number.h
-- ext/real.c
-- ext/real_bounds.c
-- ext/round.c
+- ext/number/bounds.c
+- ext/number/compare.c
+- ext/number/complex.c
+- ext/number/decompose.c
+- ext/number/extconf.rb
+- ext/number/interval.c
+- ext/number/number.c
+- ext/number/number.h
+- ext/number/real.c
+- ext/number/real_bounds.c
+- ext/number/round.c
 homepage: 
 licenses: []
 
@@ -43,7 +43,6 @@ rdoc_options: []
 
 require_paths: 
 - lib
-- ext
 required_ruby_version: !ruby/object:Gem::Requirement 
   none: false
   requirements: 
@@ -61,7 +60,7 @@ requirements:
 - MPFR
 - MPC
 rubyforge_project: 
-rubygems_version: 1.8.1
+rubygems_version: 1.8.7
 signing_key: 
 specification_version: 3
 summary: An arbitrary-precision complex interval number library for Ruby.

data/ext/decompose.c

@@ -1,231 +0,0 @@
-#include "number.h"
-
-Complex* complex_im (Complex* complex)
-{
-    return (Complex*)complex_new((Interval*)interval_dup(complex->im), (Interval*)interval_zero());
-}
-
-Complex* complex_im_l (Complex* complex)
-{
-    return (Complex*)complex_from_real(complex->im->l);
-}
-
-Complex* complex_im_n (Complex* complex)
-{
-    return (Complex*)complex_from_real(complex->im->n);
-}
-
-Complex* complex_im_u (Complex* complex)
-{
-    return (Complex*)complex_from_real(complex->im->u);
-}
-
-Complex* complex_im_magnitude (Complex* complex)
-{
-    Real* l_abs;
-    Real* u_abs;
-    Complex* result;
-    
-    l_abs = (Real*)real_abs(complex->im->l);
-    u_abs = (Real*)real_abs(complex->im->u);
-    
-    result = (Complex*)complex_from_real(real_gt_p(l_abs, u_abs) ? l_abs : u_abs);
-    
-    real_free(l_abs);
-    real_free(u_abs);
-    
-    return result;
-}
-
-Complex* complex_im_mignitude (Complex* complex)
-{
-    Real* l_abs;
-    Real* u_abs;
-    Real* zero;
-    Complex* result;
-    
-    l_abs = (Real*)real_abs(complex->im->l);
-    u_abs = (Real*)real_abs(complex->im->u);
-    zero = (Real*)real_zero();
-    
-    result = (Complex*)complex_from_real(interval_span_zero_p(complex->im) ? zero : (real_lt_p(l_abs, u_abs) ? l_abs : u_abs));
-    
-    real_free(l_abs);
-    real_free(u_abs);
-    real_free(zero);
-    
-    return result;
-}
-
-Complex* complex_im_width (Complex* complex)
-{
-    Real* width;
-    Complex* result;
-    
-    width = (Real*)real_subtract(complex->im->u, complex->im->l);
-    result = (Complex*)complex_from_real(width);
-    
-    real_free(width);
-    
-    return result;
-}
-
-Complex* complex_re (Complex* complex)
-{
-    return (Complex*)complex_new((Interval*)interval_dup(complex->re), (Interval*)interval_zero());
-}
-
-Complex* complex_re_l (Complex* complex)
-{
-    return (Complex*)complex_from_real(complex->re->l);
-}
-
-Complex* complex_re_n (Complex* complex)
-{
-    return (Complex*)complex_from_real(complex->re->n);
-}
-
-Complex* complex_re_u (Complex* complex)
-{
-    return (Complex*)complex_from_real(complex->re->u);
-}
-
-Complex* complex_re_magnitude (Complex* complex)
-{
-    Real* l_abs;
-    Real* u_abs;
-    Complex* result;
-    
-    l_abs = (Real*)real_abs(complex->re->l);
-    u_abs = (Real*)real_abs(complex->re->u);
-    
-    result = (Complex*)complex_from_real(real_gt_p(l_abs, u_abs) ? l_abs : u_abs);
-    
-    real_free(l_abs);
-    real_free(u_abs);
-    
-    return result;
-}
-
-Complex* complex_re_mignitude (Complex* complex)
-{
-    Real* l_abs;
-    Real* u_abs;
-    Real* zero;
-    Complex* result;
-    
-    l_abs = (Real*)real_abs(complex->re->l);
-    u_abs = (Real*)real_abs(complex->re->u);
-    zero = (Real*)real_zero();
-    
-    result = (Complex*)complex_from_real(interval_span_zero_p(complex->re) ? zero : (real_lt_p(l_abs, u_abs) ? l_abs : u_abs));
-    
-    real_free(l_abs);
-    real_free(u_abs);
-    real_free(zero);
-    
-    return result;
-}
-
-Complex* complex_re_width (Complex* complex)
-{
-    Real* width;
-    Complex* result;
-    
-    width = (Real*)real_subtract(complex->re->u, complex->re->l);
-    result = (Complex*)complex_from_real(width);
-    
-    real_free(width);
-    
-    return result;
-}
-
-Complex* complex_ll (Complex* complex)
-{
-    return (Complex*)complex_new((Interval*)interval_from_real(complex->re->l), (Interval*)interval_from_real(complex->im->l));
-}
-
-Complex* complex_lu (Complex* complex)
-{
-    return (Complex*)complex_new((Interval*)interval_from_real(complex->re->l), (Interval*)interval_from_real(complex->im->u));
-}
-
-Complex* complex_n (Complex* complex)
-{
-    return (Complex*)complex_new((Interval*)interval_from_real(complex->re->n), (Interval*)interval_from_real(complex->im->n));
-}
-
-Complex* complex_ul (Complex* complex)
-{
-    return (Complex*)complex_new((Interval*)interval_from_real(complex->re->u), (Interval*)interval_from_real(complex->im->l));
-}
-
-Complex* complex_uu (Complex* complex)
-{
-    return (Complex*)complex_new((Interval*)interval_from_real(complex->re->u), (Interval*)interval_from_real(complex->im->u));
-}
-
-Complex* complex_magnitude (Complex* complex)
-{
-    Real* re_l_abs;
-    Real* re_u_abs;
-    Real* im_l_abs;
-    Real* im_u_abs;
-    Complex* result;
-    
-    re_l_abs = (Real*)real_abs(complex->re->l);
-    re_u_abs = (Real*)real_abs(complex->re->u);
-    im_l_abs = (Real*)real_abs(complex->im->l);
-    im_u_abs = (Real*)real_abs(complex->im->u);
-    
-    result = (Complex*)complex_new((Interval*)interval_from_real(real_gt_p(re_l_abs, re_u_abs) ? re_l_abs : re_u_abs), (Interval*)interval_from_real(real_gt_p(im_l_abs, im_u_abs) ? im_l_abs : im_u_abs));
-    
-    real_free(re_l_abs);
-    real_free(re_u_abs);
-    real_free(im_l_abs);
-    real_free(im_u_abs);
-    
-    return result;
-}
-
-Complex* complex_mignitude (Complex* complex)
-{
-    Real* re_l_abs;
-    Real* re_u_abs;
-    Real* im_l_abs;
-    Real* im_u_abs;
-    Real* zero;
-    Complex* result;
-    
-    re_l_abs = (Real*)real_abs(complex->re->l);
-    re_u_abs = (Real*)real_abs(complex->re->u);
-    im_l_abs = (Real*)real_abs(complex->im->l);
-    im_u_abs = (Real*)real_abs(complex->im->u);
-    
-    zero = (Real*)real_zero();
-    result = (Complex*)complex_new((Interval*)interval_from_real(interval_span_zero_p(complex->re) ? zero : (real_lt_p(re_l_abs, re_u_abs) ? re_l_abs : re_u_abs)), (Interval*)interval_from_real(interval_span_zero_p(complex->im) ? zero : (real_lt_p(im_l_abs, im_u_abs) ? im_l_abs : im_u_abs)));
-    
-    real_free(re_l_abs);
-    real_free(re_u_abs);
-    real_free(im_l_abs);
-    real_free(im_u_abs);
-    real_free(zero);
-    
-    return result;
-}
-
-Complex* complex_width (Complex* complex)
-{
-    Real* re_width;
-    Real* im_width;
-    Complex* result;
-    
-    re_width = (Real*)real_subtract(complex->re->u, complex->re->l);
-    im_width = (Real*)real_subtract(complex->im->u, complex->im->l);
-    result = (Complex*)complex_new((Interval*)interval_from_real(re_width), (Interval*)interval_from_real(im_width));
-    
-    real_free(re_width);
-    real_free(im_width);
-    
-    return result;
-}

data/ext/round.c

@@ -1,46 +0,0 @@
-#include "number.h"
-
-Complex* complex_round (Complex* complex)
-{
-    return (Complex*)complex_new((Interval*)interval_round(complex->re), (Interval*)interval_round(complex->im));
-}
-
-Complex* complex_round_c_c (Complex* complex)
-{
-    return (Complex*)complex_new((Interval*)interval_round_ceiling(complex->re), (Interval*)interval_round_ceiling(complex->im));
-}
-
-Complex* complex_round_c_f (Complex* complex)
-{
-    return (Complex*)complex_new((Interval*)interval_round_floor(complex->re), (Interval*)interval_round_ceiling(complex->im));
-}
-
-Complex* complex_round_f_c (Complex* complex)
-{
-    return (Complex*)complex_new((Interval*)interval_round_ceiling(complex->re), (Interval*)interval_round_floor(complex->im));
-}
-
-Complex* complex_round_f_f (Complex* complex)
-{
-    return (Complex*)complex_new((Interval*)interval_round_floor(complex->re), (Interval*)interval_round_floor(complex->im));
-}
-
-Complex* complex_round_i_i (Complex* complex)
-{
-    return (Complex*)complex_new((Interval*)interval_round_infinity(complex->re), (Interval*)interval_round_infinity(complex->im));
-}
-
-Complex* complex_round_i_o (Complex* complex)
-{
-    return (Complex*)complex_new((Interval*)interval_round_infinity(complex->re), (Interval*)interval_round_origin(complex->im));
-}
-
-Complex* complex_round_o_i (Complex* complex)
-{
-    return (Complex*)complex_new((Interval*)interval_round_origin(complex->re), (Interval*)interval_round_infinity(complex->im));
-}
-
-Complex* complex_round_o_o (Complex* complex)
-{
-    return (Complex*)complex_new((Interval*)interval_round_origin(complex->re), (Interval*)interval_round_origin(complex->im));
-}