kotovalexarian-likes-github/ruby--ruby
1
0
Fork 0
mirror of https://github.com/ruby/ruby.git synced 2022-11-09 12:17:21 -05:00
Code Releases Activity

numeric.c: calculate complex numbers

Browse source 
* numeric.c (fix_plus, fix_mul): calculate complex numbers for
  commutative operations.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@49724 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
nobu 2015-02-24 13:59:06 +00:00
parent 3bcb10ad2a
commit ed00379c79
2 changed files with 14 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
complex.c
View file

@ -674,11 +674,12 @@ f_addsub(VALUE self, VALUE other,
* Complex(9, 8) + 4 #=> (13+8i) * Complex(9, 8) + 4 #=> (13+8i)
* Complex(20, 9) + 9.8 #=> (29.8+9i) * Complex(20, 9) + 9.8 #=> (29.8+9i)
*/ */
static VALUE VALUE
nucomp_add(VALUE self, VALUE other) rb_nucomp_add(VALUE self, VALUE other)
{ {
return f_addsub(self, other, f_add, '+'); return f_addsub(self, other, f_add, '+');
} }
#define nucomp_add rb_nucomp_add
/* /*
* call-seq: * call-seq:
@ -710,8 +711,8 @@ nucomp_sub(VALUE self, VALUE other)
* Complex(9, 8) * 4 #=> (36+32i) * Complex(9, 8) * 4 #=> (36+32i)
* Complex(20, 9) * 9.8 #=> (196.0+88.2i) * Complex(20, 9) * 9.8 #=> (196.0+88.2i)
*/ */
static VALUE VALUE
nucomp_mul(VALUE self, VALUE other) rb_nucomp_mul(VALUE self, VALUE other)
{ {
if (k_complex_p(other)) { if (k_complex_p(other)) {
VALUE real, imag; VALUE real, imag;
@ -766,6 +767,7 @@ nucomp_mul(VALUE self, VALUE other)
} }
return rb_num_coerce_bin(self, other, '*'); return rb_num_coerce_bin(self, other, '*');
} }
#define nucomp_mul rb_nucomp_mul
inline static VALUE inline static VALUE
f_divide(VALUE self, VALUE other, f_divide(VALUE self, VALUE other,

8
numeric.c
View file

@ -2864,6 +2864,10 @@ fix_plus(VALUE x, VALUE y)
else if (RB_TYPE_P(y, T_FLOAT)) { else if (RB_TYPE_P(y, T_FLOAT)) {
return DBL2NUM((double)FIX2LONG(x) + RFLOAT_VALUE(y)); return DBL2NUM((double)FIX2LONG(x) + RFLOAT_VALUE(y));
} }
else if (RB_TYPE_P(y, T_COMPLEX)) {
VALUE rb_nucomp_add(VALUE, VALUE);
return rb_nucomp_add(y, x);
}
else { else {
return rb_num_coerce_bin(x, y, '+'); return rb_num_coerce_bin(x, y, '+');
} }
@ -2953,6 +2957,10 @@ fix_mul(VALUE x, VALUE y)
else if (RB_TYPE_P(y, T_FLOAT)) { else if (RB_TYPE_P(y, T_FLOAT)) {
return DBL2NUM((double)FIX2LONG(x) * RFLOAT_VALUE(y)); return DBL2NUM((double)FIX2LONG(x) * RFLOAT_VALUE(y));
} }
else if (RB_TYPE_P(y, T_COMPLEX)) {
VALUE rb_nucomp_mul(VALUE, VALUE);
return rb_nucomp_mul(y, x);
}
else { else {
return rb_num_coerce_bin(x, y, '*'); return rb_num_coerce_bin(x, y, '*');
} }