mirror of
https://github.com/ruby/ruby.git
synced 2022-11-09 12:17:21 -05:00
* complex.c (nucomp_s_convert): accepts complex
value (Complex(a,b) as a+bi). git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@19397 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
tadf
parent
b452a519c9
commit
d965e99b04
4 changed files with 31 additions and 27 deletions
|
|
@ -1,3 +1,8 @@
|
|||
Wed Sep 17 19:55:33 2008 Tadayoshi Funaba <tadf@dotrb.org>
|
||||
|
||||
* complex.c (nucomp_s_convert): accepts complex
|
||||
value (Complex(a,b) as a+bi).
|
||||
|
||||
Wed Sep 17 19:16:47 2008 Kazuhiro NISHIYAMA <zn@mbf.nifty.com>
|
||||
|
||||
* test/ruby/test_io.rb (TestIO#test_dup): avoid infinite loop.
|
||||
|
|
|
|||
44
complex.c
44
complex.c
|
|
@ -21,11 +21,10 @@
|
|||
|
||||
VALUE rb_cComplex;
|
||||
|
||||
static ID id_Unify, id_abs, id_abs2, id_arg, id_cmp, id_conjugate,
|
||||
id_convert, id_denominator, id_divmod, id_equal_p, id_exact_p, id_expt,
|
||||
id_floor, id_hash, id_idiv, id_inspect, id_negate, id_new, id_new_bang,
|
||||
id_numerator, id_polar, id_quo, id_real_p, id_to_f, id_to_i, id_to_r,
|
||||
id_to_s, id_truncate;
|
||||
static ID id_Unify, id_abs, id_abs2, id_arg, id_cmp, id_conj, id_convert,
|
||||
id_denominator, id_divmod, id_equal_p, id_expt, id_floor, id_hash,
|
||||
id_idiv, id_inspect, id_negate, id_numerator, id_polar, id_quo,
|
||||
id_real_p, id_to_f, id_to_i, id_to_r, id_to_s;
|
||||
|
||||
#define f_boolcast(x) ((x) ? Qtrue : Qfalse)
|
||||
|
||||
|
|
@ -159,9 +158,8 @@ binop(xor, '^')
|
|||
fun1(abs)
|
||||
fun1(abs2)
|
||||
fun1(arg)
|
||||
fun1(conjugate)
|
||||
fun1(conj)
|
||||
fun1(denominator)
|
||||
fun1(exact_p)
|
||||
fun1(floor)
|
||||
fun1(hash)
|
||||
fun1(inspect)
|
||||
|
|
@ -174,7 +172,6 @@ fun1(to_f)
|
|||
fun1(to_i)
|
||||
fun1(to_r)
|
||||
fun1(to_s)
|
||||
fun1(truncate)
|
||||
|
||||
fun2(divmod)
|
||||
|
||||
|
|
@ -494,7 +491,7 @@ m_sqrt(VALUE x)
|
|||
get_dat1(x);
|
||||
|
||||
if (f_negative_p(dat->image))
|
||||
return f_conjugate(m_sqrt(f_conjugate(x)));
|
||||
return f_conj(m_sqrt(f_conj(x)));
|
||||
else {
|
||||
VALUE a = f_abs(x);
|
||||
return f_complex_new2(rb_cComplex,
|
||||
|
|
@ -627,9 +624,9 @@ nucomp_div(VALUE self, VALUE other)
|
|||
VALUE tmp = f_complex_new_bang2(CLASS_OF(self),
|
||||
f_div(bdat->real, magn),
|
||||
f_div(bdat->image, magn));
|
||||
return f_div(f_mul(self, f_conjugate(tmp)), magn);
|
||||
return f_div(f_mul(self, f_conj(tmp)), magn);
|
||||
}
|
||||
return f_div(f_mul(self, f_conjugate(other)), f_abs2(other));
|
||||
return f_div(f_mul(self, f_conj(other)), f_abs2(other));
|
||||
}
|
||||
if (k_numeric_p(other) && f_real_p(other)) {
|
||||
get_dat1(self);
|
||||
|
|
@ -783,7 +780,7 @@ nucomp_polar(VALUE self)
|
|||
}
|
||||
|
||||
static VALUE
|
||||
nucomp_conjugate(VALUE self)
|
||||
nucomp_conj(VALUE self)
|
||||
{
|
||||
get_dat1(self);
|
||||
return f_complex_new2(CLASS_OF(self), dat->real, f_negate(dat->image));
|
||||
|
|
@ -1281,6 +1278,11 @@ nucomp_s_convert(int argc, VALUE *argv, VALUE klass)
|
|||
return a1;
|
||||
}
|
||||
|
||||
if ((k_numeric_p(a1) && !f_real_p(a1)) ||
|
||||
(k_numeric_p(a2) && !f_real_p(a2)))
|
||||
return f_add(a1,
|
||||
f_mul(a2, f_complex_new_bang2(rb_cComplex, ZERO, ONE)));
|
||||
|
||||
{
|
||||
VALUE argv2[2];
|
||||
argv2[0] = a1;
|
||||
|
|
@ -1346,7 +1348,7 @@ numeric_polar(VALUE self)
|
|||
}
|
||||
|
||||
static VALUE
|
||||
numeric_conjugate(VALUE self)
|
||||
numeric_conj(VALUE self)
|
||||
{
|
||||
return self;
|
||||
}
|
||||
|
|
@ -1364,20 +1366,17 @@ Init_Complex(void)
|
|||
id_abs2 = rb_intern("abs2");
|
||||
id_arg = rb_intern("arg");
|
||||
id_cmp = rb_intern("<=>");
|
||||
id_conjugate = rb_intern("conjugate");
|
||||
id_conj = rb_intern("conj");
|
||||
id_convert = rb_intern("convert");
|
||||
id_denominator = rb_intern("denominator");
|
||||
id_divmod = rb_intern("divmod");
|
||||
id_equal_p = rb_intern("==");
|
||||
id_exact_p = rb_intern("exact?");
|
||||
id_expt = rb_intern("**");
|
||||
id_floor = rb_intern("floor");
|
||||
id_hash = rb_intern("hash");
|
||||
id_idiv = rb_intern("div");
|
||||
id_inspect = rb_intern("inspect");
|
||||
id_negate = rb_intern("-@");
|
||||
id_new = rb_intern("new");
|
||||
id_new_bang = rb_intern("new!");
|
||||
id_numerator = rb_intern("numerator");
|
||||
id_polar = rb_intern("polar");
|
||||
id_quo = rb_intern("quo");
|
||||
|
|
@ -1386,7 +1385,6 @@ Init_Complex(void)
|
|||
id_to_i = rb_intern("to_i");
|
||||
id_to_r = rb_intern("to_r");
|
||||
id_to_s = rb_intern("to_s");
|
||||
id_truncate = rb_intern("truncate");
|
||||
|
||||
rb_cComplex = rb_define_class(COMPLEX_NAME, rb_cNumeric);
|
||||
|
||||
|
|
@ -1451,10 +1449,10 @@ Init_Complex(void)
|
|||
rb_define_method(rb_cComplex, "rectangular", nucomp_rect, 0);
|
||||
rb_define_method(rb_cComplex, "rect", nucomp_rect, 0);
|
||||
rb_define_method(rb_cComplex, "polar", nucomp_polar, 0);
|
||||
rb_define_method(rb_cComplex, "conjugate", nucomp_conjugate, 0);
|
||||
rb_define_method(rb_cComplex, "conj", nucomp_conjugate, 0);
|
||||
rb_define_method(rb_cComplex, "conjugate", nucomp_conj, 0);
|
||||
rb_define_method(rb_cComplex, "conj", nucomp_conj, 0);
|
||||
#if 0
|
||||
rb_define_method(rb_cComplex, "~", nucomp_conjugate, 0); /* gcc */
|
||||
rb_define_method(rb_cComplex, "~", nucomp_conj, 0); /* gcc */
|
||||
#endif
|
||||
|
||||
rb_define_method(rb_cComplex, "real?", nucomp_false, 0);
|
||||
|
|
@ -1506,8 +1504,8 @@ Init_Complex(void)
|
|||
rb_define_method(rb_cNumeric, "rectangular", numeric_rect, 0);
|
||||
rb_define_method(rb_cNumeric, "rect", numeric_rect, 0);
|
||||
rb_define_method(rb_cNumeric, "polar", numeric_polar, 0);
|
||||
rb_define_method(rb_cNumeric, "conjugate", numeric_conjugate, 0);
|
||||
rb_define_method(rb_cNumeric, "conj", numeric_conjugate, 0);
|
||||
rb_define_method(rb_cNumeric, "conjugate", numeric_conj, 0);
|
||||
rb_define_method(rb_cNumeric, "conj", numeric_conj, 0);
|
||||
|
||||
rb_define_const(rb_cComplex, "I",
|
||||
f_complex_new_bang2(rb_cComplex, ZERO, ONE));
|
||||
|
|
|
|||
|
|
@ -28,7 +28,7 @@ VALUE rb_cRational;
|
|||
|
||||
static ID id_Unify, id_abs, id_cmp, id_convert, id_equal_p, id_expt,
|
||||
id_floor, id_format, id_hash, id_idiv, id_inspect, id_integer_p,
|
||||
id_negate, id_new, id_new_bang, id_to_f, id_to_i, id_to_s, id_truncate;
|
||||
id_negate, id_to_f, id_to_i, id_to_s, id_truncate;
|
||||
|
||||
#define f_boolcast(x) ((x) ? Qtrue : Qfalse)
|
||||
|
||||
|
|
@ -1497,8 +1497,6 @@ Init_Rational(void)
|
|||
id_inspect = rb_intern("inspect");
|
||||
id_integer_p = rb_intern("integer?");
|
||||
id_negate = rb_intern("-@");
|
||||
id_new = rb_intern("new");
|
||||
id_new_bang = rb_intern("new!");
|
||||
id_to_f = rb_intern("to_f");
|
||||
id_to_i = rb_intern("to_i");
|
||||
id_to_s = rb_intern("to_s");
|
||||
|
|
|
|||
|
|
@ -158,6 +158,9 @@ class Complex_Test < Test::Unit::TestCase
|
|||
c = Complex(0,Complex(1))
|
||||
assert_equal(Complex.__send__(:new, 0,1), c)
|
||||
|
||||
c = Complex(Complex(1,1),Complex(1))
|
||||
assert_equal(Complex.__send__(:new, 1,2), c)
|
||||
|
||||
c = 5.re
|
||||
assert_equal(Complex.__send__(:new, 5,0), c)
|
||||
|
||||
|
|
@ -169,7 +172,7 @@ class Complex_Test < Test::Unit::TestCase
|
|||
|
||||
c = Complex(2,0).im
|
||||
assert_equal(Complex.__send__(:new, 0,2), c)
|
||||
assert_raise(ArgumentError){Complex(1,2).im}
|
||||
assert_equal(Complex.__send__(:new, -2,1), Complex(1,2).im)
|
||||
|
||||
c = Complex::I
|
||||
assert_equal(Complex.__send__(:new, 0,1), c)
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue