けいじゅ＠日本ラショナルソフトウェアです.

In [ruby-list :8648 ] the message: "[ruby-list:8648] sin(complex) ",
on Jul/08 18:30(JST) toyofuku / juice.or.jp writes:

>  豊福＠パパイヤです。

>  結構前に ruby-dev でちょっと出た complex
>の話ですが ruby-list に持ってきました。

大部昔の話しですね(^^;;;

>ruby-dev [1924] で私
>>> # 話しは違いますが, complex ** complex, sin(complex)とかは頑張って(適
>>> # 当に)定義しているんですよねえ... ただ, 正しいかどうか分からんので誰
>>> # か検算(?)  して欲しいんですが...
>>   complex ** complex は正しいような気がします。
>> sin と cos は両方とも虚数部の符号が逆のような気がするの
>> ですがどうやって確認したものか。

>でしたので sin と cos は虚数部の符号が逆のようです。

どうもです(__;;;

他にも若干変わっているようなので, パッチを出します.

-- ここから
--- /usr/local/lib/ruby/complex.rb	Fri Jul  3 23:06:41 1998
+++ complex.rb	Wed Jul  8 19:07:00 1998
@@ -1,8 +1,8 @@
 #
 #   complex.rb - 
 #   	$Release Version: 0.5 $
-#   	$Revision: 1.1.1.1 $
-#   	$Date: 1998/01/16 04:05:49 $
+#   	$Revision: 1.3 $
+#   	$Date: 1998/07/08 10:05:28 $
 #   	by Keiju ISHITSUKA(SHL Japan Inc.)
 #
 # --
@@ -59,6 +59,7 @@
 end
 
 class Complex < Numeric
+  @RCS_ID='-$Id: complex.rb,v 1.3 1998/07/08 10:05:28 keiju Exp keiju $-'
   
   def Complex.generic?(other)
     other.kind_of?(Integer) or
@@ -284,6 +285,11 @@
     @real ^ @image
   end
   
+  def inspect
+    sprintf("Complex(%s, %s)", @real.inspect, @image.inspect)
+  end
+
+  
   I = Complex(0,1)
   
   attr :real
@@ -396,7 +402,7 @@
       cos!(z)
     else
       Complex(cos!(z.real)*cosh!(z.image),
-	      sin!(z.real)*sinh!(z.image))
+	      -sin!(z.real)*sinh!(z.image))
     end
   end
     
@@ -405,7 +411,7 @@
       sin!(z)
     else
       Complex(sin!(z.real)*cosh!(z.image),
-	      -cos!(z.real)*sinh!(z.image))
+	      cos!(z.real)*sinh!(z.image))
     end
   end
   




__
................................石塚 圭樹＠日本ラショナルソフトェア...
----------------------------------->> e-mail: keiju / rational.com <<---